gf_select.pas

省级集邮品管理ERP

{*******************************************************}
{                                                       }
{            查询——选题咨询委员会委  员                }
{                                                       }
{            中软金马公司版权所有。2002.12前            }
{                                                       }
{            编制：中软金马邮资票品项目开发组           }
{                                                       }
{                                                       }
{*******************************************************}
(*
省级集邮品，省级市场购入票，省级综合查询，省级系统管理
地市集邮品，地市市场购入票

*)
unit GF_select;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Mask, ToolEdit, DBCtrls;

type
  TFrmf_select = class(TForm)
    BBt_ok: TBitBtn;
    BBt_cancel: TBitBtn;
    GBo_fxjh: TGroupBox;
    Label21: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    CBo_f_pplb: TComboBox;
    Eit_f_tmc: TEdit;
    Eit_f_nd: TEdit;
    EIt_f_xh: TEdit;
    Label4: TLabel;
    CBo_f_tz: TComboBox;
    ChBo_f_ls: TDBCheckBox;
    procedure Eit_nlKeyPress(Sender: TObject; var Key: Char);
    procedure Eit_ndKeyPress(Sender: TObject; var Key: Char);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BBt_okClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    vlp_sl_ylpplb: TStringList;
    vlp_sl_yltu: TStringList;
  end;

var
  Frmf_select: TFrmf_select;

implementation
Uses datas, GF_pub;

{$R *.DFM}


procedure TFrmf_select.Eit_nlKeyPress(Sender: TObject; var Key: Char);
begin
  pub_KeyPress(Sender, Key);
end;

procedure TFrmf_select.Eit_ndKeyPress(Sender: TObject; var Key: Char);
begin
  pub_KeyPress(Sender, Key);
end;

procedure TFrmf_select.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  KeyEntDown(Sender, Key, Shift);
end;

procedure TFrmf_select.BBt_okClick(Sender: TObject);
begin
  case tag of
  1://pfxjh
    if ((Frmf_select.Eit_f_nd.Text <> '') or (Frmf_select.Eit_f_xh.Text <> '') or
      (Frmf_select.CBo_f_pplb.Text <> '' ) or (Frmf_select.CBo_f_tz.Text <> '') or
      (Frmf_select.Eit_f_tmc.Text <> '') or (ChBo_f_ls.Checked))then
    begin
      tag := 0;
      exit;
    end;
  2://puyl
    begin
    end;
  3://pywy
    begin
    end;
  4,6://hyjy
    begin
    end;
  5://xtgh
    begin
    end;
  7://xtwy
    begin
    end;
  8://cjb
    begin
    end;
  9://ffxjh
    if ((Frmf_select.Eit_f_nd.Text <> '') or (Frmf_select.Eit_f_xh.Text <> '') or
      (Frmf_select.CBo_f_pplb.Text <> '' ) or (Frmf_select.CBo_f_tz.Text <> '') or
      (Frmf_select.Eit_f_tmc.Text <> '') or (ChBo_f_ls.Checked)) then
    begin
      Tag := 0;
      exit;
    end;
  end;
end;

end.