jm_srcx.pas

省级集邮品管理ERP

{*******************************************************}
{                                                       }
{                      收入查询                         }
{                                                       }
{            中软金马公司版权所有。2002.12前            }
{                                                       }
{            编制：中软金马邮资票品项目开发组           }
{                                                       }
{                                                       }
{*******************************************************}
(*
本模块在地市集邮票管理，地市集邮品管理，地市市场购入票里面调用。

*)
unit JM_SRCX;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  dbtables, StdCtrls, RXCtrls, ExtCtrls, Mask, ToolEdit, Grids,
  DBGrids, Buttons, Db, DBGridExport, Menus, JM_data;

type
  P_DM = ^T_DM;
  T_DM = record
    dm: string;
  end;

type
  Tfrm_SRCX = class(TForm)
    Panel4: TPanel;
    XttxTitle: TRxLabel;
    Lbl_user: TLabel;
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    DateEdit1: TDateEdit;
    DateEdit2: TDateEdit;
    Label2: TLabel;
    CB_ygdm: TComboBox;
    BitBtn1: TBitBtn;
    DBG_srcx: TDBGrid;
    Qry_find: TQuery;
    DataSource1: TDataSource;
    Qry_findYFK: TFloatField;
    Qry_findLS: TFloatField;
    Qry_findLS_1: TFloatField;
    Qry_findTB: TFloatField;
    Qry_findCKLS: TFloatField;
    Qry_findHK: TFloatField;
    Qry_findYGDM: TStringField;
    Qry_findYGMC: TStringField;
    Label3: TLabel;
    Qry_findSUM: TFloatField;
    BitBtn2: TBitBtn;
    Qry_findTBZJ: TFloatField;
    Qry_findBZJ: TFloatField;
    Qry_findGBF: TFloatField;
    Qry_findQTFY: TFloatField;
    procedure BitBtn1Click(Sender: TObject);
    procedure Qry_findYFKGetText(Sender: TField; var Text: string;
      DisplayText: Boolean);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
    function Execute(const DB: TDataBase; p_ISQH: TQH_TYPE): Boolean;
  end;

var
  frm_SRCX: Tfrm_SRCX;

implementation

uses datas,pub;

{$R *.DFM}

function Tfrm_SRCX.Execute(const DB: TDataBase; p_ISQH: TQH_TYPE): Boolean;
  procedure SetYGDMLB;
  var
    v_pdm: P_DM;
    i: Integer;
  begin
    new(v_pdm);
    v_pdm.dm := '';
    CB_ygdm.Items.AddObject('全部', TObject(v_pdm));
    AssignSQLstr(data.qrytmp, 'select YGDM, YGMC from TGS_RYB where YGDM in( select YGDM from TM_YYYYEB)');
    data.qrytmp.Open;
    while not data.qrytmp.Eof do
    begin
      new(v_pdm);
      v_pdm.dm := data.qrytmp.FieldByName('YGDM').AsString;
      CB_ygdm.Items.AddObject(data.qrytmp.Fieldbyname('YGMC').asstring + '(' + data.qrytmp.FieldByName('YGDM').AsString + ')', TObject(v_pdm));
      if v_pdm.dm = VG_UserID then
        i := CB_ygdm.Items.Count - 1;
      data.qrytmp.Next;
    end;
    if p_ISQH = is_Q then
    begin
      CB_ygdm.ItemIndex := i;
      CB_ygdm.Enabled := false;
    end else
      CB_ygdm.ItemIndex := 0;
  end;
begin
  Result := false;
  if not Assigned(DB) then
    exit;
  try
    Qry_find.close;
    Qry_find.databasename := DB.DatabaseName;
    lbl_user.Caption := '操作员：' + VG_UserName;
    Caption := application.Title;
    Result := true;

    DateEdit1.Date := GetSYSdate;
    DateEdit2.Date := GetSYSdate;
    SetYGDMLB;
  except
    CHQMsgBox('不能打开 <集邮门市交易明细> 表 ！');
    exit;
  end;

end;

procedure Tfrm_SRCX.BitBtn1Click(Sender: TObject);
var
  v_s_sql: string;
begin
  v_s_sql := 'select a.*,(nvl(YFK,0)+ nvl(BZJ,0) + nvl(GBF,0) + nvl(QTFY,0) + nvl(LS,0) + nvl(JS,0) - nvl(TB,0) + nvl(CKLS,0) + nvl(HK,0) - nvl(TBZJ,0)) sum, b.YGMC ' +
    'from (select YGDM, sum(YFK) YFK, sum(BZJ) BZJ, sum(GBF) GBF, sum(QTFY) QTFY, sum(LS) LS, sum(JS) JS, sum(TB) TB, sum(CKLS) CKLS, sum(HK) HK, sum(TBZJ) TBZJ ' +
    'from VW_JYMXB where to_char(JYRQ, ''YYYYMMDD'') >=''' + FormatDateTime('YYYYMMDD', DateEdit1.Date) +
    ''' and to_char(JYRQ, ''YYYYMMDD'') <=''' + FormatDateTime('YYYYMMDD', DateEdit2.Date) +
    ''' group by YGDM) a, TGS_RYB b where a.YGDM(+)=b.YGDM ';
  if not ((CB_ygdm.Enabled) and (CB_ygdm.ItemIndex = 0)) then
    v_s_sql := v_s_sql + 'and a.YGDM=''' + P_DM(CB_ygdm.Items.Objects[CB_ygdm.ItemIndex])^.dm + '''';
  AssignSQLstr(Qry_find, v_s_sql);
  Qry_find.Open;
end;

procedure Tfrm_SRCX.Qry_findYFKGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
begin
  CurrGetText(Sender, Text, DisplayText);
end;

procedure Tfrm_SRCX.BitBtn2Click(Sender: TObject);
begin
  Close;
end;

procedure Tfrm_SRCX.FormCreate(Sender: TObject);
begin
  GetAllColWidth(self);
end;

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

end.