zdxsxz.pas

来自「一个仓库管理中的子系统－－采购子系统」· PAS 代码 · 共 369 行

unit zdxsxz;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Buttons,DB;

type
  TzdxsForm = class(TForm)
    Panel1: TPanel;
    sqbidCheck: TCheckBox;
    cpbhCheck: TCheckBox;
    sqrqCheck: TCheckBox;
    bjsjCheck: TCheckBox;
    bjhgsjCheck: TCheckBox;
    cgfsCheck: TCheckBox;
    rwmcCheck: TCheckBox;
    cpmcCheck: TCheckBox;
    hgfczfCheck: TCheckBox;
    bzrCheck: TCheckBox;
    bzrqCheck: TCheckBox;
    jhyCheck: TCheckBox;
    yxnxCheck: TCheckBox;
    xhggCheck: TCheckBox;
    sjcgcjCheck: TCheckBox;
    shrCheck: TCheckBox;
    shrqCheck: TCheckBox;
    lshCheck: TCheckBox;
    sqdwCheck: TCheckBox;
    ycdhsjCheck: TCheckBox;
    pzrCheck: TCheckBox;
    pzrqCheck: TCheckBox;
    Label1: TLabel;
    sbslCheck: TCheckBox;
    kcslCheck: TCheckBox;
    sxslCheck: TCheckBox;
    cgslhsCheck: TCheckBox;
    gjjeCheck: TCheckBox;
    bjhgslCheck: TCheckBox;
    sccjCheck: TCheckBox;
    qtCheck: TCheckBox;
    sjyqCheck: TCheckBox;
    bzCheck: TCheckBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    jldwCheck: TCheckBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    ybjslCheck: TCheckBox;
    bjbhgslCheck: TCheckBox;
    yyhrwCheck: TCheckBox;
    procedure BitBtn1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure showsetup;
    { Public declarations }
  end;

var
  zdxsForm: TzdxsForm;

implementation

uses Datamodule, cghzbcx;

{$R *.DFM}

procedure TzdxsForm.showsetup;
begin
   with datamodule1.hzglQuery do
    begin
    if active=false then
    begin
       messageDlg('您还没有进行任何查询!',mtInformation,[mbOK],0);
       exit;
    end;
    if sqbidCheck.checked then
    FieldByname('申请表单号').Visible:=true
    else
    FieldByname('申请表单号').Visible:=false;

    if cpbhCheck.Checked then
    FieldByname('产品编号').Visible:=true
    else
    FieldByname('产品编号').Visible:=false;

    if sqrqCheck.Checked then
    FieldByname('申请日期').Visible:=true
    else
    FieldByname('申请日期').Visible:=false;

    if bjsjCheck.Checked then
    FieldByname('报检时间').Visible:=true
    else
    FieldByname('报检时间').Visible:=false;

    if bjhgslCheck.Checked then
    FieldByname('报检合格数量').Visible:=true
    else
    FieldByname('报检合格数量').Visible:=false;

    if cgfsCheck.Checked then
    FieldByname('采购方式').Visible:=true
    else
    FieldByname('采购方式').Visible:=false;

    if rwmcCheck.Checked then
    FieldByname('任务名称').Visible:=true
    else
    FieldByname('任务名称').Visible:=false;

    if cpmcCheck.Checked then
    FieldByname('产品名称').Visible:=true
    else
    FieldByname('产品名称').Visible:=false;

    if hgfczfCheck.Checked then
    FieldByname('合格分承制方').Visible:=true
    else
    FieldByname('合格分承制方').Visible:=false;

    if bzrCheck.Checked then
    FieldByname('申请表编制人').Visible:=true
    else
    FieldByname('申请表编制人').Visible:=false;

    if bzrqCheck.Checked then
    FieldByname('编制日期').Visible:=true
    else
    FieldByname('编制日期').Visible:=false;

    if jhyCheck.Checked then
    FieldByname('计划员').Visible:=true
    else
    FieldByname('计划员').Visible:=false;


    if yxnxCheck.Checked then
    FieldByname('有效年限').Visible:=true
    else
    FieldByname('有效年限').Visible:=false;

    if xhggCheck.Checked then
    FieldByname('型号规格').Visible:=true
    else
    FieldByname('型号规格').Visible:=false;

    if sjcgcjCheck.Checked then
    FieldByname('实际采购厂家').Visible:=true
    else
    FieldByname('实际采购厂家').Visible:=false;

    if shrCheck.Checked then
    FieldByname('申请表审核人').Visible:=true
    else
    FieldByname('申请表审核人').Visible:=false;

    if shrqCheck.Checked then
    FieldByname('审核时间').Visible:=true
    else
    FieldByname('审核时间').Visible:=false;

    if lshCheck.Checked then
    FieldByname('流水号').Visible:=true
    else
    FieldByname('流水号').Visible:=false;

    if sqdwCheck.Checked then
    FieldByname('申报部门').Visible:=true
    else
    FieldByname('申报部门').Visible:=false;

    if ycdhsjCheck.Checked then
    FieldByname('预测到货时间').Visible:=true
    else
    FieldByname('预测到货时间').Visible:=false;

    if pzrCheck.Checked then
    FieldByname('申请表批准人').Visible:=true
    else
    FieldByname('申请表批准人').Visible:=false;

    if pzrqCheck.Checked then
    FieldByname('批准时间').Visible:=true
    else
    FieldByname('批准时间').Visible:=false;

    if sbslCheck.Checked then
    FieldByname('申报数量').Visible:=true
    else
    FieldByname('申报数量').Visible:=false;

    if kcslCheck.Checked then
    FieldByname('库存数量').Visible:=true
    else
    FieldByname('库存数量').Visible:=false;

    if sxslCheck.Checked then
    FieldByname('需采购数量').Visible:=true
    else
    FieldByname('需采购数量').Visible:=false;

    if cgslhsCheck.Checked then
    FieldByname('采购数量核实').Visible:=true
    else
    FieldByname('采购数量核实').Visible:=false;

    if gjjeCheck.Checked then
    FieldByname('估计金额').Visible:=true
    else
    FieldByname('估计金额').Visible:=false;

    if bjhgsjCheck.Checked then
    FieldByname('报检合格时间').Visible:=true
    else
    FieldByname('报检合格时间').Visible:=false;

    if sccjCheck.Checked then
    FieldByname('申请指定厂家').Visible:=true
    else
    FieldByname('申请指定厂家').Visible:=false;

    if qtCheck.Checked then
    FieldByname('到货说明').Visible:=true
    else
    FieldByname('到货说明').Visible:=false;

    if sjyqCheck.Checked then
    FieldByname('时间要求').Visible:=true
    else
    FieldByname('时间要求').Visible:=false;

    if bzCheck.Checked then
    FieldByname('备注').Visible:=true
    else
    FieldByname('备注').Visible:=false;
    if jldwcheck.Checked then
    FieldByname('计量单位').Visible:=true
    else
    FieldByname('计量单位').Visible:=false;


    if ybjslcheck.Checked then
    FieldByname('已报检数量').Visible:=true
    else
    FieldByname('已报检数量').Visible:=false;

    if bjbhgslcheck.Checked then
    FieldByname('报检不合格数量').Visible:=true
    else
    FieldByname('报检不合格数量').Visible:=false;
    if yyhrwcheck.Checked then
    FieldByname('用于何任务').Visible:=true
    else
    FieldByname('用于何任务').Visible:=false;
    end;
