logindata.pas

本系统为演示Delphi的功能而开发设计

unit LoginData;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables;

type
  TSystemData = class(TDataModule)
    DatabaseLogin: TDatabase;
    QueryUser: TQuery;
    QueryLogin: TQuery;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SystemData: TSystemData;

implementation

{$R *.DFM}



procedure TSystemData.DataModuleCreate(Sender: TObject);
begin
 try
  With  DatabaseLogin Do
  begin
  Connected:= False;
  LoginPrompt:= False;
  Params.Values['USER NAME']:= 'qiao';
  Params.Values['PASSWORD']:= 'qiao';
  Connected:= True;
  end;
  Except
   On E:Exception Do
   Begin
   ShowMessage('数据库连接失败,请检验网络连接是否正常');
   Application.Terminate;
   End;
 End;
End;

end.