unit33.pas

一个简单的旅游管理系统

unit Unit33;

interface

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

type
  TForm33 = class(TForm)
    Label13: TLabel;
    Edit1: TEdit;
    Label18: TLabel;
    Edit2: TEdit;
    Label17: TLabel;
    Edit3: TEdit;
    Label22: TLabel;
    Edit4: TEdit;
    Label25: TLabel;
    Edit9: TEdit;
    Edit8: TEdit;
    Label26: TLabel;
    Label24: TLabel;
    Edit7: TEdit;
    Edit6: TEdit;
    Label23: TLabel;
    Label14: TLabel;
    Edit5: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button4: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Button3: TButton;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form33: TForm33;

implementation

uses Unit40;

{$R *.dfm}

procedure TForm33.FormCreate(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
edit8.Text:='';
edit9.Text:='';
end;

procedure TForm33.Button2Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
edit8.Text:='';
edit9.Text:='';
end;

procedure TForm33.Button4Click(Sender: TObject);
begin
form33.Close;
end;

procedure TForm33.Button3Click(Sender: TObject);
begin
form40:=Tform40.create(self);
form40.showmodal;
end;

procedure TForm33.Button1Click(Sender: TObject);
begin
if(edit1.text='') or (edit2.text='') or (edit3.text='') or (edit4.text='') or (edit5.text='') or (edit6.text='') or (edit7.text='') or (edit8.text='') or (edit9.text='') then
begin
showmessage('请输入必填信息');
exit;
end;
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select * from 客房预订表 where 酒店名称=:name');
adoquery1.Parameters.ParamByName('name').Value:=trim(edit1.text);
adoquery1.Open;
adoquery1.sql.Clear;
adoquery1.SQL.Add('insert into 客房预订表(酒店名称,所处位置,订房类型,价格,订房人姓名,身份证号码,联系方式,详细地址,入住时间)');
adoquery1.SQL.Add(' values(:name,:where,:kind,:price,:people,:peopleid,:tele,:adds,:time)');
adoquery1.Parameters.ParamByName('name').value:=trim(edit1.text);
adoquery1.Parameters.ParamByName('where').value:=trim(edit2.text);
adoquery1.Parameters.ParamByName('kind').value:=trim(edit3.text);
adoquery1.Parameters.ParamByName('price').value:=trim(edit4.text);
adoquery1.Parameters.ParamByName('people').value:=trim(edit5.text);
adoquery1.Parameters.ParamByName('peopleid').value:=trim(edit6.text);
adoquery1.Parameters.ParamByName('tele').value:=trim(edit7.text);
adoquery1.Parameters.ParamByName('adds').value:=trim(edit8.text);
adoquery1.Parameters.ParamByName('time').value:=trim(edit9.text);
adoquery1.ExecSQL;
showmessage('客房预订成功');
adoquery1.Close;
exit;
end;

end.