login.pas

药品进销存管理系统(Delphi版),适合中小企业管理

unit login;

interface

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

type
  TFrmlogin = class(TForm)
    GroupBox1: TGroupBox;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    Query_czy: TQuery;
    Database: TDatabase;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmlogin: TFrmlogin;
  qx:array[0..20] of string;
  pass:array[0..20] of string;
  xm:array[0..20] of string;
  Flag:boolean;
implementation

uses main;

{$R *.DFM}

procedure TFrmlogin.BitBtn2Click(Sender: TObject);
begin
  halt;
end;

procedure TFrmlogin.BitBtn1Click(Sender: TObject);
begin
   if (edit1.Text=pass[combobox1.ItemIndex]) and (combobox1.Text=xm[combobox1.ItemIndex]) then
     begin
      Frmmain.right:=qx[combobox1.itemindex];
      Frmmain.name:=xm[combobox1.itemindex];
      Flag:=true;
      Self.Close
     end
   else
      Application.MessageBox('密码错误!','提示', MB_OK+MB_ICONINFORMATION);
end;

procedure TFrmlogin.FormCreate(Sender: TObject);
  var   i:integer;
begin
  Flag:=false;
  edit1.Clear;
  Query_czy.close;
  Query_czy.UnPrepare;
  Query_czy.sql.Clear;
  Query_czy.sql.Add('select * from czyb');
  Query_czy.Prepare;
  Query_czy.open;
  Query_czy.First;
  i:=0;
  while not Query_czy.Eof do
    begin
       combobox1.Items.Add(Query_czy.fieldbyname('czy_xm').asstring);
       xm[i]:=Query_czy.fieldbyname('czy_xm').asstring;
       pass[i]:=Query_czy.fieldbyname('mm').asstring;
       qx[i]:=Query_czy.fieldbyname('qx').asstring;
       inc(i);
       Query_czy.Next;
    end;
  combobox1.Text:='';
  bitbtn1.Enabled:=false;

end;

procedure TFrmlogin.ComboBox1Change(Sender: TObject);
begin
  if combobox1.ItemIndex>-1 then
    bitbtn1.Enabled:=true;
end;

procedure TFrmlogin.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  key:=#0;  
end;

procedure TFrmlogin.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then bitbtn1Click(Self);
end;

procedure TFrmlogin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if flag=false then halt;
  Action:=CaFree;
end;

end.