?? 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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -