delphi開發日誌－－登入視窗

對於管理資訊系統而言，許可權是一個很重要的部分。下面我們就開始設計使用管理資訊系統的第一步，登入視窗的製作：
（說明：所有的示例使用一個程式，最後將會成為一個完整的系統，以後的示例都是在上次示例的基礎上增加）
file——>new——>form建立一個新窗體用於登入系統，然後調整窗體大小，並設定窗體的一些屬性：name:frmLogin,borderStyle:bsSingle,biMaximize:False
接著在窗體上放入以後控制元件：
Lable1，Caption：使用者，Name：lblUserName
Lable2，Caption：密碼，Name：lblPassword
ComboBox1，Text：為空,Name：cbbUserName
Edit1，Text：為空,Name：edtPassword
Bevel1,Shape,bsTopLine,name:bvlLine
BitBtn1，Kind:bkOK,Name:btnOK
BitBtn2,Kind:bkCancel,Name:btnCancel
設定完成後儲存，單元檔名為untLogin.pas
窗體及控制元件設定完成後，下面的工作就是如何讓啟動畫面顯示完成好接著出現的不是主窗體，而是登入窗體，如果登入成功，則開啟主窗體，否則登入三次自動退出程式。
首先在專案選項中將自動建立frmLogin窗體取消，然後建立一個單元檔案untGlobal.pas用於存放公共函式庫，在untGlobal中定義一個用於登入的函式，程式碼如下：
Function CanLogin:Boolean;
begin
  with TfrmLogin.Create (Application) do
  Try
    ShowModal;
    Result:=gCanLogin;
  Finally
    Free;
  End;
end;
儲存編譯，出錯！因為此需要引用untLogin.pas單元檔案，還需要引用Application所在的單元forms檔案中
uses
  Forms;
另外需要在untLogin中定義一個全域性變數，gCanLogin用於判斷登入。
現在OK按鈕的單擊事件中增加如下程式碼，即可正常執行，並在單擊OK按鈕後進入主窗體，如果單Cancle按鈕在關閉程式
gCanLogin:=True;
當然需要在Demo.dpr檔案中修改一下程式碼：
  if CanLogin then
  begin
    Application.CreateForm(TfrmMain, frmMain);
    Application.Run;
  end
 至此，從啟動畫面到登入視窗然後進入主窗體全部完成，接下來我們就完善登入和與資料庫進行關聯，否則這個程式豈不沒有任何意義？