djyjcx.pas

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

unit DJyjCX;

interface

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

type
  Tdjyjcxform = class(TForm)
    Bevel1: TBevel;
    DBGrid1: TDBGrid;
    cxquery: TQuery;
    DataSource1: TDataSource;
    Panel2: TPanel;
    PopupMenu1: TPopupMenu;
    isfh: TCheckBox;
    issj: TCheckBox;
    begdate: TDateTimePicker;
    begtime: TDateTimePicker;
    enddate: TDateTimePicker;
    endtime: TDateTimePicker;
    Label1: TLabel;
    fh: TEdit;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Edit6: TEdit;
    Button2: TButton;
    Button1: TButton;
    N2: TMenuItem;
    s1: TStoredProc;
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure isfhClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  djyjcxform: Tdjyjcxform;

implementation
uses dataproc;
var dd:string;
{$R *.DFM}
procedure Tdjyjcxform.FormCreate(Sender: TObject);
begin
   shortdateformat:='yyyy-MM-dd';
   begdate.date:=now;
   begtime.Time:=strtotime('00:00');
   enddate.datetime:=now;
   endtime.datetime:=now;
   dd:='DepositTime';
   cxquery.sql.clear;
   cxquery.sql.Add('select sum(Deposit) from deposit ');
   cxquery.Open;
   edit6.text:=cxquery.Fields[0].asstring;
   cxquery.Active :=false;
   cxquery.sql.clear;
end;

procedure Tdjyjcxform.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=112 then
  begin
     if xt=1 then help(1);
     if xt=0 then help(3);
  end;
   if key=13 then
      selectnext(activecontrol,true,true);
   if key=27 then
      close;
end;

procedure Tdjyjcxform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  cxquery.Free;
end;

procedure Tdjyjcxform.Button1Click(Sender: TObject);
begin
   cxquery.Free;
   djyjcxform.close;

end;

procedure Tdjyjcxform.isfhClick(Sender: TObject);
begin
  fh.Enabled:=isfh.Checked;
  begdate.Enabled:=issj.Checked;
  begtime.Enabled:=issj.Checked;
  enddate.Enabled:=issj.Checked;
  endtime.Enabled:=issj.Checked;
end;

procedure Tdjyjcxform.Button2Click(Sender: TObject);
var tj,ftj:string;
begin
   DataSource1.DataSet:=nil;
   tj:='';ftj:='';
   if isfh.Checked then
   begin
     tj:=tj+' and  handno>='''+trim(fh.Text)+''' and handno<'''+trim(fh.Text)+chr(255)+'''';
   end;
   if issj.Checked then
   begin
     tj:=tj+' and DepositTime>='''+formatdatetime('yyyy-MM-dd',begdate.Date)+' '+formatdatetime('hh:mm:ss',begtime.Time)+''' and  DepositTime<='''+formatdatetime('yyyy-MM-dd',enddate.Date)+' '+formatdatetime('hh:mm:ss',endtime.Time)+'''';
   end;
   cxquery.Active :=false;
   cxquery.sql.clear;
   cxquery.sql.Add('select handno,AccNo,Welid,Deposit,DepositTime ');
   cxquery.sql.Add(' from deposit where Deposit<>0 '+tj+' order by '+dd);
   cxquery.Prepare;
   cxquery.Open;
   DataSource1.DataSet:=cxquery;
   chinesegrid(dbgrid1);
   cxquery.Active :=true;
end;

end.