unit7.pas

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

unit Unit7;

interface

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

type
  TUserMod = class(TUser)
    ComboBox2: TComboBox;
    procedure ComboBox2Change(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure UserBitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  UserMod: TUserMod;

implementation

{$R *.dfm}

procedure TUserMod.FormShow(Sender: TObject);
begin
inherited;
ADODataSet1.CommandText:='MyUser';
ADODataSet1.Open;ComboBox2.Clear;
ADODataSet1.IndexFieldNames:=ADODataSet1.FieldList[0].DisplayName;
while not ADODataSet1.Eof do
Begin
ComboBox2.Items.Add(ADODataSet1.FieldValues['姓名']);
ADODataSet1.Next;
End;
ComboBox2.ItemIndex:=0;
edit1.Text:=ComboBox2.Items[ComboBox2.itemindex];
ADODataSet1.Close;ADODataSet1.IndexFieldNames:='';
end;

procedure TUserMod.BitBtn2Click(Sender: TObject);
var s:string;
begin
s:='Update MyUser set 口令='''+Edit2.Text+''',等级=''';
s:=s+st[ComboBox1.ItemIndex]+''' where 姓名='''+Edit1.Text+'''';
ADOCommand1.CommandText:=s;
inherited;
end;

procedure TUserMod.ComboBox2Change(Sender: TObject);
begin
edit1.Text:=ComboBox2.Items[ComboBox2.itemindex];
end;

procedure TUserMod.UserBitBtn2Click(Sender: TObject);
begin//作为删除用户窗体继承用，不含Update的SQL语句
inherited BitBtn2Click(Sender);
if not CheckBox1.Checked then FormShow(Sender);
end;

end.