groupjz.pas

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

unit groupjz;

interface

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

type
  Tgroupjzform = class(TForm)
    Label1: TLabel;
    name: TComboBox;
    Bevel1: TBevel;
    GroupBox1: TGroupBox;
    Label5: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label9: TLabel;
    GroupBox2: TGroupBox;
    Label21: TLabel;
    Label22: TLabel;
    Label24: TLabel;
    Label4: TLabel;
    Label8: TLabel;
    zk: TSpinEdit;
    GroupBox6: TGroupBox;
    xj: TRadioButton;
    card: TRadioButton;
    zp: TRadioButton;
    gz: TRadioButton;
    cardlist: TComboBox;
    mphone: TCheckBox;
    mfj: TCheckBox;
    Bevel3: TBevel;
    Label2: TLabel;
    jztime: TMaskEdit;
    mxf: TCheckBox;
    rm: TEdit;
    phonem: TEdit;
    xf: TEdit;
    tot: TEdit;
    Label3: TLabel;
    yjz: TEdit;
    yj: TEdit;
    js: TEdit;
    yf: TEdit;
    jy: TEdit;
    s1: TStoredProc;
    calbut: TButton;
    prnbut: TButton;
    jzbut: TButton;
    s2: TStoredProc;
    mmeet: TCheckBox;
    mgroupxf: TCheckBox;
    mbed: TCheckBox;
    GroupBox3: TGroupBox;
    Label6: TLabel;
    Label7: TLabel;
    meetmoney: TEdit;
    groupxfmoney: TEdit;
    Label11: TLabel;
    grouptot: TEdit;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    DBGrid4: TDBGrid;
    DBGrid5: TDBGrid;
    DBGrid: TDBGrid;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    groupmeet: TQuery;
    groupxf: TQuery;
    DataSource3: TDataSource;
    membermx: TQuery;
    DataSource4: TDataSource;
    memberrmmx: TQuery;
    DataSource5: TDataSource;
    memberxfmx: TQuery;
    DataSource6: TDataSource;
    memberzzmx: TQuery;
    TabSheet6: TTabSheet;
    DBGrid6: TDBGrid;
    memberphmx: TQuery;
    DataSource: TDataSource;
    Label12: TLabel;
    tyxfmoney: TEdit;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure calbutClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn3Click(Sender: TObject);
    procedure nameClick(Sender: TObject);
    procedure prnbutClick(Sender: TObject);
    procedure jzbutClick(Sender: TObject);
    procedure mmeetClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  groupjzform: Tgroupjzform;

implementation
uses dataproc, zdprint;

{$R *.DFM}

var
  groupno:string;ff,dh:boolean;

procedure formini;
var
  aa:array [0..5] of string;
begin
with groupjzform do
   begin
{   getvalue(aa,'select calonermbeg,calonermend,calhalfrmbeg,calhalfrmend,calnormbeg,calnormend from syssetup');
   if (time()>=strtotime(aa[0])) and (time()<strtotime(aa[1])) then
      calone.Checked :=true;
   if (time()>=strtotime(aa[2])) and (time()<strtotime(aa[3])) then
      calhalf.Checked :=true;
   if (time()>=strtotime(aa[4])) and (time()<strtotime(aa[5])) then
      nocal.Checked :=true;   }
   meetmoney.text:='0';
   groupxfmoney.text:='0';
   tyxfmoney.text:='0';
   grouptot.text:='0';
   rm.text:='0';
   phonem.Text :='0';
   xf.text:='0';
   yjz.text:='0';
   tot.text:='0';
   yj.text:='0';
   js.text:='0';
   yf.text:='0';
   jy.text:='0';
   zk.Value :=100;
   mmeet.Checked :=false;
   mgroupxf.Checked :=false;
   mfj.Checked :=false;
   mbed.Checked :=false;
   mphone.Checked :=false;
   mxf.Checked :=false;
   xj.Checked :=true;
   jztime.text:=datetimetostr(now);
   end;
end;

procedure cal;
var
  d:double;
begin
with groupjzform do
   begin
   grouptot.Text :=floattostr(strtofloat(trim(meetmoney.text))+strtofloat(trim(groupxfmoney.text))+strtofloat(trim(tyxfmoney.text)));
   tot.text:=floattostr(strtofloat(trim(rm.text))+strtofloat(trim(phonem.text))+strtofloat(trim(xf.text))+strtofloat(trim(yjz.text)));
   d:=0;
   if (mmeet.Checked =false) then
      d:=d+strtofloat(trim(meetmoney.text));
   if (mgroupxf.Checked =false) then
      d:=d+strtofloat(trim(groupxfmoney.text));
   if (not mfj.Checked) and ff then
      d:=d+strtofloat(trim(rm.text));
   if (mphone.Checked =false) and dh then
      d:=d+strtofloat(trim(phonem.text));
   if mxf.Checked =false then
      d:=d+strtofloat(trim(tyxfmoney.text));
   yf.text:=floattostr(int(d*zk.Value)/100);
   jy.Text :=floattostr(strtofloat(trim(yj.text))-d+strtofloat(trim(js.text)));
   end
