xtdl.pas

《仓库管理系统》 开发语言：Delphi7.0 数据库：SQLServer2000 数据库文件：仓库管理系统_Data.MDF,仓库管理系统_Log.LDF(mingrisoft仓库管理系统Da

unit xtdl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, jpeg, TeeProcs, TeEngine, Chart;

type
  TForm2 = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Edit1: TEdit;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    Bevel1: TBevel;
    procedure Edit1Change(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  i: integer = 0;
  m: Boolean = False;//防止用户关闭登录窗口进入系统
implementation
  uses DataModal,ckglxt;
{$R *.dfm}

procedure TForm2.Edit1Change(Sender: TObject);
begin
  if (Trim(Edit1.Text)<>'')and( Trim(edit2.Text)<>'') then
    BitBtn1.Enabled := True
  else
    BitBtn1.Enabled := False;
end;

procedure TForm2.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = vk_Return) or(Key = vk_Down) then
    Edit2.SetFocus;
end;

procedure TForm2.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ((Key = vk_Return) or(Key = vk_Down))and (BitBtn1.Enabled = True) then
    BitBtn1.SetFocus
  else
    Edit2.SetFocus;
  if Key = vk_Up then
    Edit1.SetFocus;
end;

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
  with Data.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from 操作员信息表 where (操作员姓名= :a)and(操作员密码= :b)');
    Parameters.ParamByName('a').Value := Trim(Edit1.Text);
    Parameters.ParamByName('b').Value := Trim(Edit2.Text);
    Open;
  end;
  if Data.ADOQuery1.RecordCount >0 then
  begin
    czy := Data.ADOQuery1.FieldByName('操作员姓名').AsString;
    m:= True;
    Form88.StatusBar1.Panels[3].Text := czy ;
    Edit1.Clear;
    Edit2.Clear;
    Close;
  end
  else
  begin
    if i <3 then
    begin
      Application.MessageBox('用户名称或密码不正确，请重新输入。','提示',64);
      Edit1.Clear;
      Edit2.Clear;
      Edit1.SetFocus;
      Inc(i);
    end
    else
    begin
      Application.MessageBox('对不起，您无权使用本系统。','提示',0+64);
      Application.Terminate ;
    end;
  end;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if m = False then
    Application.Terminate
end;

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
  Close;
end;

end.