dqsrcx.pas

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

unit dqsrcx;

interface

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

type
  Tdqsrcxform = class(TForm)
    q1: TQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    s1: TStoredProc;
    Panel2: TPanel;
    Label2: TLabel;
    Label5: TLabel;
    begdate: TDateTimePicker;
    begtime: TDateTimePicker;
    enddate: TDateTimePicker;
    endtime: TDateTimePicker;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    Panel1: TPanel;
    cx: TCheckBox;
    SpeedButton2: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure cxClick(Sender: TObject);
    procedure begdateChange(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dqsrcxform: Tdqsrcxform;

implementation
uses dataproc, srcxprt;

{$R *.DFM}

function hdq(dd:string;k:integer):string;
begin
   hdq:=copy(copy('                   ',1,k)+trim(dd),length(trim(dd))+1,k);

end;



procedure formini;
begin
with dqsrcxform do
begin
  if cx.Checked then
  begin
  s1.Prepare;
  s1.ParamByName ('@lsbegtime').asstring:=datetostr(begdate.Date)+' '+timetostr(begtime.time);
  s1.ParamByName ('@lsendtime').asstring:=datetostr(enddate.Date)+' '+timetostr(endtime.time);
  s1.Prepare;
  s1.ExecProc ;
  q1.Active :=false;
  q1.sql.clear;
  q1.sql.Add('select * from jkmoney ');
  q1.Prepare;
  q1.open;
  DBGrid1.fields[0].displaylabel:=' 名称  ';
  DBGrid1.fields[1].displaylabel:=' 数量';
  DBGrid1.fields[2].displaylabel:=' 现金';
//  DBGrid1.fields[3].displaylabel:=' 会员卡';
  DBGrid1.fields[3].Visible:=false;
  DBGrid1.fields[4].displaylabel:=' 支票';
  DBGrid1.fields[5].displaylabel:=' 信用卡';
  DBGrid1.fields[6].displaylabel:=' 挂帐';
  DBGrid1.fields[7].displaylabel:=' 免单';
  DBGrid1.fields[8].displaylabel:=' 其他';
  DBGrid1.fields[9].displaylabel:=' 小计';
  dbgrid1.Columns[1].width:=40;
  dbgrid1.Columns[2].width:=80;
 // dbgrid1.Columns[3].width:=70;
  dbgrid1.Columns[4].width:=70;
  dbgrid1.Columns[5].width:=70;
  dbgrid1.Columns[6].width:=70;
  dbgrid1.Columns[7].width:=50;
  dbgrid1.Columns[8].width:=80;
  dbgrid1.Columns[0].width:=80;
  BitBtn1.Enabled:=true;
  end;
end;
end;


procedure Tdqsrcxform.FormCreate(Sender: TObject);
begin
  shortdateformat:='yyyy-mm-dd';
  begdate.date:=now;
  begtime.Time:=strtotime('00:00');
  enddate.datetime:=now;
  endtime.datetime:=strtotime('23:59:59');

  formini;
end;


procedure Tdqsrcxform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  q1.Close;
//  q1.Free;
//  s1.free;
end;

procedure Tdqsrcxform.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
{  if key=13 then
     selectnext(activecontrol,true,true);}
  if key=112 then
  begin
     if xt=1 then  help(15);
  end;
  if key=27 then
     dqsrcxform.close;
end;

procedure Tdqsrcxform.cxClick(Sender: TObject);
begin
   formini;
   Panel1.Enabled:=false;


end;

procedure Tdqsrcxform.begdateChange(Sender: TObject);
begin
   cx.Checked:=false;
   Panel1.Enabled:=true;
   BitBtn1.Enabled:=false;
   q1.Close;
end;

procedure Tdqsrcxform.BitBtn1Click(Sender: TObject);
begin
     application.CreateForm(Tsrcxprintform,srcxprintform);
     srcxprintform.hide;
     srcxprintform.qr1.print;
//     srcxprintform.qr1.preview;
     srcxprintform.Close;
     srcxprintform.free;

end;

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

procedure Tdqsrcxform.SpeedButton2Click(Sender: TObject);
begin
     application.CreateForm(Tsrcxprintform,srcxprintform);
     srcxprintform.hide;
//     srcxprintform.qr1.print;
     srcxprintform.qr1.preview;
     srcxprintform.Close;
     srcxprintform.free;

end;

end.