frmchangeroom.pas

毕业论文源码 毕业论文源码 毕业论文源码

unit frmChangeRoom;

interface

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

type
  TChangeRoomForm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Edit9: TEdit;
    Memo1: TMemo;
    DateTimePicker1: TDateTimePicker;
    GroupBox2: TGroupBox;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Edit11: TEdit;
    Edit12: TEdit;
    ComboBox3: TComboBox;
    Edit13: TEdit;
    Edit10: TEdit;
    Edit14: TEdit;
    birthday: TDateTimePicker;
    Edit15: TEdit;
    Button1: TButton;
    Button2: TButton;
    DataSource1: TDataSource;
    Table1: TTable;
    Query1: TQuery;
    DataSource2: TDataSource;
    Table2: TTable;
    Query2: TQuery;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ChangeRoomForm: TChangeRoomForm;

implementation

uses frmMain;

{$R *.dfm}

procedure TChangeRoomForm.FormCreate(Sender: TObject);
var
    str: string;
begin
    if mainform.tmp<>'' then
    begin
        str := 'select * from TouristInfo where TouristInfo.姓名="'+MainForm.tmp+'"';
        Query1.Close;
        Query1.SQL.Clear;
        Query1.SQL.Add(str);
        query1.Open;

        edit1.Text := Query1.FieldValues['姓名'];
        edit2.Text := Query1.FieldValues['年龄'];
        edit3.Text := Query1.FieldValues['文化程度'];
        edit4.Text := Query1.FieldValues['职业'];
        edit5.Text := Query1.FieldValues['从何处来'];
        edit6.Text := Query1.FieldValues['到何处去'];
        edit7.Text := Query1.FieldValues['住宿理由'];
        edit8.Text := Query1.FieldValues['证件号码'];
        edit9.Text := Query1.FieldValues['工作单位'];
        edit1.Text := Query1.FieldValues['姓名'];
        ComboBox1.Text := Query1.FieldValues['性别'];
        ComboBox2.Text := Query1.FieldValues['证件名称'];
        DateTimePicker1.DateTime := Query1.FieldValues['离店日期'];
        memo1.Text :=  Query1.FieldValues['备注'];

        edit1.ReadOnly := true;
        edit1.Enabled := false;
        edit1.Color := clMENU;
        edit2.ReadOnly := true;
        edit2.Enabled := false;
        edit2.Color := clMENU;
        edit3.ReadOnly := true;
        edit3.Enabled := false;
        edit3.Color := clMENU;
        edit4.ReadOnly := true;
        edit4.Enabled := false;
        edit4.Color := clMENU;
        edit5.ReadOnly := true;
        edit5.Enabled := false;
        edit5.Color := clMENU;
        edit6.ReadOnly := true;
        edit6.Enabled := false;
        edit6.Color := clMENU;
        edit7.ReadOnly := true;
        edit7.Enabled := false;
        edit7.Color := clMENU;
        edit8.ReadOnly := true;
        edit8.Enabled := false;
        edit8.Color := clMENU;
        edit9.ReadOnly := true;
        edit9.Enabled := false;
        edit9.Color := clMENU;
        ComboBox1.Enabled := false;
        ComboBox1.Color := clMENU;
        ComboBox2.Enabled := false;
        ComboBox2.Color := clMENU;
        memo1.Enabled := false;
        memo1.Color := clMENU;
        DateTimePicker1.Enabled := false;
        DateTimePicker1.Color := clMENU;
    end;

end;

procedure TChangeRoomForm.Button2Click(Sender: TObject);
begin
        close;
end;

procedure TChangeRoomForm.Button1Click(Sender: TObject);
begin
        Table2.Append;
        Table2.FieldValues['房间号'] := strtoint(edit11.Text);
        Table2.FieldValues['住宿人数'] := strtoint(edit12.Text);
        Table2.FieldValues['登记员'] := ComboBox3.Text;
        Table2.FieldValues['登记时间'] := birthday.DateTime;
        Table2.FieldValues['房价折扣'] := strtoint(edit14.Text);
        Table2.FieldValues['旅客类别'] := edit15.Text;
        Table2.Post;
        close;
end;

end.