ctrtj.pas

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

unit ctrtj;

interface

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

type
  TdrsrtjForm = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Query1: TQuery;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  drsrtjForm: TdrsrtjForm;

implementation

uses dataproc, ctbtj;

{$R *.DFM}

procedure TdrsrtjForm.FormCreate(Sender: TObject);
var i:integer;
begin
     dbsrtjForm.Caption:=Caption+formatdatetime('yyyy-mm-dd ',now);
     shortdateformat:='yyyy-mm-dd';
     Query1.Active :=false;
     Query1.sql.clear;
     Query1.SQL.text:='insert into ctdb.dbo.lslsctnowin select '' '','+lc+','' '',1,sum(money),'''+formatdatetime('yyyy-mm-dd hh:mm',now)+''',null,'''+'合计'+''',sum(bjf),sum(cf),sum(fwf),sum(hj),100,sum(zke),sum(jme),sum(ssmoney),0,0,0,''00'','' '','' '','' '','' '','''+curper.curbc+''' from ctdb.dbo.lslsctnowin where  lc='+lc+' group by lc';
     Query1.ExecSQL;
     Query1.Active :=false;
     Query1.sql.clear;
     Query1.SQL.text:='select djcode,tabno,BegTime,bjf,cf,fwf,hj,zkl,zke,jme,ssmoney,ismfwf,ismbjf,ismcf,mode.name,gzno,hdno,czy from ctdb.dbo.lslsctnowin,mode where mode.code=ctdb.dbo.lslsctnowin.JzFs and lc='+lc;
     Query1.Open;
     if not Query1.Eof then
     begin
        DataSource1.DataSet:=Query1;
        chinesegrid(dbgrid1);
        DBGrid1.fields[0].displaylabel:=' 单号';
        DBGrid1.fields[1].displaylabel:=' 桌号';
        DBGrid1.fields[2].displaylabel:='登记时间';
        DBGrid1.fields[3].displaylabel:='包间费';
        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.fields[10].displaylabel:='实收款';
        DBGrid1.fields[11].displaylabel:='免服务费';
        DBGrid1.fields[12].displaylabel:='免包间费';
        DBGrid1.fields[13].displaylabel:='免餐费';
        DBGrid1.fields[14].displaylabel:='结帐';
        DBGrid1.fields[16].displaylabel:='挂帐手号';
        dbgrid1.Columns[1].width:=60;
//     dbgrid1.Columns[2].width:=80;
        for i:=3 to 10 do dbgrid1.Columns[i].width:=50;
        for i:=11 to 13 do  dbgrid1.Columns[i].width:=40;
          dbgrid1.Columns[14].width:=30;
   end;

end;

procedure TdrsrtjForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     Query1.Active :=false;
     Query1.sql.clear;
     Query1.SQL.text:='delete from ctdb.dbo.lslsctnowin where  lc='+lc+' and djcode='''+'合计'+'''';
     Query1.ExecSQL;
     Query1.Active :=false;
     Query1.sql.clear;

end;

end.