sj_bhxxcx.pas

省级集邮品管理ERP

{*******************************************************}
{                                                       }
{                   版号信息查询                        }
{                                                       }
{            中软金马公司版权所有。2002.12前            }
{                                                       }
{               编制：中软金马项目开发组                }
{                                                       }
{                                                       }
{*******************************************************}
(*
本模块在省级集邮票管理、省级零枚票管理、地市集邮票管理三个模块调用
*)

unit SJ_BHXXCX;

interface

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

type
  TFrm_BHXXCX = class(TForm)
    Panel3: TPanel;
    BBt_Quit: TBitBtn;
    DBGrid1: TDBGrid;
    DS_static: TDataSource;
    Pnl_tj: TPanel;
    BBt_Find: TBitBtn;
    Panel5: TPanel;
    XttxTitle: TRxLabel;
    DWMC: TLabel;
    RxQry_static: TRxQuery;
    SQLStr_static: TSqlStrings;
    RxQry_ban: TRxQuery;
    DS_Ban: TDataSource;
    SqlS_ban: TSqlStrings;
    RxQry_staticFHDH: TStringField;
    RxQry_staticDWMC: TStringField;
    RxQry_staticPPDM: TStringField;
    RxQry_staticBLSH: TFloatField;
    RxQry_staticQSBH: TStringField;
    RxQry_staticZZBH: TStringField;
    RxQry_staticFHDH_1: TStringField;
    RxQry_staticKDRQ: TDateTimeField;
    RxQry_staticCKRQ: TDateTimeField;
    RxQry_staticHDR: TStringField;
    Label2: TLabel;
    Label4: TLabel;
    DBLCB_Ban: TDBLookupComboBox;
    Label1: TLabel;
    Edt_bh: TEdit;
    Btn_selpp: TBitBtn;
    Edt_pp: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Act_QuitExecute(Sender: TObject);
    procedure BBt_FindClick(Sender: TObject);
    procedure Qry_StaticXJGetText(Sender: TField; var Text: string;
      DisplayText: Boolean);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure RxQry_staticXJGetText(Sender: TField; var Text: string;
      DisplayText: Boolean);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Btn_selppClick(Sender: TObject);
  private
    Lio_Type: TIO_TYPE;
    procedure BanFresh(APPDM: string);
    { Private declarations }
  public
    { Public declarations }
  end;

function Show_BHXXCX(io_typ: TIO_TYPE): Boolean;

var
  Frm_BHXXCX: TFrm_BHXXCX;

implementation

uses
  pub, SY_CKJHDZD_XZPP_TX;

{$R *.DFM}

function Show_BHXXCX(io_typ: TIO_TYPE): Boolean;
begin
  Application.CreateForm(TFrm_BHXXCX, Frm_BHXXCX);
  with Frm_BHXXCX do
  begin
    DWMC.Caption := '使用单位：' + VG_UnitName;
    Lio_type := io_typ;
    Caption := '邮资票品管理信息系统——' + pCaption[integer(Lio_Type)] + '业务';
    XttxTitle.Caption := '版号信息查询';
    RxQry_ban.SQL := SqlS_ban.FSqlText[Lio_Type];
    RxQry_static.SQL := SQLStr_static.FSqlText[Lio_Type];
    result := ShowModal = MB_OK;
    Free;
  end;
end;

procedure TFrm_BHXXCX.FormCreate(Sender: TObject);
begin
  GetAllColWidth(Self);
end;

procedure TFrm_BHXXCX.Act_QuitExecute(Sender: TObject);
begin
  Close;
end;

procedure TFrm_BHXXCX.BBt_FindClick(Sender: TObject);
begin
  if (Edt_pp.Text = '') or (DBLCB_Ban.Text = '') or (Length(trim(Edt_bh.Text)) = 0) then
  begin
    CHQMsgBox('请选择要查询的版及版号！');
    exit;
  end;
  with RxQry_static do
  begin
    Close;
    MacroByName('BLSH').AsString := RxQry_ban.FieldByName('BLSH').AsString;
    MacroByName('BH').AsString := '''' + Edt_bh.Text + '''';
    Open;
  end;

end;

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

procedure TFrm_BHXXCX.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  SaveAllColWidth(Self);
end;

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

procedure TFrm_BHXXCX.BanFresh(APPDM: string);
begin
  RxQry_ban.Close;
  RxQry_ban.MacroByName('TDM').AsString := '''' + APPDM + '''';
  RxQry_ban.Open;
  Edt_bh.Text := '';
  RxQry_static.Close;
end;

procedure TFrm_BHXXCX.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case key of
    VK_RETURN:
      begin
        if (self.activecontrol is TMEMO) or (self.activecontrol is TDBGrid) then
        else
        begin
          postmessage(self.handle, WM_KEYDOWN, 9, 0);
          postmessage(self.handle, WM_KEYUP, 9, 0);
        end;
      end;
    Vk_Escape: Self.Close;
  end;

end;

procedure TFrm_BHXXCX.Btn_selppClick(Sender: TObject);
begin
  FrmY_CKJHDZD_XZPP_TX := TFrmY_CKJHDZD_XZPP_TX.Create(nil);
  with FrmY_CKJHDZD_XZPP_TX do
  begin
    rg_Type.Enabled := Lio_type = io_txp;
    V_FPJ := False;
    V_QB := False;
    ShowModal;
    if ModalResult <> MrOK then
    begin
      Free;
      Exit;
    end;
    Edt_pp.Text := qry_PP.FieldByName('ZH').AsString + ' ' + qry_PP.FieldByName('PPMC').AsString;
    BanFresh(FrmY_CKJHDZD_XZPP_TX.qry_PP.FieldByName('TUDM').AsString);
    Free;
  end;

end;

end.