seerz.pas

集成酒店桑拿食管管理的完整程序

unit seerz;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, Db, DBTables, StdCtrls, ComCtrls, ExtCtrls, Buttons;

type
  TrzForm = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    ksdate: TDateTimePicker;
    kstime: TDateTimePicker;
    jsdate: TDateTimePicker;
    jstime: TDateTimePicker;
    Label1: TLabel;
    Query1: TQuery;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label2: TLabel;
    code: TEdit;
    BitBtn3: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure ksdateChange(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  rzForm: TrzForm;

implementation
uses dataproc;
{$R *.DFM}

procedure TrzForm.FormShow(Sender: TObject);
begin
  ksdate.DateTime:=now-1;
  kstime.Time:=strtotime('00:00');
  jsdate.DateTime:=now;
  jstime.DateTime:=now;
  code.Text:='';
  ksdateChange(nil);
end;

procedure TrzForm.ksdateChange(Sender: TObject);
begin
//select *,(select name from stuff where code=logo.code) as 姓名 from logo where [time]>:pbeg and [time]<:pend order by [time] desc
    Query1.Active:=false;
    Query1.SQL.Clear;
    Query1.SQL.Add('select *,(select name from stuff where code=logo.code) as 姓名 from logo where [time]>:pbeg and [time]<:pend and code like :code order by [time] desc');
    ksdate.Time:=kstime.Time;
    jsdate.Time:=jstime.Time;
    Query1.ParamByName('pbeg').asdatetime:=ksdate.DateTime;
    Query1.ParamByName('pend').asdatetime:=jsdate.DateTime;
    if trim(code.Text)='' then
    Query1.ParamByName('code').asstring:='%' else
    Query1.ParamByName('code').asstring:='%'+trim(code.Text);
    Query1.Open;
    DBGrid1.Columns[2].width:=120;
end;

procedure TrzForm.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure TrzForm.BitBtn1Click(Sender: TObject);
begin
  fm.Query2.Active:=false;
  fm.Query2.SQL.Clear;
  fm.Query2.SQL.Add('delete from logo where [time]>:pbeg and [time]<:pend');
  fm.Query2.ParamByName('pbeg').asdatetime:=ksdate.DateTime;
  fm.Query2.ParamByName('pend').asdatetime:=jsdate.DateTime;
  fm.Query2.ExecSQL;
  fm.Query2.Active:=false;
  fm.Query2.SQL.Clear;
  Query1.Active:=false;
  Query1.Open;

end;

end.