unit22.pas

花花公子专卖店管理程序

unit Unit22;

interface

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

type
  TF_login = class(TForm)
    ComboBox1: TComboBox;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_login: TF_login;

implementation
uses unit1;
{$R *.dfm}

procedure TF_login.FormShow(Sender: TObject);
begin
mainform.A_rs.First;
ComboBox1.Items.Clear;
while mainform.A_rs.eof=false do
  begin
    ComboBox1.Items.add(mainform.A_rs.Fieldbyname('姓名').asstring);
    mainform.A_rs.next;
  end;
combobox1.ItemIndex:=0;
end;

procedure TF_login.BitBtn2Click(Sender: TObject);
begin
mainform.close;
end;

procedure TF_login.BitBtn1Click(Sender: TObject);
begin
  with mainform.Q_temp do
   begin
      close;
      sql.Clear;
      sql.Add('select * from 人事库');
      sql.Add('where 姓名='+''''+ComboBox1.text+'''');
      open;
   end;

  if mainform.Q_temp.Fieldbyname('口令').asstring=edit1.text then
    begin
     close;
    end else
    begin
     application.MessageBox('口令无效,请重新输入','系统信息',MB_OK+MB_Iconquestion);
     edit1.SetFocus;
    end;
end;

procedure TF_login.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
 begin
    with mainform.Q_temp do
   begin
      close;
      sql.Clear;
      sql.Add('select * from 人事库');
      sql.Add('where 姓名='+''''+ComboBox1.text+'''');
      open;
   end;

  if mainform.Q_temp.Fieldbyname('口令').asstring=edit1.text then
    begin
     close;
    end else
    begin
     application.MessageBox('口令无效,请重新输入','系统信息',MB_OK+MB_Iconquestion);
     edit1.SetFocus;
    end;
 end;
end;

end.