?? gf_ffxjh.pas

?? 省級集郵品管理ERP
?? PAS
?? 第 1 頁 / 共 5 頁
字號:
12 3 4 5 下一頁

{*******************************************************}
{                                                       }
{             郵資封片發行計劃和發行量計劃              }
{                                                       }
{            中軟金馬公司版權所有。2002.12前            }
{                                                       }
{               編制：中軟金馬項目開發組                }
{                                                       }
{                                                       }
{*******************************************************}
(*
本模塊在省級系統管理、省級綜合查詢兩個模塊調用
*)
unit GF_ffxjh;

interface

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

type
  old_tu = record
    old_tu_jhh: string;
    old_tu_tx: string;
  end;

type
  curr_con = record
    taoname: string;
    taolsname: string;
    taocaconame: string;
    tuname: string;
    tulsname: string;
    tucaconame: string;
    titlestr: string;
  end;

  TFrmf_ffxjh = class(TForm)
    ActionList1: TActionList;
    Act_add: TAction;
    Act_delete: TAction;
    Act_modify: TAction;
    Act_save: TAction;
    Act_cancel: TAction;
    Act_exit: TAction;
    Act_print: TAction;
    ImageList1: TImageList;
    Panel1: TPanel;
    BBt_add: TBitBtn;
    BBt_dte: TBitBtn;
    BBt_mfy: TBitBtn;
    BBt_sve: TBitBtn;
    BBt_cel: TBitBtn;
    BBt_rrn: TBitBtn;
    BBt_pnt: TBitBtn;
    Act_select: TAction;
    BitBtn2: TBitBtn;
    Act_send_fx: TAction;
    Act_send_fxl: TAction;
    DS_pfxjhtao: TDataSource;
    Qry_pfxjhtao: TQuery;
    Qry_pfxjhtaoJHH: TStringField;
    Qry_pfxjhtaoBBH: TFloatField;
    Qry_pfxjhtaoQXBZ: TStringField;
    Qry_pfxjhtaoND: TStringField;
    Qry_pfxjhtaoXH: TStringField;
    Qry_pfxjhtaoPPLB: TStringField;
    Qry_pfxjhtaoTZDM: TStringField;
    Qry_pfxjhtaoTMC: TStringField;
    Qry_pfxjhtaoQTMS: TFloatField;
    Qry_pfxjhtaoQTMZ: TFloatField;
    Qry_pfxjhtaoFXRQ: TDateTimeField;
    Qry_pfxjhtaoPZR: TStringField;
    Qry_pfxjhtaoZBR: TStringField;
    Qry_pfxjhtaoZBRQ: TDateTimeField;
    Qry_pfxjhtaoBZ: TStringField;
    Qry_pfxjhtaoSDATEFX: TDateTimeField;
    Qry_pfxjhtaoSDATEFXL: TDateTimeField;
    Qry_pfxjhtaoPPLBMC: TStringField;
    Qry_pfxjhtaoTZDMMC: TStringField;
    Qry_pfxjhtaoXGZT: TStringField;
    Qry_pfxjhtaoZT: TStringField;
    Upd_pfxjhtao: TUpdateSQL;
    Qry_tzdm: TQuery;
    DS_tzdm: TDataSource;
    DS_pplb: TDataSource;
    Qry_pplb: TQuery;
    Upd_pfxjhtu: TUpdateSQL;
    DS_pfxjhtu: TDataSource;
    Qry_pfxjhtu: TQuery;
    Qry_pfxjhtuJHH: TStringField;
    Qry_pfxjhtuBBH: TFloatField;
    Qry_pfxjhtuTZDM: TStringField;
    Qry_pfxjhtuTX: TFloatField;
    Qry_pfxjhtuTBBH: TFloatField;
    Qry_pfxjhtuQXBZ: TStringField;
    Qry_pfxjhtuPPLB: TStringField;
    Qry_pfxjhtuTUMC: TStringField;
    Qry_pfxjhtuMZ: TFloatField;
    Qry_pfxjhtuSJ: TFloatField;
    Qry_pfxjhtuGG: TStringField;
    Qry_pfxjhtuWXGG: TStringField;
    Qry_pfxjhtuBZ: TStringField;
    Qry_pfxjhtuXGZT: TStringField;
    Qry_pfxjhtuFXL: TFloatField;
    Qry_pfxjhtuZT: TStringField;
    Qry_pfxjhtaoTPSJ: TFloatField;
    Qry_pfxjhtaoFXL: TFloatField;
    Qry_pfxjhtuFXRQ: TDateTimeField;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    PopupMenu1: TPopupMenu;
    Act_fs_all: TAction;
    Act_fs_any: TAction;
    Act_fxl_all: TAction;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    Act_fxl_any: TAction;
    N6: TMenuItem;
    N7: TMenuItem;
    Act_fx_all: TAction;
    Act_fx_any: TAction;
    Panel2: TPanel;
    XttxTitle: TRxLabel;
    Label11: TLabel;
    SpinEdit1: TSpinEdit;
    GBo_tu: TGroupBox;
    Label26: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label25: TLabel;
    Label15: TLabel;
    Label3: TLabel;
    DBEit_tu_bz: TDBMemo;
    DBEit_tu_tumc: TDBEdit;
    DBEit_tu_sj: TDBEdit;
    DBEit_tu_mz: TDBEdit;
    DBEit_tu_wxgg: TDBEdit;
    DBEit_tu_tx: TDBEdit;
    DBEit_tu_fxl: TDBEdit;
    DBEit_tu_gg: TDBEdit;
    DBDEit_tu_fxrq: TDBDateEdit;
    GBo_tao: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label13: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    DBEit_tao_nd: TDBEdit;
    DBEit_tao_xh: TDBEdit;
    DBEit_tao_mc: TDBEdit;
    DBEit_tao_qtms: TDBEdit;
    DBEit_tao_qtmz: TDBEdit;
    DBLCB_tao_pplb: TDBLookupComboBox;
    DBLCB_tao_tz: TDBLookupComboBox;
    DBDEit_tao_fxrq: TDBDateEdit;
    DBEit_tao_bz: TDBMemo;
    DBEit_tao_tpsj: TDBEdit;
    DBEit_tao_fxl: TDBEdit;
    Pel_dbgrid: TPanel;
    Splitter1: TSplitter;
    DBGid_tu: TDBGrid;
    DBGid_tao: TDBGrid;
    Label12: TLabel;
    CBo_mzdwtao: TComboBox;
    Label14: TLabel;
    CBo_mzdwtu: TComboBox;
    CBo_ta: TCheckBox;
    Query1: TQuery;
    Qry_pfxjhtuZH: TStringField;
    Qry_pfxjhtuYZBB: TStringField;
    Qry_pfxjhtaoZH: TStringField;
    DBEdit1: TDBEdit;
    Label16: TLabel;
    BitBtn1: TBitBtn;
    DBLCBo_tao_pzr: TDBEdit;
    DWMC: TLabel;
    procedure Act_addExecute(Sender: TObject);
    procedure Act_deleteExecute(Sender: TObject);
    procedure Act_modifyExecute(Sender: TObject);
    procedure Act_saveExecute(Sender: TObject);
    procedure Act_cancelExecute(Sender: TObject);
    procedure Act_exitExecute(Sender: TObject);
    procedure Act_printExecute(Sender: TObject);
    procedure Act_selectExecute(Sender: TObject);
    procedure Act_fs_allExecute(Sender: TObject);
    procedure Act_fs_anyExecute(Sender: TObject);
    procedure Act_fxl_allExecute(Sender: TObject);
    procedure Act_fxl_anyExecute(Sender: TObject);
    procedure Act_fx_allExecute(Sender: TObject);
    procedure Act_fx_anyExecute(Sender: TObject);
    
    procedure DBGid_taoEnter(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGid_taoMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure SpinEdit1Change(Sender: TObject);
    procedure Qry_pfxjhtaoTPSJGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure Qry_pfxjhtaoTPSJSetText(Sender: TField; const Text: String);
    procedure Qry_pfxjhtaoQTMZGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure Qry_pfxjhtaoQTMZSetText(Sender: TField; const Text: String);
    procedure Qry_pfxjhtuFXLGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure Qry_pfxjhtuFXLSetText(Sender: TField; const Text: String);
    procedure Qry_pfxjhtuMZGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure Qry_pfxjhtuMZSetText(Sender: TField; const Text: String);
    procedure Qry_pfxjhtuSJGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure Qry_pfxjhtuSJSetText(Sender: TField; const Text: String);
    procedure Qry_pfxjhtaoAfterScroll(DataSet: TDataSet);
    procedure Qry_pfxjhtuAfterScroll(DataSet: TDataSet);
    procedure DBGid_taoTitleClick(Column: TColumn);
    procedure CBo_taClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBEit_tao_xhKeyPress(Sender: TObject; var Key: Char);
    procedure DBEit_tu_txKeyPress(Sender: TObject; var Key: Char);
    procedure DBGid_tuTitleClick(Column: TColumn);
    procedure CBo_mzdwtuChange(Sender: TObject);
    procedure CBo_mzdwtaoChange(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    VLp_status: integer;
      //0......初始狀態（瀏覽）
      //1......add編輯狀態
      //2......查詢結果瀏覽狀態
      //3......edit編輯狀態
    VLp_FocusGrid: TDBGrid;
      //.tag=0......套
      //.tag=1......圖
    vlp_stao_jhh: string[10];
    vlp_itu_tx: integer;
    vlp_oldtuval: old_tu;
    vlp_b_isfxl: boolean;///act_fx_all、act_fx_any——發送發行信息 or 發行量信息
    procedure SetEditStatus(SubMod: integer; SelectedRowsCount: integer=1);
      //0......初始狀態（瀏覽）
      //1......編輯狀態
      //2......查詢結果瀏覽狀態
    function CheckChanged: boolean;
    procedure SumTao(P_S_TX: string='');
    { Private declarations }
  public
    { Public declarations }
    function ffxjhExec(DB: TDataBase): boolean;
  end;


var
  Frmf_ffxjh: TFrmf_ffxjh;

implementation

uses datas,Pub, GF_select, GF_pub, GF_print, GF_img;

{$R *.DFM}

function TFrmf_ffxjh.CheckChanged: boolean;
begin
  result := true;
  if (VLp_status = 1) or (VLp_status = 3) then
    case CHQMsgBox('數據已經發生改變，是否保存所做修改？', 3) of
    IDYes:
      begin
        Act_saveExecute(nil);
        if (VLp_status = 0) then
        begin
          Qry_pfxjhtao.Close;
          Qry_pfxjhtu.Close;
          Qry_pplb.Close;
          Qry_tzdm.Close;
//          Qry_pzr.Close;

          data.Qry_send.Close;
          data.Qry_super.Close;
          data.Qry_sub.Close;

          DS_pfxjhtao.DataSet := Qry_pfxjhtao;
          DS_pfxjhtu.DataSet := Qry_pfxjhtu;
        end else
          result := false;
      end;
    IDNo:
      begin
        Act_cancelExecute(nil);
        Qry_pfxjhtao.Close;
        Qry_pfxjhtu.Close;
        Qry_pplb.Close;
        Qry_tzdm.Close;
//        Qry_pzr.Close;

        data.Qry_send.Close;
        data.Qry_super.Close;
        data.Qry_sub.Close;

        DS_pfxjhtao.DataSet := Qry_pfxjhtao;
        DS_pfxjhtu.DataSet := Qry_pfxjhtu;
      end;
    IDCancel:
      result := false;
    end
  else
  begin
    Qry_pfxjhtao.Close;
    Qry_pfxjhtu.Close;
    Qry_pplb.Close;
    Qry_tzdm.Close;
//    Qry_pzr.Close;

    data.Qry_send.Close;
    data.Qry_super.Close;
    data.Qry_sub.Close;

    DS_pfxjhtao.DataSet := Qry_pfxjhtao;
    DS_pfxjhtu.DataSet := Qry_pfxjhtu;
  end;
end;

function TFrmf_ffxjh.ffxjhExec(DB: TDataBase): boolean;
begin
  Result := true;
  try
    Caption := CYZPPTIT;
    DWMC.Caption := '使用單位：' + VG_UnitName;
    vlp_stao_jhh := '';
    vlp_itu_tx := 0;
    vlp_FocusGrid := DBGid_tao;
    Qry_pfxjhtao.Close;
    Qry_pfxjhtao.DataBaseName := DB.DatabaseName;
    Qry_pfxjhtu.Close;
    Qry_pfxjhtu.DataBaseName := DB.DatabaseName;
    Qry_pplb.Close;
    Qry_pplb.DataBaseName := DB.DatabaseName;
    Qry_pplb.Open;
    Qry_tzdm.Close;
    Qry_tzdm.DataBaseName := DB.DatabaseName;
    Qry_tzdm.Open;
//    Qry_pzr.Close;
//    Qry_pzr.DataBaseName := DB.DatabaseName;
//    qry_pzr.Open;
    Query1.Close;
    Query1.DataBaseName := DB.DatabaseName;

    DS_pfxjhtao.DataSet := Qry_pfxjhtao;
    DS_pfxjhtu.DataSet := Qry_pfxjhtu;
    data.Qry_super.Close;
    data.Qry_sub.Close;
    SetEditStatus(0,-3);

    SpinEdit1.Text := VG_s_Year;
    Qry_pfxjhtao.Open;

    Qry_pfxjhtu.Open;
  except
    Result := false;
    CHQMsgBox('不能打開<封片發行計劃>表!');
  end;
end;

procedure TFrmf_ffxjh.SetEditStatus(SubMod: integer; SelectedRowsCount: integer=1);
//submod:
//0......初始狀態（瀏覽）
//1......add編輯狀態
//2......查詢結果瀏覽狀態
//3......edit編輯狀態
//4......multiselected
12 3 4 5 下一頁
?? 文件大小 4913 K
?? 上傳用戶 ljw128
?? 所屬分類企業管理
??? 相關標簽

#ERP
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? gf_ffxjh.pas

?? 快捷鍵說明
