jzcx.pas

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

unit jzcx;

interface

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

type
  Tjzcxform = class(TForm)
    Label1: TLabel;
    Bevel1: TBevel;
    Label2: TLabel;
    jztime: TMaskEdit;
    jzbut: TButton;
    PageControl1: TPageControl;
    sanjzmx: TQuery;
    DataSource: TDataSource;
    zh: TLabel;
    GroupBox2: TGroupBox;
    TabSheet1: TTabSheet;
    DBGrid2: TDBGrid;
    Edit1: TEdit;
    GroupBox6: TGroupBox;
    dw: TLabel;
    GroupBox1: TGroupBox;
    Label5: TLabel;
    Label15: TLabel;
    Label3: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label8: TLabel;
    rm: TMaskEdit;
    rcsm: TMaskEdit;
    sm: TMaskEdit;
    scsm: TMaskEdit;
    xm: TMaskEdit;
    hm: TMaskEdit;
    dhf: TMaskEdit;
    GroupBox3: TGroupBox;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label25: TLabel;
    Label4: TLabel;
    zk: TSpinEdit;
    ym: TMaskEdit;
    jj: TMaskEdit;
    mcs: TMaskEdit;
    yjm: TMaskEdit;
    mm: TEdit;
    GroupBox4: TGroupBox;
    xydw: TComboBox;
    mxf: TCheckBox;
    mfj: TCheckBox;
    jzfsname: TComboBox;
    jzfs: TComboBox;
    CheckBox1: TCheckBox;
    Button1: TButton;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    Label13: TLabel;
    czy: TLabel;
    DataSource1: TDataSource;
    Query1: TQuery;
    gzno: TComboBox;
    Label6: TLabel;
    djq: TMaskEdit;
    Query2: TQuery;
    Label7: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure jzbutClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  jzcxform: Tjzcxform;

implementation
uses dataproc,krxfmxunit, jzmxcxUnit;

{$R *.DFM}

var
  acc:string;
