unit6.~pas

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

unit Unit6;

interface

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

type
  TUserAdd = class(TUser)
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  UserAdd: TUserAdd;

implementation

{$R *.dfm}

procedure TUserAdd.BitBtn2Click(Sender: TObject);
var s:string;
begin
s:='Insert MyUser values('''+Edit1.Text+''',''';
s:=s+Edit2.Text+''','''+st[ComboBox1.ItemIndex]+''')';
ADOCommand1.CommandText:=s;
inherited;
end;

end.