gzfkcxunit.pas

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

unit gzfkcxUnit;

interface

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

type
  TgzfkcxForm = class(TForm)
    Panel1: TPanel;
    zh: TEdit;
    dw: TEdit;
    fksjc: TDateTimePicker;
    Panel2: TPanel;
    Query1: TQuery;
    DataSource1: TDataSource;
    qkze: TLabel;
    Label2: TLabel;
    fksjd: TDateTimePicker;
    Panel3: TPanel;
    Button1: TButton;
    isdw: TCheckBox;
    iszh: TCheckBox;
    TabControl1: TTabControl;
    DBGrid1: TDBGrid;
    isrq: TCheckBox;
    lx: TComboBox;
    Label1: TLabel;
    GroupBox1: TGroupBox;
    Label5: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    gzze: TEdit;
    fkze: TEdit;
    jme: TEdit;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    gz: TEdit;
    fk: TEdit;
    jm1: TEdit;
    GroupBox3: TGroupBox;
    Label9: TLabel;
    fkr: TEdit;
    Label10: TLabel;
    jsr: TEdit;
    Label11: TLabel;
    fke: TEdit;
    dfhhh: TLabel;
    jm: TEdit;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Button2: TButton;
    DBEdit1: TDBEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure gzzeKeyPress(Sender: TObject; var Key: Char);
    procedure TabControl1Change(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure iszhClick(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  gzfkcxForm: TgzfkcxForm;

implementation

{$R *.DFM}
uses dataproc;
var bx:array[0..1] of string;
    tj0,tj1:string;
procedure TgzfkcxForm.FormCreate(Sender: TObject);
begin
   bx[0]:=' zhanghao ';bx[1]:=' 帐号 ';
   fksjc.DateTime:=now;
   fksjc.DateTime:=now-1;
   zh.Text:='';
   dw.Text:='';fkze.Text:='';
   jme.Text:=''; gzze.Text:='';
   addoldcom(lx,'gzlx','gzdb');
   TabControl1Change(nil);
end;

procedure TgzfkcxForm.Button1Click(Sender: TObject);
begin

 close;

end;

procedure TgzfkcxForm.gzzeKeyPress(Sender: TObject; var Key: Char);
begin
  key:=#0;
end;

procedure TgzfkcxForm.TabControl1Change(Sender: TObject);
var tj0,tj1:string;
begin
  jm.Text:='';
  jsr.Text:='';
  fkr.Text:='';
  fke.Text:='';
  DBEdit1.DataField:='';
  if (iszh.Checked) and (trim(zh.Text)<>'') then
  begin
    if trim(tj0)<>'' then tj0:=tj0+' and ';
    tj0:=tj0+' zhanghao>='''+trim(zh.text)+''' and zhanghao<'''+trim(zh.text)+char(255)+'''';
    if trim(tj1)<>'' then tj1:=tj1+' and ';
    tj1:=tj1+' 帐号>='''+trim(zh.text)+''' and 帐号<'''+trim(zh.text)+char(255)+'''';
  end;
  if (isdw.Checked) and (trim(dw.Text)<>'') then
  begin
    if trim(tj0)<>'' then tj0:=tj0+' and ';
    tj0:=tj0+' zhanghao in (select zhanghao from zhdb where dwname>='''+trim(dw.text)+''' and dwname<'''+trim(dw.text)+char(255)+''')';
    if trim(tj1)<>'' then tj1:=tj1+' and ';
    tj1:=tj1+' 帐号 in (select zhanghao from zhdb where dwname>='''+trim(dw.text)+''' and dwname<'''+trim(dw.text)+char(255)+''')';
  end;
  if (isrq.Checked) then
  begin
    if trim(tj0)<>'' then tj0:=tj0+' and ';
    tj0:=tj0+' rq>='''+formatdatetime('yyyy-mm-dd',fksjc.Date)+''' and rq<='''+formatdatetime('yyyy-mm-dd',fksjd.Date)+' 23:59:59'+'''';
    if trim(tj1)<>'' then tj1:=tj1+' and ';
    tj1:=tj1+' 付款时间>='''+formatdatetime('yyyy-mm-dd',fksjc.Date)+''' and 付款时间<='''+formatdatetime('yyyy-mm-dd',fksjd.Date)+'''';
  end;
  if trim(lx.Text)<>'' then
  begin
    if trim(tj0)<>'' then tj0:=tj0+' and ';
    tj0:=tj0+' gzlx='''+trim(lx.text)+'''';
  end;
  query1.Active:=false;
  query1.SQL.Clear;
  query1.SQL.Add('select sum(yshj) from gzdb ');
  if trim(tj0)<>'' then query1.SQL.Add(' where '+tj0);
  query1.Open;
  gzze.Text:=query1.Fields[0].AsString;
  query1.SQL.Clear;
  query1.SQL.Add('select sum(付款金额),sum(减免额) from 挂帐付款明细 ');
  if trim(tj1)<>'' then query1.SQL.Add(' where '+tj1);
  query1.Open;
  fkze.Text:=query1.Fields[0].AsString;
  jme.Text:=query1.Fields[1].AsString;
  case TabControl1.TabIndex of
  0:begin
     query1.SQL.Clear;
     query1.SQL.Add('select zhanghao,(select dwname from zhdb where zhanghao=gzdb.zhanghao) as 单位,rq,cdh,yshj,sfjz,skr from gzdb ');
     if trim(tj0)<>'' then query1.SQL.Add(' where '+tj0);
     query1.SQL.Add(' order by '+bx[0]);
  end;
  1:begin
     query1.SQL.Clear;
     query1.SQL.Add('select * from 挂帐付款明细 ');
     if trim(tj1)<>'' then query1.SQL.Add(' where '+tj1);
     query1.SQL.Add(' order by '+bx[1]);
  end;
  end;
  query1.Open;
  DBEdit1.DataField:='单位';
  ChineseGrid(dbgrid1);
end;

procedure TgzfkcxForm.DBGrid1TitleClick(Column: TColumn);
begin
  if bx[TabControl1.TabIndex]=Column.Fieldname then
    bx[TabControl1.TabIndex]:=Column.Fieldname+' DESC '
  else
    bx[TabControl1.TabIndex]:=Column.Fieldname;
  TabControl1Change(nil);
end;

procedure TgzfkcxForm.iszhClick(Sender: TObject);
begin
  zh.Enabled:=iszh.Checked;
  dw.Enabled:=isdw.Checked;
  fksjc.Enabled:=isrq.Checked;
  fksjd.Enabled:=isrq.Checked;
  TabControl1Change(nil);
end;

procedure TgzfkcxForm.DataSource1DataChange(Sender: TObject;
  Field: TField);
begin
  GroupBox2.Caption:=query1.Fields[0].AsString+'帐户';
  GroupBox3.Caption:=query1.Fields[0].AsString+'帐户新增付款';
  fm.query2.Active:=false;
  fm.query2.SQL.Clear;
  fm.query2.SQL.Add('select sum(yshj) from gzdb where zhanghao='''+query1.Fields[0].AsString+''' ');
  fm.query2.Open;
  gz.Text:=fm.query2.Fields[0].AsString;
  fm.query2.SQL.Clear;
  fm.query2.SQL.Add('select sum(付款金额),sum(减免额) from 挂帐付款明细 where 帐号='''+query1.Fields[0].AsString+'''');
  fm.query2.Open;
  fk.Text:=fm.query2.Fields[0].AsString;
  jm1.Text:=fm.query2.Fields[1].AsString;
  fm.query2.Active:=false;
  fm.query2.SQL.Clear;
end;

procedure TgzfkcxForm.Button2Click(Sender: TObject);
begin
  if Button2.Caption='新增付款' then
  begin
    TabControl1.Enabled:=false;
    Panel1.Enabled:=false;
    GroupBox3.Enabled:=true;
    Button2.Caption:='确定';
  end
  else
  begin
    TabControl1.Enabled:=true;
    Panel1.Enabled:=true;
    GroupBox3.Enabled:=false;
    Button2.Caption:='新增付款';
    if trim(jm.Text)='' then jm.Text:='0';
    if trim(fke.Text)='' then
    begin
      jm.Text:='';
      jsr.Text:='';
      fkr.Text:='';
      exit;
    end;
    fm.query2.Active:=false;
    fm.query2.SQL.Clear;
    fm.query2.SQL.Add('insert into 挂帐付款明细 (帐号,单位,负责人,付款时间,付款金额,减免额,付款人,经手人,操作员,付款流水帐号)');
    fm.query2.SQL.Add(' select '''+trim(query1.Fields[0].AsString)+''','''+trim(DBEdit1.Field.AsString)+''',fzr,'''+formatdatetime('yyyy-mm-dd',now)+''','+trim(fke.Text)+','+trim(jm.text)+','''+trim(fkr.text)+''','''+trim(jsr.text)+''','''+trim(curper.name)+''','''+formatdatetime('yyyyMMddhhmmss',now)+''' from zhdb where zhanghao='''+trim(query1.Fields[0].AsString)+'''');
    fm.query2.Prepare;
    fm.query2.ExecSQL;
    fm.query2.Active:=false;
    fm.query2.SQL.Clear;
    jm.Text:='';
    jsr.Text:='';
    fkr.Text:='';
    TabControl1Change(nil);
  end;
end;

end.