cghzglcx.pas

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

unit cghzglcx;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ComCtrls, Grids, DBGrids,DBTables;
var hzglbselect:string;
type
  TcghzglForm = class(TForm)
    zhcxGroup: TGroupBox;
    sqbidCheck: TCheckBox;
    lshCheck: TCheckBox;
    sqrqCheck: TCheckBox;
    bjsjCheck: TCheckBox;
    bjhgsjCheck: TCheckBox;
    cpbhCheck: TCheckBox;
    cpmcCheck: TCheckBox;
    hgfczfCheck: TCheckBox;
    bzrCheck: TCheckBox;
    bzrqCheck: TCheckBox;
    sqbidEdit: TEdit;
    sqsjEdit: TEdit;
    bjsjEdit: TEdit;
    bjhgsjEdit: TEdit;
    rwmcEdit: TEdit;
    cpmcEdit: TEdit;
    bzrqEdit: TEdit;
    lshEdit: TEdit;
    pzrqEdit: TEdit;
    ycdhsjEdit: TEdit;
    yxnxCheck: TCheckBox;
    sqdwCheck: TCheckBox;
    ycdhsjCheck: TCheckBox;
    pzrCheck: TCheckBox;
    pzrqCheck: TCheckBox;
    rwmcCheck: TCheckBox;
    xhggCheck: TCheckBox;
    sjcgcjCheck: TCheckBox;
    shrCheck: TCheckBox;
    shrqCheck: TCheckBox;
    yxnxEdit: TEdit;
    xhggEdit: TEdit;
    sjcgcjEdit: TEdit;
    shrqEdit: TEdit;
    Label1: TLabel;
    cgfsCheck: TCheckBox;
    jhyCheck: TCheckBox;
    jhyEdit: TEdit;
    hgfczfCombo: TComboBox;
    cgfsCombo: TComboBox;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    DateTimePicker3: TDateTimePicker;
    DateTimePicker4: TDateTimePicker;
    DateTimePicker5: TDateTimePicker;
    DateTimePicker6: TDateTimePicker;
    sqdwCombo: TComboBox;
    cpbhCombo: TComboBox;
    bzrCombo: TComboBox;
    shrCombo: TComboBox;
    pzrCombo: TComboBox;
    DateTimePicker7: TDateTimePicker;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure sqbidCheckClick(Sender: TObject);
    procedure rwmcCheckClick(Sender: TObject);
    procedure yxnxCheckClick(Sender: TObject);
    procedure lshCheckClick(Sender: TObject);
    procedure cpbhCheckClick(Sender: TObject);
    procedure cpmcCheckClick(Sender: TObject);
    procedure xhggCheckClick(Sender: TObject);
    procedure sqdwCheckClick(Sender: TObject);
    procedure sqrqCheckClick(Sender: TObject);
    procedure hgfczfCheckClick(Sender: TObject);
    procedure sjcgcjCheckClick(Sender: TObject);
    procedure ycdhsjCheckClick(Sender: TObject);
    procedure bjsjCheckClick(Sender: TObject);
    procedure bzrCheckClick(Sender: TObject);
    procedure shrCheckClick(Sender: TObject);
    procedure pzrCheckClick(Sender: TObject);
    procedure bjhgsjCheckClick(Sender: TObject);
    procedure bzrqCheckClick(Sender: TObject);
    procedure shrqCheckClick(Sender: TObject);
    procedure pzrqCheckClick(Sender: TObject);
    procedure cgfsCheckClick(Sender: TObject);
    procedure jhyCheckClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cghzglForm: TcghzglForm;

implementation

uses Datamodule, sqbinput;

{$R *.DFM}

procedure TcghzglForm.sqbidCheckClick(Sender: TObject);
begin
    if sqbidCheck.Checked then
    sqbidEdit.Enabled:=True
    else
    sqbidEdit.Enabled:=false;
end;

procedure TcghzglForm.rwmcCheckClick(Sender: TObject);
begin
    if rwmcCheck.Checked then
    rwmcEdit.Enabled:=True
    else
    rwmcEdit.Enabled:=False;
end;

procedure TcghzglForm.yxnxCheckClick(Sender: TObject);
begin
    if yxnxCheck.Checked then
    yxnxEdit.Enabled:=True
    else
    yxnxEdit.Enabled:=False;
end;

procedure TcghzglForm.lshCheckClick(Sender: TObject);
begin
    if lshCheck.Checked then
    lshEdit.Enabled:=True
    else
    lshEdit.Enabled:=False;
end;