end;

procedure TzdxsForm.BitBtn1Click(Sender: TObject);
var I:integer;
begin
     //try
     showsetup;
     {except
     on EdatabaseError do
       begin
       messageDlg('您还没有进行任何查询!',mtInformation,[mbOK],0);
       zdxsForm.Close;
       exit;
       end;
      end;}
     for I:=0 to fields_count-1 do
     visible_flag_array[I]:=0;

     with datamodule1.hzglQuery do
     begin
     for I:=0 to fields.Count-1 do
     if not fields[I].Visible then
     visible_flag_array[I]:=1;
     end;
     zdxsForm.Close;
end;

procedure TzdxsForm.SpeedButton1Click(Sender: TObject);
begin
 sqbidCheck.checked:=true;
 cpbhCheck.Checked:=true;
 sqrqCheck.Checked:=true;
 bjsjCheck.Checked:=true;
 bjhgslCheck.Checked:=true;
 cgfsCheck.Checked:=true;
 rwmcCheck.Checked:=true;
 cpmcCheck.Checked:=true;
 hgfczfCheck.Checked:=true;
 bzrCheck.Checked:=true;
 bzrqCheck.Checked:=true;
 jhyCheck.Checked:=true;
 yxnxCheck.Checked:=true;
 xhggCheck.Checked:=true;
 sjcgcjCheck.Checked:=true;
 shrCheck.Checked:=true;
 shrqCheck.Checked:=true;
 lshCheck.Checked:=true;
 sqdwCheck.Checked:=true;
 ycdhsjCheck.Checked:=true;
 pzrCheck.Checked:=true;
 pzrqCheck.Checked:=true;
 sbslCheck.Checked:=true;
 kcslCheck.Checked:=true;
 sxslCheck.Checked:=true;
 cgslhsCheck.Checked:=true;
 gjjeCheck.Checked:=true;
 bjhgsjCheck.Checked:=true;
 sccjCheck.Checked:=true;
 qtCheck.Checked:=true;
 sjyqCheck.Checked:=true;
 bzCheck.Checked:=true;
 jldwcheck.Checked:=true;
 ybjslcheck.Checked:=true;
 bjbhgslcheck.checked:=true;
 yyhrwcheck.Checked:=true;
end;

procedure TzdxsForm.SpeedButton2Click(Sender: TObject);
begin
   sqbidCheck.checked:=false;
 cpbhCheck.Checked:=false;
 sqrqCheck.Checked:=false;
 bjsjCheck.Checked:=false;
 bjhgslCheck.Checked:=false;
 cgfsCheck.Checked:=false;
 rwmcCheck.Checked:=false;
 cpmcCheck.Checked:=false;
 hgfczfCheck.Checked:=false;
 bzrCheck.Checked:=false;
 bzrqCheck.Checked:=false;
 jhyCheck.Checked:=false;
 yxnxCheck.Checked:=false;
 xhggCheck.Checked:=false;
 sjcgcjCheck.Checked:=false;
 shrCheck.Checked:=false;
 shrqCheck.Checked:=false;
 lshCheck.Checked:=false;
 sqdwCheck.Checked:=false;
 ycdhsjCheck.Checked:=false;
 pzrCheck.Checked:=false;
 pzrqCheck.Checked:=false;
 sbslCheck.Checked:=false;
 kcslCheck.Checked:=false;
 sxslCheck.Checked:=false;
 cgslhsCheck.Checked:=false;
 gjjeCheck.Checked:=false;
 bjhgsjCheck.Checked:=false;
 sccjCheck.Checked:=false;
 qtCheck.Checked:=false;
 sjyqCheck.Checked:=false;
 bzCheck.Checked:=false;
 jldwcheck.Checked:=false;
  ybjslcheck.Checked:=false;
 bjbhgslcheck.checked:=false;
 yyhrwcheck.Checked:=false;
end;

end.