unit19.pas

以学习为目的,使用DIPH开发而成,功能强大,是我们的老师提供的!

unit Unit19;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Db, DBTables;

type
  TForm19 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Button4: TButton;
    Button6: TButton;
    Button7: TButton;
    Label7: TLabel;
    Image1: TImage;
    Button8: TButton;
    Table1: TTable;
    Timer1: TTimer;
    ComboBox1: TComboBox;
    CheckBox1: TCheckBox;
    Label8: TLabel;
    ComboBox2: TComboBox;
    Table2: TTable;
    Table3: TTable;
    Table4: TTable;
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form19: TForm19;
  user:array[1..60] of string;
implementation

uses Unit21;

{$R *.DFM}

procedure TForm19.Button6Click(Sender: TObject);
begin
  close;
end;

procedure TForm19.Button7Click(Sender: TObject);
var
s:string;
begin
button8.click;
s:=inputbox('只对客房用户服务！','请输入房间号：','');
if s<>'' then
begin
table4.First;
while not table4.Eof do
begin
if s=table4.FieldByName('fh').asstring then
break;
table4.Next;
end;
if table4.Eof then
begin
showmessage('房间号错误。');
exit;
end;
table4.Edit;
if checkbox1.Checked then
table4.FieldByName('bz').asstring:=table4.FieldByName('bz').asstring+datetimetostr(now)+'游泳（免服务费）'
else
 begin
 table4.FieldByName('bz').asstring:=table4.FieldByName('bz').asstring+datetimetostr(now)+'游泳:'+edit5.Text;
 table4.FieldByName('fw').asfloat:=table4.FieldByName('fw').asfloat+strtofloat(edit5.text);
 end;
table4.Post;

end;
end;

procedure TForm19.Timer1Timer(Sender: TObject);
begin
edit1.Text:=datetimetostr(now);
end;

procedure TForm19.FormCreate(Sender: TObject);
begin
table1.First;
while not table1.eof do
begin
combobox1.Items.Add(table1.fieldbyname('ph').asstring);
table1.Next;
end;
end;

procedure TForm19.Button4Click(Sender: TObject);
begin
if combobox1.Text<>'' then
begin
table1.FindKey([combobox1.text]);
user[strtoint(combobox1.Text)]:=datetimetostr(now);
table1.Edit;
table1.FieldByName('zt').asboolean:=true;
table1.Post;
combobox2.Items.Add(combobox1.Items[combobox1.itemindex]);
combobox1.Items.Delete(combobox1.itemindex);
end;
end;

procedure TForm19.Button8Click(Sender: TObject);
begin
if combobox2.Text='' then exit;
edit2.Text:=user[strtoint(combobox2.text)];
edit3.text:=datetimetostr(now);
edit4.Text:=inttostr(trunc(now)-trunc(strtodatetime(edit2.Text)));
table1.FindKey([combobox2.text]);
if checkbox1.Checked then
edit5.Text:=floattostr(table1.fieldbyname('jg').asfloat*strtofloat(edit4.text)*table3.fieldbyname('yy').asfloat)
else
edit5.Text:=floattostr(table1.fieldbyname('jg').asfloat*strtoint(edit4.text));
combobox1.Items.Add(combobox2.Items[combobox2.itemindex]);
combobox2.Items.Delete(combobox2.itemindex);
table2.Append;
table2.Edit;
table2.FieldByName('lb').asstring:='游泳';
table2.FieldByName('rq').asdatetime:=now;
table2.FieldByName('sr').asfloat:=strtofloat(edit5.text);
table2.Post;
end;

end.