unit1.pas

用DELPHI编写的简单的宾馆住宿系统

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, StdCtrls, Mask, DBCtrls, DB, DBTables,
  Grids, DBGrids;

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    Panel1: TPanel;
    DataSource1: TDataSource;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Table1: TTable;
    Table1BDEDesigner: TFloatField;
    Table1BDEDesigner2: TStringField;
    Table1BDEDesigner3: TStringField;
    Table1BDEDesigner4: TStringField;
    Table1BDEDesigner5: TCurrencyField;
    Table1BDEDesigner6: TStringField;
    Table1BDEDesigner7: TFloatField;
    Table1BDEDesigner8: TStringField;
    Table1BDEDesigner9: TFloatField;
    Table1BDEDesigner10: TCurrencyField;
    Table1BDEDesigner11: TCurrencyField;
    DBGrid1: TDBGrid;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Memo1: TMemo;
    Label16: TLabel;
    Button2: TButton;
    Memo2: TMemo;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Label21: TLabel;
    Label22: TLabel;
    Button4: TButton;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Memo3: TMemo;
    Button1: TButton;
    Button3: TButton;
    DBNavigator1: TDBNavigator;
    procedure Table1CalcFields(DataSet: TDataSet);
    procedure Edit1Click(Sender: TObject);
    procedure Edit2Click(Sender: TObject);
    procedure Edit3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit4Click(Sender: TObject);
    procedure Edit5Click(Sender: TObject);
    procedure Edit6Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Table1CalcFields(DataSet: TDataSet);
begin
{table1结算费用.value:=table1房价.value*table1住宿天数.value; }
end;

procedure TForm1.Edit1Click(Sender: TObject);
begin
edit2.Text:='';
edit3.Text:='';
end;

procedure TForm1.Edit2Click(Sender: TObject);
begin
edit1.Text:='';
edit3.Text:='';
end;

procedure TForm1.Edit3Click(Sender: TObject);
begin
edit2.Text:='';
edit1.Text:='';
end;

procedure TForm1.Button2Click(Sender: TObject);
var
sum1:real;
s:string;
bookmark1:tbookmark;
begin
sum1:=0.00;
bookmark1:=table1.getbookmark;
table1.disablecontrols;
table1.first;
while not table1.eof do
begin
sum1:=sum1+table1.fieldbyname('结算费用').value;
table1.Next;
end;
table1.gotobookmark(bookmark1);
table1.FreeBookmark(bookmark1);
table1.EnableControls;
str(sum1:8:2,s);
memo2.text:='目前为止宾馆总收为：    '+s;
end;

procedure TForm1.Edit4Click(Sender: TObject);
begin
edit5.Text:='';
edit6.Text:='';
end;

procedure TForm1.Edit5Click(Sender: TObject);
begin
edit4.Text:='';
edit6.Text:='';
end;

procedure TForm1.Edit6Click(Sender: TObject);
begin
edit4.Text:='';
edit5.Text:='';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
table1.refresh;
with table1 do
try
  if edit1.text<>'' then memo1.text:='客户姓名='+''''+edit1.text+'''';
  if edit2.text<>'' then memo1.text:='房间号='+edit2.Text;
  if edit3.text<>'' then memo1.text:='入住时期='+''''+edit3.text+'''';
  disablecontrols;
  filtered:=false;
  filter:=memo1.text;
  filtered:=true;
finally
  enablecontrols;
if dbedit1.text='' then begin
messagebeep(1);
showmessage('没有符合条件的记录,请确认条件或放弃查询!');
if messageDlg('是否继续查询？,只有结束查询才能作其它操作!',mtinformation,[mbYes,mbNo],0)=mrno then begin
  filtered:=false;
 table1.close;
 table1.open;
end;
end else begin
 if messageDlg('是否继续查询？,只有结束查询才能作其它操作!',mtinformation,[mbYes,mbNo],0)=mrno then begin
  filtered:=false;
 table1.close;
 table1.open;
end;
 end;
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
table1.refresh;
with table1 do
try
  if edit4.text<>'' then memo1.text:='客户姓名='+''''+edit1.text+'''';
  if edit5.text<>'' then memo1.text:='房间号='+edit2.Text;
  if edit6.text<>'' then memo1.text:='入住时期='+''''+edit3.text+'''';
  disablecontrols;
  filtered:=false;
  filter:=memo1.text;
  //TABLE1.Delete;
  filtered:=true;
finally
  enablecontrols;
if dbedit1.text='' then begin
messagebeep(1);
showmessage('没有符合条件的记录被删除,请确认条件或放弃删除!');
if messageDlg('是否继续删除？,只有结束删除才能作其它操作!',mtinformation,[mbYes,mbNo],0)=mrno then begin
  filtered:=false;
 table1.close;
 table1.open;
end;
end else begin
 TABLE1.Delete;
 if messageDlg('是否继续删除？,只有结束删除才能作其它操作!',mtinformation,[mbYes,mbNo],0)=mrno then begin
  filtered:=false;
 table1.close;
 table1.open;
end;
 end;
end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
with table1 do
 begin
 if messagedlg('注意，清空数据库需要特别细心，一旦数据丢失，后果不堪设想，清空前最好先导出数据以备份',mtinformation,[mbyes,mbno],0)=mryes then begin
 if messagedlg('再次提醒，确实要清空吗，请慎重！',mtinformation,[mbyes,mbno],1)=mryes then begin
 active:=false;
 table1.EmptyTable;
 active:=true;
 end else showmessage('记录内容未被清除，可以继续使用！');
 end else showmessage('记录内容未被清除，可以继续使用！');
end;
 end;
end.