u_frmmain.pas

登录用程序

{    这是我花了一个多钟，一品气写出来的，好久没有这样写程序了！
 看看对你有没有用，没用也不要大声说出来，你会我伤心的，一
 不小心我跟国荣GG一样想不开，你就大锅了！
     不要说看不懂呀！我出来工作之后就从来没有用中文作注释的，
 实现看不懂还是欢迎你来问的，不过要教我星际做交换条件！哈哈哈...
                                            Calbe Fan
                                            2003-4-24
}
unit u_frmMain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, ADODB, StdCtrls, ExtCtrls;

type
  TfrmMain = class(TForm)
    Panel1: TPanel;
    ADOConnection1: TADOConnection;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    bolLogin:Boolean;   //记住只可显示一次登录对话框
    procedure ShowLogin;
    procedure ConnectDB;        //连接数据库
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

uses u_frmLogin;

{$R *.DFM}

{ TfrmMain }

{显示登录对话框}
procedure TfrmMain.ShowLogin;
begin
  if not bolLogin then
  begin
    frmLogin.ShowModal;
    bolLogin:=True;     //默认值为False，显示登录对话框后设为真！
  end;
end;

procedure TfrmMain.FormActivate(Sender: TObject);
begin
  ShowLogin;    //主窗口显示时显示登录对话框
  panel1.Visible:=True;
end;

procedure TfrmMain.ConnectDB;
var
  ConnStr,DBPath:String;        //保存连接字符串和数据库路径
begin
  {ExtractFilePath函数从一个完整的文件名中分离出路径，以'\'结束，
   Application.ExeName得到程序执行文件本身的文件名，
   这里要求数据库文件（UserInfo.mdb）必须放在程序同一个目录，
   否则就连接不上了，呵呵！}

  try
    DBPath:=ExtractFilePath(Application.ExeName)+'UserInfo.mdb';
    ConnStr:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
        DBPath+';Persist Security Info=False';
    ADOConnection1.Close; //要改变它的属性前要关闭连接！
    ADOConnection1.ConnectionString:=ConnStr;     //指定连接串
    ADOconnection1.LoginPrompt:=False;  //不显示默认的登录对话框
    ADOConnection1.Open   //打开连接
  except
    on E:Exception do
    begin
      ShowMessage('出错！'+e.Message);  //显示出错信息
      frmMain.Close;    //退出程序算了，数据库都连不上还有什么用！^_^
    end;
  end;
end;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  ConnectDB;    //连接数据库
end;

end.