procedure formini;
begin
  with jzcxform do
  begin
   fm.Query2.Active:=false;
   fm.Query2.SQL.Clear;
   fm.Query2.SQL.Add('select * from lsjz where accno='''+trim(acc)+''' and (roommoney<>0 or sanmoney<>0 or ysmoney<>0)');
   fm.Query2.Prepare;
   fm.Query2.Open;
   rm.Text:=fm.Query2.Fieldbyname('roommoney').asstring;
   rcsm.Text:=fm.Query2.Fieldbyname('rmcsmoney').asstring;
   sm.Text:=fm.Query2.Fieldbyname('sanmoney').asstring;
   scsm.Text:=fm.Query2.Fieldbyname('sancsmoney').asstring;
   xm.Text:=fm.Query2.Fieldbyname('cusmoney').asstring;
   dhf.Text:=fm.Query2.Fieldbyname('phmoney').asstring;
   try
   hm.Text:=floattostr(fm.Query2.Fieldbyname('roommoney').asfloat+fm.Query2.Fieldbyname('rmcsmoney').asfloat+fm.Query2.Fieldbyname('sanmoney').asfloat+fm.Query2.Fieldbyname('sancsmoney').asfloat+fm.Query2.Fieldbyname('cusmoney').asfloat);
   except
   end;
   yjm.Text:=fm.Query2.Fieldbyname('yjmoney').asstring;
   mcs.Text:=fm.Query2.Fieldbyname('mcsmoney').asstring;
   zk.Text:=fm.Query2.Fieldbyname('rmzkmoney').asstring;
   jj.Text:=fm.Query2.Fieldbyname('jjmoney').asstring;
   mm.Text:=fm.Query2.Fieldbyname('mmmoney').asstring;
   ym.Text:=fm.Query2.Fieldbyname('ysmoney').asstring;
   djq.Text:=fm.Query2.Fieldbyname('djqmoney').asstring;
   sanjzmx.Active:=false;
   sanjzmx.SQL.Clear;
   sanjzmx.SQL.Add('select name from mode where code='''+trim(jzfs.Text)+'''');
   sanjzmx.Prepare;
   sanjzmx.Open;
   jzfsname.Text:=sanjzmx.Fields[0].AsString;
   if  fm.Query2.Fieldbyname('ismf').asboolean then
   mfj.Checked:=true else  mfj.Checked:=false;
   if  fm.Query2.Fieldbyname('ismxf').asboolean then
   mxf.Checked:=true else  mxf.Checked:=false;
   czy.Caption:=fm.Query2.Fieldbyname('czy').asstring;
  // jzfs.ItemIndex:=ctjzmx.Fieldbyname('jzfs').asstring;
  // jzfsname.Text:='记帐';//jzfsname.Items[jzfs.ItemIndex];

   sanjzmx.Active:=false;
   sanjzmx.SQL.Clear;
   sanjzmx.SQL.Add('select HandNo as 手号,(select sexname from lssex where lssex.sex=lscustom.sex) as 类型,(select cusname from cusitem where cusitem.Cuscode=lscustom.Cuscode) as 消费项目,');
   sanjzmx.SQL.Add(' CusPrice as 单价,CusNum as 数量,Money 合计,IsXj as 现金,IsMd as 免单,(select name from mode where code=jzfs)as 结帐方式,djcode as 消费单号,Proid as 专业,czy as 操作员,jsj as 站点,Regtime  from lscustom where accno='''+trim(acc)+''' order by djcode,HandNo');
   sanjzmx.Prepare;
   sanjzmx.Open;
   ChineseGrid(DBGrid2);
   Tbooleanfield(sanjzmx.Fieldbyname('免单')).displayvalues:='是;否';
   Tbooleanfield(sanjzmx.Fieldbyname('现金')).displayvalues:='是;否';
   Query1.Active:=false;
   Query1.SQL.Clear;
   Query1.SQL.Add('select roomno as 房号,roomprice as 房价,truntime as 周转,isnull((select cal from lschangeroom where accno='''+trim(acc)+''' and handno=roomno),1) as 计算,money as 金额,csmoney as 超时金额,czy as 操作员,accno as 帐号,welid from lsnowin where accno='''+trim(acc)+'''');
  // Query1.SQL.Add('union (select handno as 房号,roomprice as 房价,turntime as 周转,isbj 包间,money as 金额,csmoney as 超时金额,null as 操作员,accno as 帐号,welid from lschangeroom where accno='''+trim(acc)+''')');
   Query1.Prepare;
   Query1.Open;
   tbooleanfield(DBGrid1.Fields[3]).displayvalues:='是;否';
   query2.Active:=false;
   query2.SQL.Add('select max(pzr) from lsnowin where  accno='''+trim(acc)+'''');
   query2.Prepare;
   query2.Open;
   Label7.Caption:=query2.Fields[0].asstring;
  // ChineseGrid(DBGrid1);
  end;
end;
procedure Tjzcxform.FormCreate(Sender: TObject);
begin
    shortdateformat:='yyyy-MM-dd';
    sanjzmx.Active :=false;
    sanjzmx.sql.Clear ;
    sanjzmx.sql.add('select * from mode');
    sanjzmx.Prepare;
    sanjzmx.open;
    jzfsname.Items.Clear;
    jzfs.Items.Clear;
    while not sanjzmx.Eof do
    begin
      jzfs.Items.Add(sanjzmx.FieldByName('Code').asstring);
      jzfsname.Items.Add(sanjzmx.FieldByName('name').asstring);
      sanjzmx.Next;
    end;
   acc:=JZmxcxForm.query1.fieldbyname('accno').asstring;
  // gzno.Text:=JZmxcxForm.query1.fieldbyname('gzno').asstring;
   fm.Query2.Active:=false;
   fm.Query2.SQL.Clear;
   fm.Query2.SQL.Add('select * from lsjz where accno='''+trim(acc)+'''');
   fm.Query2.Prepare;
   fm.Query2.Open;
   edit1.Text:= fm.Query2.Fieldbyname('handno').asstring;
   jztime.Text:= fm.Query2.Fieldbyname('jztime').asstring;
   jzfs.Text:=fm.Query2.Fieldbyname('jzfs').asstring;
   gzno.Text:=fm.query2.fieldbyname('gzno').asstring;
   Query1.Active:=false;
   Query1.SQL.Clear;
   Query1.SQL.Add('select dwname from zhdb where zhanghao='''+trim(gzno.Text)+'''');
   Query1.Prepare;
   Query1.Open;
   xydw.Text:=Query1.fieldbyname('dwname').asstring;
   formini;
end;

procedure Tjzcxform.jzbutClick(Sender: TObject);
begin
   close;
end;

end.