end;

procedure groupcal;
begin
end;

procedure seemx;
begin
with groupjzform do
  begin
  //pagecontrol1.ActivePage :=pagecontrol1.Pages [0]
  groupmeet.Active :=false;
  groupmeet.sql.clear;
  groupmeet.sql.add('select sum(meetmoney) from Groupmeet where groupid=:pid');
  groupmeet.ParamByName ('pid').asstring:=trim(groupno);
  groupmeet.Prepare ;
  groupmeet.open;
  meetmoney.Text:=floattostr(groupmeet.Fields[0].AsCurrency);
  groupmeet.sql.clear;
  groupmeet.sql.add('select meetno,meetmoney,meettime from Groupmeet where groupid=:pid');
  groupmeet.ParamByName ('pid').asstring:=trim(groupno);
  groupmeet.Prepare ;
  groupmeet.open;
  chinesegrid(dbgrid);
  groupxf.Active :=false;
  groupxf.sql.clear;
  groupxf.sql.add('select sum(money) from groupcustom where groupid=:pid');
  groupxf.ParamByName ('pid').asstring:=trim(groupno);
  groupxf.Prepare;
  groupxf.open;
  groupxfmoney.Text:=floattostr(groupxf.Fields[0].AsCurrency);
  groupxf.sql.clear;
  groupxf.sql.add('select cusname,money,isxj,ismd,regtime from groupcustom where groupid=:pid');
  groupxf.ParamByName ('pid').asstring:=trim(groupno);
  groupxf.Prepare;
  groupxf.open;
  chinesegrid(dbgrid1);
  //pagecontrol1.ActivePage :=pagecontrol1.Pages [1]
  membermx.active:=false;
  membermx.sql.clear;
  membermx.sql.add('select MemberNowIn.roomno,name,lssex.sexname,begtime,endtime,RmMoney,PhoneMoney,PayMoney from MemberNowIn,Memberguestmx,lssex where (Memberguestmx.sex=lssex.sex) and(MemberNowIn.welid=Memberguestmx.welid) and (isgroup=1) and (groupid=:pid)');
  membermx.ParamByName ('pid').asstring:=trim(groupno);
  membermx.Prepare;
  membermx.open;
  chinesegrid(dbgrid2);
  //pagecontrol1.ActivePage :=pagecontrol1.Pages [2]
  memberrmmx.Active :=false;
{  memberrmmx.sql.clear;
  memberrmmx.sql.add('select sum(rmmoney) from lsnowin where (isgroup=1) and (groupid=:pid)');
  memberrmmx.ParamByName ('pid').asstring:=trim(groupno);
  memberrmmx.open;
  rm.Text:=floattostr(memberrmmx.Fields[0].AsCurrency);
  memberrmmx.sql.clear;
  memberrmmx.sql.add('select sum(money) from lschangeroom where welid in (select welid from lsnowin where (isgroup=1) and (groupid=:pid))');
  memberrmmx.ParamByName ('pid').asstring:=trim(groupno);
  memberrmmx.open;
  rm.Text:=floattostr(strtofloat(rm.Text)+memberrmmx.Fields[0].AsCurrency);
}
  memberrmmx.sql.clear;
  memberrmmx.sql.add('select sum(rmmoney) from membernowin where isgroup=1 and groupid=:pid');
  memberrmmx.ParamByName ('pid').asstring:=trim(groupno);
  memberrmmx.open;
  rm.Text:=floattostr(memberrmmx.Fields[0].AsCurrency);
  memberrmmx.sql.clear;
  memberrmmx.sql.add('select sum(money) from memberchangeroom where welid in (select welid from membernowin where (isgroup=1) and (groupid=:pid))');
  memberrmmx.ParamByName ('pid').asstring:=trim(groupno);
  memberrmmx.open;
  rm.Text:=floattostr(strtofloat(rm.Text)+memberrmmx.Fields[0].AsCurrency);
  memberrmmx.sql.clear;
  memberrmmx.sql.add('select sum(money) from memberchangeroom where welid in (select welid from membernowin where (isgroup=1) and (groupid=:pid))');
  memberrmmx.ParamByName ('pid').asstring:=trim(groupno);
  memberrmmx.Prepare;
  memberrmmx.open;
  memberrmmx.sql.clear;
  memberrmmx.sql.add('select a.roomno,b.name,c.sexname,a.isbj,a.istime,a.begtime,a.acctime,a.endtime,a.rmmoney,a.phonemoney from lsnowin a ,lsguestmx b,lssex c where (a.welid=b.welid) and (b.sex=c.sex) and (a.isgroup=1) and (a.groupid=:pid)');
  memberrmmx.sql.add('union (select  d.roomno,e.name,f.sexname,d.isbj,d.istime,d.acctime,d.acctime,d.endtime,d.money as rmmoney,d.phonemoney from lschangeroom d,lsguestmx e,lssex f');
  memberrmmx.sql.add('where (d.welid=e.welid) and (e.sex=f.sex) and (d.welid in (select welid from lsnowin where (isgroup=1) and (groupid=:pid))))');
  memberrmmx.sql.add('union (select  g.roomno,h.name,i.sexname,g.isbj,g.istime,g.begtime,g.acctime,g.endtime,g.rmmoney,g.phonemoney  from membernowin g ,lsguestmx h,lssex i where (g.welid=h.welid) and (h.sex=i.sex) and (g.isgroup=1) and (g.groupid=:pid))');
  memberrmmx.sql.add('union (select  j.roomno,k.name,l.sexname,j.isbj,j.istime,j.acctime,j.acctime,j.endtime,j.money ,j.phonemoney');
  memberrmmx.sql.add('from memberchangeroom j,guestmx k,lssex l where (j.welid=k.welid) and (k.sex=l.sex) and (j.welid in (select welid from membernowin where (isgroup=1) and (groupid=:pid))))');
  memberrmmx.ParamByName ('pid').asstring:=trim(groupno);
  memberrmmx.Prepare;
  memberrmmx.open;
  chinesegrid(dbgrid3);
  //pagecontrol1.ActivePage :=pagecontrol1.Pages [3]
  memberphmx.Active :=false;
{  memberphmx.sql.clear;
  memberphmx.sql.add('select sum(jloe) from lst04 where welid in (select welid from lsnowin where (isgroup=1) and (groupid=:pid))');
  memberphmx.ParamByName ('pid').asstring:=trim(groupno);
  memberphmx.open;
  phonem.Text:=floattostr(memberphmx.Fields[0].AsCurrency);  }
  memberphmx.sql.clear;
  memberphmx.sql.add('select sum(jloe) from membert04 where welid in (select welid from membernowin where (isgroup=1) and (groupid=:pid))');
  memberphmx.ParamByName ('pid').asstring:=trim(groupno);
  memberphmx.Prepare;
  memberphmx.open;
  phonem.Text:=floattostr(memberphmx.Fields[0].AsCurrency);
  memberphmx.sql.clear;
  memberphmx.sql.add('select RoomNo,Lsdate,Djhbhd,hbfw,fujb,fuwu,jloe,djqxmq');
  memberphmx.sql.add('from lst04 where (welid in (select welid from lsnowin where (isgroup=1) and (groupid=:pid)))');
  memberphmx.sql.add('union (select RoomNo,Lsdate,Djhbhd,hbfw,fujb,fuwu,jloe,djqxmq');
  memberphmx.sql.add('from membert04 where (welid in (select welid from membernowin where (isgroup=1) and (groupid=:pid))))');
  memberphmx.ParamByName ('pid').asstring:=trim(groupno);
  memberphmx.Prepare;
  memberphmx.open;
  chinesegrid(dbgrid4);
  //pagecontrol1.ActivePage :=pagecontrol1.Pages [4]
  memberxfmx.Active :=false;
{  memberxfmx.sql.clear;
  memberxfmx.sql.add('select sum(money) from lscustom where welid in (select welid from lsnowin where (isgroup=1) and (groupid=:pid)) and not substring(custype,1,2) in (select Custype from GroupZfCus where Groupid=:pid)');
  memberxfmx.ParamByName ('pid').asstring:=trim(groupno);
  memberxfmx.Prepare;
  memberxfmx.open;
  xf.Text:=floattostr(memberxfmx.Fields[0].AsCurrency);  }
  memberxfmx.sql.clear;
  memberxfmx.sql.add('select sum(money) from membercustom where welid in (select welid from membernowin where (isgroup=1) and (groupid=:pid)) and not substring(custype,1,2) in (select Custype from GroupZfCus where Groupid=:pid)');
  memberxfmx.ParamByName ('pid').asstring:=trim(groupno);
  memberxfmx.Prepare;
  memberxfmx.open;
  xf.Text:=floattostr(memberxfmx.Fields[0].AsCurrency);