ugiris.pas

来自「it is a database programme for sql serv」· PAS 代码 · 共 71 行

unit uGiris;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, RzButton, Mask, RzEdit, ExtCtrls, DB, DBTables, ADODB;

type
  TfrmGiris = class(TForm)
    Panel1: TPanel;
    RzEdit1: TRzEdit;
    RzEdit2: TRzEdit;
    btnOk: TRzBitBtn;
    btnClose: TRzBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Query1: TADOQuery;
    Label3: TLabel;
    RzEdit3: TRzEdit;
    procedure btnOkClick(Sender: TObject);
    procedure btnCloseClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmGiris: TfrmGiris;

implementation

{$R *.dfm}

uses uDM,uStaff;

procedure TfrmGiris.btnOkClick(Sender: TObject);
begin

  DM.Conn.ConnectionString:='Provider=SQLNCLI.1;Persist Security Info=False;User ID='+RzEdit1.Text+';Password='+RzEdit2.Text+';Initial Catalog=ACE;Data Source='+RzEdit3.Text;

  try
    DM.Conn.Connected:=True;
  except
    ShowMessage('User Name/Password is Wrong');
    exit;
  end;

  frmGiris.Hide;

  frmStaff:=TfrmStaff.Create(nil);
  frmStaff.Show;

end;

procedure TfrmGiris.btnCloseClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmGiris.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_ESCAPE then btnCloseClick(Sender);
end;

end.