⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 sy_jypxxwh.pas

📁 省级集邮品管理ERP
💻 PAS
📖 第 1 页 / 共 4 页
字号:
🔍
1234 

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

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, {MyDBImage, } extdlgs, RXCtrls, Spin, jpeg, clipbrd, sqlstrings  ;


type
  old_mei = record
    old_mei_tdm: string;
    old_mei_mdm: string;
  end;
  TFrm_jyp = 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;
    DS_tao: TDataSource;
    Qry_tao: TQuery;
    Upd_tao: TUpdateSQL;
    Qry_tzdm: TQuery;
    DS_tzdm: TDataSource;
    DS_pplb: TDataSource;
    Qry_pplb: TQuery;
    DS_mei: TDataSource;
    Qry_mei: TQuery;
    Panel2: TPanel;
    Pel_dbgrid: TPanel;
    Splitter1: TSplitter;
    DBGid_mei: TDBGrid;
    DBGid_tao: TDBGrid;
    Panel3: TPanel;
    Splitter2: TSplitter;
    Qry_super: TQuery;
    Qry_sub: TQuery;
    Qry_taoTDM: TStringField;
    Qry_taoYPLB: TStringField;
    Qry_taoTZ: TStringField;
    Qry_taoZH: TStringField;
    Qry_taoMC: TStringField;
    Qry_taoDW: TStringField;
    Qry_taoCB: TFloatField;
    Qry_taoZK: TFloatField;
    Qry_taoSJ: TFloatField;
    Qry_taoZZDW: TStringField;
    Qry_taoFXDW: TStringField;
    Qry_taoFXRQ: TDateTimeField;
    Qry_taoFXL: TFloatField;
    Qry_taoTC: TStringField;
    Qry_taoBZ: TStringField;
    Qry_taoSDATE: TDateTimeField;
    Qry_taoMC_1: TStringField;
    Qry_taoMC_2: TStringField;
    Qry_meiTDM: TStringField;
    Qry_meiMDM: TStringField;
    Qry_meiZH: TStringField;
    Qry_meiMC: TStringField;
    Qry_meiDW: TStringField;
    Qry_meiCB: TFloatField;
    Qry_meiZK: TFloatField;
    Qry_meiSJ: TFloatField;
    Qry_meiYPMZ: TFloatField;
    Qry_meiYPMS: TFloatField;
    Qry_meiZZDW: TStringField;
    Qry_meiFXDW: TStringField;
    Qry_meiFXRQ: TDateTimeField;
    Qry_meiFXL: TFloatField;
    Qry_meiYCSJZ: TStringField;
    Qry_meiJYPSJZ: TStringField;
    Qry_meiJYPSYZ: TStringField;
    Qry_meiBZ: TStringField;
    Qry_meiSDATE: TDateTimeField;
    Panel4: TPanel;
    RxLabel1: TRxLabel;
    DWMC: TLabel;
    SpinEdit1: TSpinEdit;
    Qry_TA: TQuery;
    OpenPictureDialog1: TOpenPictureDialog;
    Table1: TTable;
    BBt_Send: TBitBtn;
    Qry_send1: TQuery;
    Qry_send: TQuery;
    Act_send: TAction;
    GBo_mei: TGroupBox;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label28: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    Label40: TLabel;
    SpeedButton1: TSpeedButton;
    Label42: TLabel;
    Label43: TLabel;
    Label44: TLabel;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit19: TDBEdit;
    DBEdit20: TDBEdit;
    DBEdit21: TDBEdit;
    DBEdit23: TDBEdit;
    DBEdit24: TDBEdit;
    DBEdit25: TDBEdit;
    DBEdit26: TDBEdit;
    DBDateEdit2: TDBDateEdit;
    GBo_tao: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    SpeedButton2: TSpeedButton;
    Label45: TLabel;
    Label46: TLabel;
    Label47: TLabel;
    Label49: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    DBDateEdit1: TDBDateEdit;
    ScrollBox1: TScrollBox;
    DBMemo2: TDBMemo;
    Image1: TImage;
    Panel5: TPanel;
    Image2: TImage;
    Upd_mei: TUpdateSQL;
    DBMemo1: TDBMemo;
    RB_no_nd: TRadioButton;
    Label6: TLabel;
    rb_Nd: TRadioButton;
    CBo_tao: TCheckBox;
    Label7: TLabel;
    DBLCbox_DL: TDBLookupComboBox;
    Qry_DL: TQuery;
    DS_DL: TDataSource;
    DS_fxdw: TDataSource;
    CB_jkp: TCheckBox;
    Query1: TQuery;
    Qry_fxdw: TQuery;
    DBLookupComboBox3: TDBLookupComboBox;
    Label8: TLabel;
    DBEdit5: TDBEdit;
    Label14: TLabel;
    bbtSaveAs: TBitBtn;
    sdlData: TSaveDialog;
    Qry_taoFXDWMC: TStringField;
    Label17: TLabel;
    DBEdit6: TDBEdit;
    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 FormCreate(Sender: TObject);
    procedure DBGid_taoEnter(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Qry_taoCBGetText(Sender: TField; var Text: string;
      DisplayText: Boolean);
    procedure Qry_taoCBSetText(Sender: TField; const Text: string);
    procedure SpinEdit1Change(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure CBo_taoClick(Sender: TObject);
    procedure Qry_taoAfterScroll(DataSet: TDataSet);
    procedure Qry_meiAfterScroll(DataSet: TDataSet);
    procedure Act_sendExecute(Sender: TObject);
    procedure RB_no_ndClick(Sender: TObject);
    procedure rb_NdClick(Sender: TObject);
    procedure DBLookupComboBox1Click(Sender: TObject);
    procedure DBLookupComboBox2Click(Sender: TObject);
    procedure DBLCbox_DLCloseUp(Sender: TObject);
    procedure CB_jkpClick(Sender: TObject);
    procedure DBLookupComboBox3Click(Sender: TObject);
    procedure bbtSaveAsClick(Sender: TObject);
  private
    VLp_status: integer;
      //0......初始状态（浏览）
      //1......add编辑状态
      //2......查询结果浏览状态
      //3......edit编辑状态
    VLp_FocusGrid: TDBGrid;
      //.tag=0......套
      //.tag=1......枚
    vlp_stao_tdm: string[15];
    vlp_smei_mdm: string[15];
    vlp_oldmeival: old_mei;
    vlp_b_isfxl: boolean; ///act_fx_all、act_fx_any——发送发行信息 or 发行量信息

    function CheckExit(): boolean;
    function ExistRecord(Tablenamestr, Conditionstr: string): boolean;
    procedure SetEditStatus(SubMod: integer; SelectedRowsCount: integer = 1);
      //0......初始状态（浏览）
      //1......编辑状态
      //2......查询结果浏览状态
    { Private declarations }
    procedure Save_Tao_Pic; {保存套信息}
    procedure Save_Mei_Pic; {保存图信息}
    procedure AddBaseZDJH; //邮品根据征订增加
    procedure DoGenTDM;
    procedure DcJyp(tdms: string); //s

  public
    Lio_typ: TIO_TYPE;
    { Public declarations }
    function Execute(const DB: TDatabase): boolean;

  end;


var
  Frm_jyp: TFrm_jyp;

implementation

uses
  datas, Pub,SY_JYPXXWH_yd, GF_img;

var
  Target_name: string;

{$R *.DFM}

function TFrm_jyp.CheckExit(): boolean;
begin
  result := true;
  if (VLp_status <> 0) then
    case CHQMsgBox('确定要放弃所做修改吗？', 3) of
      IDNo:
        begin
          Act_saveExecute(nil);
          if VLp_status = 0 then
          begin
            Qry_tao.Close;
            Qry_mei.Close;
            Qry_DL.Close;
            Qry_pplb.Close;
            Qry_tzdm.Close;
            Qry_super.Close;
            Qry_sub.Close;
          end
          else
            result := false;
        end;
      IDYes:
        begin
          Act_cancelExecute(nil);
          Qry_tao.Close;
          Qry_mei.Close;
          Qry_DL.Close;
          Qry_pplb.Close;
          Qry_tzdm.Close;
          Qry_super.Close;
          Qry_sub.Close;
        end;
      IDCancel:
        result := false;
    end
  else
  begin
    Qry_tao.Close;
    Qry_mei.Close;
    Qry_DL.Close;
    Qry_pplb.Close;
    Qry_tzdm.Close;
    Qry_super.Close;
    Qry_sub.Close;
  end;
end;

function TFrm_jyp.Execute(const DB: TDatabase): boolean;
begin
  Result := false;
  if not Assigned(DB) then
    exit;
{$IFDEF qmd}
  Caption := '邮资票品管理信息系统——系统维护';
{$ELSE}
  Caption := '邮资票品管理信息系统——邮品业务';
{$ENDIF}
  RxLabel1.Caption := '集邮品基础信息维护';

  DWMC.Caption := '使用单位：' + VG_UnitName;

  try
    Qry_tao.Close;
    Qry_tao.DatabaseName := DB.DatabaseName;
    SpinEdit1.Value := VG_Year;
    Qry_mei.Close;
    Qry_mei.DatabaseName := DB.DatabaseName;
    Qry_mei.Open;

    Qry_DL.Close;
    Qry_DL.DatabaseName := DB.DatabaseName;
    Qry_DL.Open;
    Qry_tzdm.Close;
    Qry_tzdm.DatabaseName := DB.DatabaseName;
    Qry_tzdm.Open;
    DS_tao.DataSet := Qry_tao;
    DS_mei.DataSet := Qry_mei;
    qry_fxdw.Open;
    Qry_super.Close;
    Qry_super.DatabaseName := DB.DatabaseName;
    Qry_sub.Close;
    Qry_sub.DatabaseName := DB.DatabaseName;
    Qry_send.CLose;
    Qry_send1.DataBaseName := DB.DataBaseName;
    Qry_send1.CLose;
    Qry_send.DataBaseName := DB.DataBaseName;
    DBGid_taoEnter(DBGid_tao);
    Result := true;
  except
    CHQMsgBox('不能打开 <邮品基础信息> 表！');
    exit;
  end;
end;

function TFrm_jyp.ExistRecord(Tablenamestr, Conditionstr: string): boolean;
begin
  with Qry_super do
  begin
    CLose;
    SQL.Clear;
    SQL.Add('Select count(*) from ' + Tablenamestr + ' Where ' + Conditionstr);
    Open;
    ExistRecord := (Fields[0].Asinteger > 0);
  end;

end;

procedure TFrm_jyp.SetEditStatus(SubMod: integer; SelectedRowsCount: integer = 1);
//submod:
//0......初始状态（浏览）
//1......add编辑状态
//2......查询结果浏览状态
//3......edit编辑状态
//4......multiselected

var
  vl_b_tao, vl_b_mei: boolean;
  i: integer;
begin
//设置button状态
  RB_no_nd.Enabled := (SubMod = 0);
  rb_Nd.Enabled := (SubMod = 0);
  SpinEdit1.ReadOnly := (SubMod <> 0);
  if (SubMod = 4) then
    if (SelectedRowsCount > 0) then
    begin
      Act_add.Enabled := (SelectedRowsCount = 1);
      Act_delete.Enabled := (SelectedRowsCount = 1);
      Act_modify.Enabled := (SelectedRowsCount = 1);
      exit;
    end
    else
    begin
      Act_add.Enabled := true;
      Act_delete.Enabled := true;
      Act_modify.Enabled := true;
      Act_send.Enabled := false;
      exit;
    end;

  VLp_status := SubMod;

//设置DBGrid状态
  if (vlp_FocusGrid = DBGid_tao) then
    DBGid_tao.TitleFont.Color := clnavy
  else
    DBGid_tao.TitleFont.Color := clblack;

  if (VLp_FocusGrid = DBGid_mei) then
    DBGid_mei.TitleFont.Color := clnavy
  else
    DBGid_mei.TitleFont.Color := clblack;

//设置字段“修改状态”的显示
  if SelectedRowsCount < 0 then
  begin
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -