jm_ydqktjb.pas

省级集邮品管理ERP

{*******************************************************}
{                                                       }
{                    预订情况统计                       }
{                                                       }
{            中软金马公司版权所有。2002.12前            }
{                                                       }
{            编制：中软金马邮资票品项目开发组           }
{                                                       }
{                                                       }
{*******************************************************}
(*
本模块在地市集邮票管理里面调用。

*)
unit JM_YDQKTJB;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, ComCtrls, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids, Spin,
  Mask, ActnList, DBCtrls, RXCtrls, ComboBoxDB, DBGridExport,
  Menus;

type
  TFrm_YDQKTJ = class(TForm)
    Panel1: TPanel;
    Qry_Xyydtj: TQuery;
    Ds_Xyydtj: TDataSource;
    Qry_Xyydqk: TQuery;
    StatusBar1: TStatusBar;
    Panel2: TPanel;
    Panel5: TPanel;
    DBGrid1: TDBGrid;
    Ds_Xyydqk: TDataSource;
    DBGrid2: TDBGrid;
    Label3: TLabel;
    ND: TSpinEdit;
    XttxTitle: TRxLabel;
    Panel7: TPanel;
    BBt_Find: TBitBtn;
    BBt_Send: TBitBtn;
    BBt_Quit: TBitBtn;
    BBt_Print: TBitBtn;
    BBt_scbb: TBitBtn;
    Qry_scbb: TQuery;
    Lbl_user: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure BBt_FindClick(Sender: TObject);
    procedure BBt_scbbClick(Sender: TObject);
    procedure Qry_XyydqkAfterOpen(DataSet: TDataSet);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
  public
  end;

var
  Frm_YDQKTJ: TFrm_YDQKTJ;

implementation
uses
  pub,JM_YDQKTJFX;
{$R *.DFM}

procedure TFrm_YDQKTJ.FormCreate(Sender: TObject);
begin
  ND.Value := VG_Year;
  Lbl_user.Caption := ' 操作者：' + VG_UserName;
  Caption := application.Title;
  GetAllColWidth(self);
end;

procedure TFrm_YDQKTJ.BBt_FindClick(Sender: TObject);
const
{  QuerySQL = 'select YDHS,YPSL,XZSL,JBSL,XBSL,YDJE/100 YDJE from TM_YDQKTJB '#13#10 +
    'where ND=''%d''';}
  QuerySQL = 'select b.ygdm,c.ygmc,count(a.NF) YDHS,sum(a.TPSL*b.SL) YPSL,sum(a.XZSL*b.SL) XZSL, ' +
    'sum(a.JBSL*b.SL) JBSL,sum(a.XBSL*b.SL) XBSL,sum(b.YFK*b.SL)/100 YDJE, sum(b.BZJ*b.SL)/100 BZJ ' +
    'from TM_YDZLB A, TM_JYMXB B,tgs_ryb c where A.ZLDM=B.YDLX and b.ygdm=c.ygdm and ' +
    'a.NF=''%d'' and b.JYLX=''yd'' and b.CZZT=''0'' group by a.NF,b.ygdm,c.ygmc';

  TotalSQL = 'select ''合计'' HJ,sum(YDHS) YDHS,sum(YPSL) YPSL,sum(XZSL) XZSL,sum(JBSL) JBSL,sum(XBSL) XBSL,sum(YDJE/100) YDJE,sum(BZJ/100) BZJ from TM_YDQKTJB'#13#10 +
    'where ND=''%d''';
begin
  with Qry_Xyydqk do
  begin
    Close;
    SQL.Clear;
    SQL.Add(Format(QuerySQL, [ND.Value]));
    Open;
  end;
  with Qry_Xyydtj do
  begin
    Close;
    SQL.Clear;
    SQL.Add(Format(TotalSQL, [ND.Value]));
    Open;
  end;
end;

procedure TFrm_YDQKTJ.BBt_scbbClick(Sender: TObject);
var
  v_s_sql: string;
begin
  v_s_sql := 'select count(*) from TM_YDQKTJB where ND=''' + ND.Text + '''';
  AssignSQLstr(Qry_scbb, v_s_sql);
  Qry_scbb.Open;
  if Qry_scbb.Fields[0].AsFloat > 0 then
  begin
    if CHQMsgBox('该年度的预订情况统计表已经生成，' + #13 +
      '是否继续并覆盖原来记录？', 2) = mrNo then
    begin
      BBt_FindClick(nil);
      exit;
    end
    else
    begin
      v_s_sql := 'delete from TM_YDQKTJB where ND=''' + ND.Text + '''';
      AssignSQLstr(Qry_scbb, v_s_sql);
      Qry_scbb.ExecSQL;
    end
  end;

  v_s_sql := 'insert into TM_YDQKTJB(DWDM,ND,YDHS,YPSL,XZSL,XBSL,JBSL,YDJE,BZJ,ZBR,ZBRQ) ' +
    'select ''' + VG_UnitID + ''',a.NF,count(a.NF) DHSL,sum(a.TPSL),sum(a.XZSL),' +
    'sum(a.XBSL),sum(a.JBSL),sum(b.YFK*b.SL),sum(b.BZJ*b.SL), ''' + VG_UserID + ''', sysdate ' +
    'from TM_YDZLB A, TM_JYMXB B where A.ZLDM=B.YDLX and ' +
    'A.NF=''' + ND.Text + ''' group by a.NF';
  AssignSQLstr(Qry_scbb, v_s_sql);
  Qry_scbb.ExecSQL;
  BBt_FindClick(nil);
end;

procedure TFrm_YDQKTJ.Qry_XyydqkAfterOpen(DataSet: TDataSet);
begin
  TNumericField(DataSet.FieldByName('YDHS')).DisPlayFormat := '#,##';
  TNumericField(DataSet.FieldByName('YPSL')).DisPlayFormat := '#,##';
  TNumericField(DataSet.FieldByName('XZSL')).DisPlayFormat := '#,##';
  TNumericField(DataSet.FieldByName('JBSL')).DisPlayFormat := '#,##';
  TNumericField(DataSet.FieldByName('XBSL')).DisPlayFormat := '#,##';
  TNumericField(DataSet.FieldByName('YDJE')).DisPlayFormat := '#,##0.00';

end;

procedure TFrm_YDQKTJ.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  SaveAllColWidth(self);
end;

end.