unit6.pas

来自「用delphi实现的一个酒店管理系统框架」· PAS 代码 · 共 39 行

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
ADODataSet1.CommandText:='MyUser';ADODataSet1.Open;
if ADODataSet1.Locate('姓名',Edit1.Text,[]) then
Begin showmessage('该用户已经存在!');exit;end;
ADODataSet1.Close;
s:='Insert MyUser values('''+Edit1.Text+''',''';
s:=s+Edit2.Text+''','''+st[ComboBox1.ItemIndex]+''')';
ADOCommand1.CommandText:=s;
inherited;
end;

end.