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.