procedure TcghzglForm.cpbhCheckClick(Sender: TObject);
begin
    if yxnxCheck.Checked then
    begin
    cpmccheck.Checked:=true;
    xhggcheck.Checked:=true;
    cpmcedit.Enabled:=true;
    xhggedit.Enabled:=true;
    yxnxEdit.Enabled:=True;
    end
    else
    begin
    cpmccheck.Checked:=False;
    xhggcheck.Checked:=False;
    cpmcedit.Enabled:=False;
    xhggedit.Enabled:=False;
    yxnxEdit.Enabled:=False;
    end;
end;

procedure TcghzglForm.cpmcCheckClick(Sender: TObject);
begin
    if cpmcCheck.Checked then
    cpmcEdit.Enabled:=True
    else
    cpmcEdit.Enabled:=False;
end;

procedure TcghzglForm.xhggCheckClick(Sender: TObject);
begin
    if xhggCheck.Checked then
    xhggEdit.Enabled:=True
    else
    xhggEdit.Enabled:=False;
end;

procedure TcghzglForm.sqdwCheckClick(Sender: TObject);
begin
   if sqdwCheck.Checked then
    sqdwcombo.Enabled:=True
    else
    sqdwcombo.Enabled:=False;
end;

procedure TcghzglForm.sqrqCheckClick(Sender: TObject);
begin
     if sqrqCheck.Checked then
    sqsjEdit.Enabled:=True
    else
    sqsjEdit.Enabled:=False;
end;

procedure TcghzglForm.hgfczfCheckClick(Sender: TObject);
begin
    if hgfczfCheck.Checked then
    hgfczfCombo.Enabled:=True
    else
    hgfczfCombo.Enabled:=False;
end;

procedure TcghzglForm.sjcgcjCheckClick(Sender: TObject);
begin
    if sjcgcjCheck.Checked then
    sjcgcjEdit.Enabled:=True
    else
    sjcgcjEdit.Enabled:=False;
end;

procedure TcghzglForm.ycdhsjCheckClick(Sender: TObject);
begin
    if ycdhsjCheck.Checked then
    ycdhsjEdit.Enabled:=True
    else
    ycdhsjEdit.Enabled:=False;
end;

procedure TcghzglForm.bjsjCheckClick(Sender: TObject);
begin
    if bjsjCheck.Checked then
    bjsjEdit.Enabled:=True
    else
    bjsjEdit.Enabled:=False;
end;

procedure TcghzglForm.bzrCheckClick(Sender: TObject);
begin
     if bzrCheck.Checked then
    bzrCombo.Enabled:=True
    else
    bzrcombo.Enabled:=False;
end;

procedure TcghzglForm.shrCheckClick(Sender: TObject);
begin
     if shrCheck.Checked then
    shrCombo.Enabled:=True
    else
    shrCombo.Enabled:=False;
end;

procedure TcghzglForm.pzrCheckClick(Sender: TObject);
begin
     if pzrCheck.Checked then
    pzrCombo.Enabled:=True
    else
    pzrCombo.Enabled:=False;
end;

procedure TcghzglForm.bjhgsjCheckClick(Sender: TObject);
begin
    if bjhgsjCheck.Checked then
    bjhgsjEdit.Enabled:=True
    else
    bjhgsjedit.Enabled:=False;
end;

procedure TcghzglForm.bzrqCheckClick(Sender: TObject);
begin
    if bzrqCheck.Checked then
    bzrqEdit.Enabled:=True
    else
    bzrqEdit.Enabled:=False;
end;

procedure TcghzglForm.shrqCheckClick(Sender: TObject);
begin
     if shrqCheck.Checked then
    shrqEdit.Enabled:=True
    else
    shrqEdit.Enabled:=False;
end;

procedure TcghzglForm.pzrqCheckClick(Sender: TObject);
begin
    if pzrqCheck.Checked then
    pzrqEdit.Enabled:=True
    else
    pzrqEdit.Enabled:=False;
end;

procedure TcghzglForm.cgfsCheckClick(Sender: TObject);
begin
    if cgfsCheck.Checked then
    cgfsCombo.Enabled:=True
    else
    cgfsCOmbo.Enabled:=False;
end;

procedure TcghzglForm.jhyCheckClick(Sender: TObject);
begin
     if jhyCheck.Checked then
    jhyEdit.Enabled:=True
    else
    jhyEdit.Enabled:=False;
end;

