sy_jypxxwh_yd.pas

省级集邮品管理ERP

{*******************************************************}
{                                                       }
{             集邮票信息管理--选择发行计划              }
{                                                       }
{            中软金马公司版权所有。2002.12前            }
{                                                       }
{               编制：中软金马项目开发组                }
{                                                       }
{                                                       }
{*******************************************************}
(*
本模块在省级市场购入票管理、省级集邮品管理、省级系统管理、
地市集邮品管理、地市市场购入票管理 五个模块调用
*)
unit SY_JYPXXWH_yd;

interface

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

type
  Tfrm_JYPXXWH_yd = class(TForm)
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Query1: TQuery;
    DataSource1: TDataSource;
    Query1JHH: TStringField;
    Query1ND: TStringField;
    Query1XH: TStringField;
    Query1JYPLB: TStringField;
    Query1TZDM: TStringField;
    Query1DW: TStringField;
    Query1TMC: TStringField;
    Query1TJC: TStringField;
    Query1QTMS: TFloatField;
    Query1CB: TFloatField;
    Query1QTSJ: TFloatField;
    Query1FXRQ: TDateTimeField;
    Query1JHFXL: TFloatField;
    Query1FXDWDM: TStringField;
    Query1FXDWMC: TStringField;
    Query1PZR: TStringField;
    Query1ZBR: TStringField;
    Query1ZBRQ: TDateTimeField;
    Query1BZ: TStringField;
    Query1SDATEFX: TDateTimeField;
    Query2: TQuery;
    DataSource2: TDataSource;
    Query2JHH: TStringField;
    Query2MXH: TFloatField;
    Query2PPLB: TStringField;
    Query2DW: TStringField;
    Query2TUMC: TStringField;
    Query2TUJC: TStringField;
    Query2CB: TFloatField;
    Query2SJ: TFloatField;
    Query2JHFXL: TFloatField;
    Query2BZ: TStringField;
    Query2SDATEFX: TDateTimeField;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    procedure BitBtn1Click(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
  private
    { Private declarations }
  public
    ND:String;
    function jypxx_ydExEcute(Const DB: TDataBase; tagVal: integer): boolean;
    //i_tot:0_tao;1_tu
    { Public declarations }

  end;

var
  frm_JYPXXWH_yd: Tfrm_JYPXXWH_yd;

implementation
uses datas,Pub;

{$R *.DFM}

function Tfrm_JYPXXWH_yd.jypxx_ydExEcute(Const DB: TDataBase; tagVal: integer): boolean;
begin
  result := false;
  if not Assigned(DB) then
    exit;
  try
    self.Tag := tagval;
    query1.close;
    query1.databasename := db.databasename;
    if ND <>'' then
    begin
      ND:='select JHH, ND, XH, JYPLB, TZDM, DW, TMC, TJC, QTMS, CB, QTSJ, FXRQ, JHFXL, FXDWDM, FXDWMC, PZR, ZBR, ZBRQ, BZ, SDATEFX from TF_YPFXJHTAO WHERE ND='''+ND+'''order by ND';
      Query1.SQL.Clear;
      Query1.SQL.Add(ND);
    end;
    query1.open;
    Result := true;
  except
    CHQMsgBox('不能打开<集邮品征订计划表>!');
    exit;
  end;
end;

procedure Tfrm_JYPXXWH_yd.BitBtn1Click(Sender: TObject);
begin
  case tag of
  0:
    if query1.IsEmpty then
      ModalResult := mrCancel
    else
      ModalResult := mrOK;
  1:
    if Query2.IsEmpty then
      ModalResult := mrCancel
    else
      ModalResult := mrOK;
  end;
end;

procedure Tfrm_JYPXXWH_yd.PageControl1Change(Sender: TObject);
begin
  query2.close;
  Query2.DatabaseName :=Query1.DatabaseName;
  Query2.SQL.Clear;
  Query2.SQL.Add('select JHH, MXH, PPLB, DW, TUMC, TUJC, CB, SJ, JHFXL, BZ, SDATEFX from TF_YPFXJHM where JHH=:JHH order by to_number(MXH)');
  Query2.Prepared:=True;
  Query2.ParamByName('JHH').AsString:=Query1.FieldByName('JHH').AsString;
  Query2.open;
end;

end.