unit2.pas

用delphi实现的一个酒店管理系统框架

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    KL: TEdit;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    yh: TComboBox;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  end;

var
  Form2: TForm2;

implementation

uses Unit3;

{$R *.dfm}

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
halt;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
halt;
end;

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
if not ADODataSet1.Locate('姓名;口令',VarArrayOf([Yh.Text,KL.Text]),[]) then
Begin showmessage('口令不对!');exit;End;
Form3.user:=Yh.Text;Form3.StatusBar1.Panels[1].Text:=Form3.user;
Form3.dj:=ADODataSet1['等级'];//记下用户名称和等级 AGR
ADOQuery1.Close;ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from 用户类型');
ADOQuery1.Open;
Form3.StatusBar1.Panels[3].Text:=ADOQuery1.Lookup('等级',Form3.dj,'类型名');
ADOQuery1.Close;
self.Hide;Form3.Show;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
ADODataSet1.Open;
end;

procedure TForm2.FormShow(Sender: TObject);
var i:integer;
begin
ADODataSet1.Close;ADODataSet1.Open;yh.Clear;
for i:=1 to ADODataSet1.RecordCount do
Begin Yh.Items.Add(ADODataSet1['姓名']);ADODataSet1.Next;end;Yh.ItemIndex:=0;
end;

end.