procedure TcghzglForm.BitBtn1Click(Sender: TObject);
var strwhere,strCondition:string;
I:integer;
strlist:array[0..21]of string;
begin
    for i:=0 to 21 do
    strlist[I]:='';

    strCondition:='';
    strwhere:=' where ';

    if sqbidCheck.Checked then
    strlist[0]:='sqbid'+' = '+''''+sqbidedit.Text+'''';
    if rwmcCheck.Checked then
    strlist[1]:='rwmc'+' = '+''''+rwmcedit.Text+'''';
    if yxnxCheck.Checked then
    strlist[2]:='yxnx'+' = '+''''+yxnxedit.Text+'''';
    if lshCheck.Checked then
    strlist[3]:='lsh'+' = '+''''+lshedit.Text+'''';
    if bzrcheck.Checked then
    strlist[4]:='bzr'+' = '+''''+bzrCombo.Text+'''';
    if pzrCheck.Checked then
    strlist[5]:=' pzr = '+''''+pzrCombo.Text+'''';
    if shrcheck.Checked then
    strlist[6]:=' shr = '+''''+shrCombo.text+'''';
    if sqdwcheck.Checked then
    strlist[7]:=' sbdw = '+''''+sqdwCombo.Text+'''';
    if sqrqCheck.Checked then
    strlist[8]:=' sbrq = '+''''+sqinputForm.Getdate709(sqsjedit.Text)+'''';
    if cpmcCheck.Checked then
    strlist[9]:='cpmc'+' = '+''''+cpmcedit.Text+'''';
    if cpbhCheck.Checked then
    strlist[10]:='cpbh'+' = '+''''+cpbhCombo.text+'''';
    if xhggCheck.Checked then
    strlist[11]:='xhgg'+' = '+''''+xhggedit.Text+'''';
    if hgfczfCheck.Checked then
    if hgfczfCombo.text='合格' then
    strlist[12]:='hg_flag ='+'1'
    else
    strlist[12]:='hg_flag ='+'0';
    if sjcgcjCheck.Checked then
    strlist[13]:='sjcgsccj'+' = '+''''+sjcgcjedit.Text+'''';
    if cgfsCheck.Checked then
    strlist[14]:='cgfs'+' = '+''''+cgfsCombo.Text+'''';
    if jhyCheck.Checked then
    strlist[15]:='jhy'+' = '+''''+jhyedit.Text+'''';
    if ycdhsjCheck.Checked then
    strlist[16]:=' ycdhsj = '+''''+sqinputForm.Getdate709(ycdhsjedit.Text)+'''';
    if bjsjCheck.Checked then
    strlist[17]:=' bjsj = '+''''+sqinputForm.Getdate709(bjsjedit.Text)+'''';
    if bzrqCheck.Checked then
    strlist[18]:=' bzrq = '+''''+sqinputForm.Getdate709(bzrqedit.Text)+'''';
    if shrqCheck.Checked then
    strlist[19]:=' shrq = '+''''+sqinputForm.Getdate709(shrqedit.Text)+'''';
    if pzrqCheck.Checked then
    strlist[20]:=' pzrq = '+''''+sqinputForm.Getdate709(pzrqedit.Text)+'''';
    if bjhgsjCheck.Checked then
    strlist[21]:=' bjhgsj = '+''''+sqinputForm.Getdate709(bjhgsjedit.Text)+'''';

    for I:=0 to 21 do
    if (strlist[I]<>'') then
    begin
    if (strCondition<>'') then
    strCondition:=strCondition+' and '+strlist[I]
    else
    strCondition:=strCondition+strlist[I];
    end;
    hzglbSelect:='select  SQBID as 申请表单号,RWMC as 任务名称,YXNX as 有效年限,LSH as 流水号,CPBH as 产品编号,CPMC as 产品名称,xHGG as 型号规格,SLDW as 计量单位,SBSL as 申报数量,SBRQ as 申请日期,KCSL as 库存数量,';
    hzglbSelect:=hzglbSelect+'SXSL as 需采购数量,GJJE as 估计金额,SJCGSCCJ as 实际采购厂家,SJYQ as 时间要求,YCDHSJ as 预测到货时间,BJSJ as 报检时间,CGSLHS as 采购数量核实,BJHGSJ as 报检合格时间,';
    hzglbSelect:=hzglbSelect+'BJHGSL as 报检合格数量,XQDW as 申报部门,BZR as 申请表编制人,BZRQ as 编制日期,SHR as 申请表审核人,SHRQ as 审核时间,PZR as 申请表批准人,PZRQ as 批准时间,CGFS as 采购方式,HG_FLAG as 合格分承制方,JHY as 计划员';
    if strCondition='' then
    showmessage('请您选择并给出一个查询条件后，再执行查询！')
    else
    begin
    strwhere:=strwhere+strCondition;
    with Datamodule1 do
    begin
    with hzglquery do
    begin
    try
    SQL.clear;
    close;
    sql.Add(hzglbselect);
    SQL.add(' from dbo.a_cghzglb ');
    sql.add(strwhere);
    open;
    except
     on EDBEngineError do
       messageDlg('您操作有误!',mtInformation,[mbOK],0);
    end;
    end;
    end;
    end;
    cghzglForm.Close;
end;

end.