unit5.~pas

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

unit Unit5;

interface

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

type
  TUser = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    ADODataSet1: TADODataSet;
    ComboBox1: TComboBox;
    Label4: TLabel;
    ADOCommand1: TADOCommand;
    CheckBox1: TCheckBox;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    st:array of string;Err:boolean;
  end;

var
  User: TUser;

implementation

uses Unit3;

{$R *.dfm}

procedure TUser.BitBtn1Click(Sender: TObject);
begin
close;
end;

procedure TUser.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

procedure TUser.FormShow(Sender: TObject);
begin
ADODataSet1.Close;
ADODataSet1.CommandType:=cmdTable;
ADODataSet1.CommandText:='用户类型';
ADODataSet1.Filter:='等级>='''+Form3.dj+'''';ADODataSet1.Filtered:=True;
ADODataSet1.Open;SetLength(st,ADODataSet1.RecordCount);ComboBox1.Clear;
while not ADODataSet1.Eof do
Begin
ComboBox1.Items.Add(ADODataSet1.FieldValues['类型名']);
st[ADODataSet1.RecNo-1]:=ADODataSet1.FieldValues['等级'];
ADODataSet1.Next;
End;
ComboBox1.ItemIndex:=0;ADODataSet1.Close;
End;

procedure TUser.BitBtn2Click(Sender: TObject);
begin
Err:=False;
if (Edit1.Text='')then
begin
Application.MessageBox('请重新输入用户名称!','用户名称不能为空');
Err:=true;exit;
end;
if (Edit2.Text<>Edit3.Text) then
Begin
Application.MessageBox('请重新输入用户口令或确认口令!','用户口令与确认口令不一致');
Err:=true;exit;
end;
try
ADOCommand1.Execute;
except
Application.MessageBox('请联系管理员!',Pchar(Caption+'失败'));
Err:=true;exit;
end;
Application.MessageBox(Pchar('用户名：'+Edit1.Text),Pchar('您已成功完成'+Caption));
edit1.Text:='';edit2.Text:='';edit3.Text:='';
if CheckBox1.Checked then close;
end;

procedure TUser.Edit1Change(Sender: TObject);
begin
BitBtn2.Enabled:=edit1.Text<>'';
end;

end.