cghzbcx.pas

来自「一个仓库管理中的子系统－－采购子系统」· PAS 代码 · 共 1,289 行 · 第 1/4 页

begin
    with Datamodule1 do
    begin
    hzglbSelect:='select  SQBID as 申请表单号,RWMC as 任务名称,YXNX as 有效年限,LSH as 流水号,JHY as 计划员,CPBH as 产品编号,CPMC as 产品名称,xHGG as 型号规格,SLDW as 计量单位,SBRQ as 申请日期,SBSL as 申报数量,KCSL as 库存数量,';
    hzglbSelect:=hzglbSelect+'SXSL as 需采购数量,GJJE as 估计金额,sccj as 申请指定厂家,SJCGSCCJ as 实际采购厂家,YBJSL as 已报检数量,CGSLHS as 采购数量核实,BJHGSJ as 报检合格时间,YSBX1 as 用于何任务,SJYQ as 时间要求,YCDHSJ as 预测到货时间,BJSJ as 报检时间,';
    hzglbSelect:=hzglbSelect+'BJHGSL as 报检合格数量,BJBHGSL as 报检不合格数量,XQDW as 申报部门,BZR as 申请表编制人,BZRQ as 编制日期,SHR as 申请表审核人,SHRQ as 审核时间,PZR as 申请表批准人,PZRQ as 批准时间,CGFS as 采购方式,HG_FLAG as 合格分承制方,'+'QT as 到货说明,BZ as 备注';
    condition:='hg_flag='+''''+'0'+'''';
    with hzglquery do
    begin
    close;
    sql.Clear;
    sql.Add(hzglbselect);
    sql.Add('from dbo.a_cghzglb');
    sql.Add('where hg_flag='+''''+'0'+'''');
    sql.Text:=sql.Text+'order by 申请表单号 desc,计划员 asc';
    select_condition:=sql.Text; //记忆上一次查询的sql语句，准备回主查询窗口时刷新
    open;
    for I:=0 to datamodule1.hzglquery.Fields.Count-1 do
     if  visible_flag_array[I]=1 then
        datamodule1.hzglquery.Fields[I].Visible:=false;
    end;
    end;
    ybjsl_count;
    bjhgsl_count;
    bjbhgsl_count;
    cgslhs_count;
    Record_Count;
    TotalProduct_Count;
    TotalMoney_Count;
    TotalTable_Count('where '+condition);
end;

procedure TcghzbForm.N13Click(Sender: TObject);
var I:integer;
begin
    zdxsForm:=TzdxsForm.Create(Application);
    with zdxsForm do
    begin
    cpbhcheck.Checked:=true;
    cpmcCheck.Checked:=true;
    xhggCheck.Checked:=true;
    jldwCheck.Checked:=True;
    sbslcheck.Checked:=true;
    gjjeCheck.Checked:=True;
    sccjCheck.Checked:=true;
    sjyqcheck.Checked:=True;
    showsetup;
    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;
    end;
    zdxsForm.Close;
end;

procedure TcghzbForm.N14Click(Sender: TObject);
var I:integer;
begin
   zdxsForm:=TzdxsForm.Create(Application);
    with zdxsForm do
    begin
    cpbhcheck.Checked:=true;
    cpmcCheck.Checked:=true;
    xhggCheck.Checked:=true;
    jldwCheck.Checked:=True;
    sbslcheck.Checked:=true;
    sxslCheck.Checked:=True;
    ycdhsjCheck.Checked:=true;
    sqrqcheck.Checked:=True;
    sqdwCheck.Checked:=true;
    kcslcheck.Checked:=true;
    cgslhscheck.Checked:=true;
    showsetup;
    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;
    end;
    zdxsForm.Close;
end;

procedure TcghzbForm.N11Click(Sender: TObject);
var I:integer;
begin
    rycxszForm:=TrycxszForm.Create(Application);
    hide;
    with rycxszForm do
    begin
    if ShowModal=mrok then
    begin
    with Datamodule1 do
    begin
    hzglbSelect:='select  SQBID as 申请表单号,RWMC as 任务名称,YXNX as 有效年限,LSH as 流水号,JHY as 计划员,CPBH as 产品编号,CPMC as 产品名称,xHGG as 型号规格,SLDW as 计量单位,SBRQ as 申请日期,SBSL as 申报数量,KCSL as 库存数量,';
    hzglbSelect:=hzglbSelect+'SXSL as 需采购数量,GJJE as 估计金额,sccj as 申请指定厂家,SJCGSCCJ as 实际采购厂家,YBJSL as 已报检数量,CGSLHS as 采购数量核实,BJHGSJ as 报检合格时间,YSBX1 as 用于何任务,SJYQ as 时间要求,YCDHSJ as 预测到货时间,BJSJ as 报检时间,';
    hzglbSelect:=hzglbSelect+'BJHGSL as 报检合格数量,BJBHGSL as 报检不合格数量,XQDW as 申报部门,BZR as 申请表编制人,BZRQ as 编制日期,SHR as 申请表审核人,SHRQ as 审核时间,PZR as 申请表批准人,PZRQ as 批准时间,CGFS as 采购方式,HG_FLAG as 合格分承制方,'+'QT as 到货说明,BZ as 备注';
    with hzglquery do
    begin
    close;
    sql.Clear;
    sql.Add(hzglbselect);
    sql.Add('from dbo.a_cghzglb');
    with RadioGroup1 do
    begin
    if ItemIndex=0 then
    begin
     condition:='jhy='+''''+ComboBox1.text+'''';
     sql.Add('where jhy='+''''+ComboBox1.text+'''');
    end
    else
    if ItemIndex=1 then
    begin
     condition:='bzr='+''''+ComboBox1.text+'''';
     sql.Add('where bzr='+''''+ComboBox1.text+'''');
    end
    else
    if ItemIndex=2 then
    begin
     condition:='shr='+''''+ComboBox1.text+'''';
     sql.Add('where shr='+''''+ComboBox1.text+'''');
    end
    else
    if ItemIndex=3 then
    begin
     condition:='pzr='+''''+ComboBox1.text+'''';
     sql.Add('where pzr='+''''+ComboBox1.text+'''');
    end;
    end;
    sql.Text:=sql.Text+'order by 申请表单号 desc,计划员 asc';
    select_condition:=sql.Text; //记忆上一次查询的sql语句，准备回主查询窗口时刷新
    open;
    for I:=0 to datamodule1.hzglquery.Fields.Count-1 do
     if  visible_flag_array[I]=1 then
        datamodule1.hzglquery.Fields[I].Visible:=false;
    end;
    end;
    TotalTable_Count('where '+condition);
    rycxszForm.free;
    end;
    end;
    ybjsl_count;
    bjhgsl_count;
    bjbhgsl_count;
    cgslhs_count;
    Record_COunt;
    TotalProduct_Count;
    TotalMoney_Count;
    show;
end;

procedure TcghzbForm.N10Click(Sender: TObject);
var I:integer;
begin
    cpcxForm:=TcpcxForm.Create(Application);
    hide;
    with cpcxForm do
    begin
    if ShowModal=mrok then
    begin
    with Datamodule1 do
    begin
    hzglbSelect:='select  SQBID as 申请表单号,RWMC as 任务名称,YXNX as 有效年限,LSH as 流水号,JHY as 计划员,CPBH as 产品编号,CPMC as 产品名称,xHGG as 型号规格,SLDW as 计量单位,SBRQ as 申请日期,SBSL as 申报数量,KCSL as 库存数量,';
    hzglbSelect:=hzglbSelect+'SXSL as 需采购数量,GJJE as 估计金额,sccj as 申请指定厂家,SJCGSCCJ as 实际采购厂家,YBJSL as 已报检数量,CGSLHS as 采购数量核实,BJHGSJ as 报检合格时间,YSBX1 as 用于何任务,SJYQ as 时间要求,YCDHSJ as 预测到货时间,BJSJ as 报检时间,';
    hzglbSelect:=hzglbSelect+'BJHGSL as 报检合格数量,BJBHGSL as 报检不合格数量,XQDW as 申报部门,BZR as 申请表编制人,BZRQ as 编制日期,SHR as 申请表审核人,SHRQ as 审核时间,PZR as 申请表批准人,PZRQ as 批准时间,CGFS as 采购方式,HG_FLAG as 合格分承制方,'+'QT as 到货说明,BZ as 备注';
    with hzglquery do
    begin
    close;
    sql.Clear;
    sql.Add(hzglbselect);
    sql.Add('from dbo.a_cghzglb');
    with RadioGroup1 do
    begin
    if ItemIndex=0 then
    begin
     condition:='cpbh like '+''''+edit1.text+'%'+'''';
     sql.Add('where cpbh like '+''''+edit1.text+'%'+'''');
    end
    else
    if ItemIndex=1 then
    begin
     condition:='cpmc like '+''''+edit1.text+'%'+'''';
     sql.Add('where cpmc like '+''''+edit1.text+'%'+'''');
    end;
    end;
    sql.Text:=sql.Text+'order by 申请表单号 desc,计划员 asc';
    select_condition:=sql.Text; //记忆上一次查询的sql语句，准备回主查询窗口时刷新
    open;
    for I:=0 to datamodule1.hzglquery.Fields.Count-1 do
     if  visible_flag_array[I]=1 then
        datamodule1.hzglquery.Fields[I].Visible:=false;
    end;
    end;
    TotalTable_Count('where '+condition);
    cpcxForm.free;
    end;
    end;
    ybjsl_count;
    bjhgsl_count;
    bjbhgsl_count;
    cgslhs_count;
    Record_Count;
    TotalProduct_Count;
    TotalMoney_Count;
    show;
end;

procedure TcghzbForm.N7Click(Sender: TObject);
var I:integer;
begin
    sjcxForm:=TsjcxForm.Create(Application);
    hide;
    with sjcxForm do
    begin
    if ShowModal=mrok then
    begin
    with Datamodule1 do
    begin
    hzglbSelect:='select  SQBID as 申请表单号,RWMC as 任务名称,YXNX as 有效年限,LSH as 流水号,JHY as 计划员,CPBH as 产品编号,CPMC as 产品名称,xHGG as 型号规格,SLDW as 计量单位,SBRQ as 申请日期,SBSL as 申报数量,KCSL as 库存数量,';
    hzglbSelect:=hzglbSelect+'SXSL as 需采购数量,GJJE as 估计金额,sccj as 申请指定厂家,SJCGSCCJ as 实际采购厂家,YBJSL as 已报检数量,CGSLHS as 采购数量核实,BJHGSJ as 报检合格时间,YSBX1 as 用于何任务,SJYQ as 时间要求,YCDHSJ as 预测到货时间,BJSJ as 报检时间,';
    hzglbSelect:=hzglbSelect+'BJHGSL as 报检合格数量,BJBHGSL as 报检不合格数量,XQDW as 申报部门,BZR as 申请表编制人,BZRQ as 编制日期,SHR as 申请表审核人,SHRQ as 审核时间,PZR as 申请表批准人,PZRQ as 批准时间,CGFS as 采购方式,HG_FLAG as 合格分承制方,'+'QT as 到货说明,BZ as 备注';
    with hzglquery do
    begin
    close;
    sql.Clear;
    sql.Add(hzglbselect);
    sql.Add('from dbo.a_cghzglb');
    with RadioGroup1 do
    begin
    if ItemIndex=0 then
    begin
     condition:='sbrq>='+''''+sqinputForm.GetDate709(startedit.text)+''''+' and sbrq<='+''''+sqinputForm.GetDate709(endedit.text)+'''';
     sql.Add('where sbrq>='+''''+sqinputForm.GetDate709(startedit.text)+''''+' and sbrq<='+''''+sqinputForm.GetDate709(endedit.text)+'''');
    end
    else
    if ItemIndex=1 then
    begin
     condition:='shrq>='+''''+sqinputForm.GetDate709(startedit.text)+''''+' and shrq<='+''''+sqinputForm.GetDate709(endedit.text)+'''';
     sql.Add('where shrq>='+''''+sqinputForm.GetDate709(startedit.text)+''''+' and shrq<='+''''+sqinputForm.GetDate709(endedit.text)+'''');
    end
    else
    if ItemIndex=2 then
    begin
     condition:='pzrq>='+''''+sqinputForm.GetDate709(startedit.text)+''''+' and pzrq<='+''''+sqinputForm.GetDate709(endedit.text)+'''';
     sql.Add('where pzrq>='+''''+sqinputForm.GetDate709(startedit.text)+''''+' and pzrq<='+''''+sqinputForm.GetDate709(endedit.text)+'''');
    end
    else
    if ItemIndex=3 then
    begin
     condition:='bjsj>='+''''+sqinputForm.GetDate709(startedit.text)+''''+' and bjsj<='+''''+sqinputForm.GetDate709(endedit.text)+'''';
     sql.Add('where bjsj>='+''''+sqinputForm.GetDate709(startedit.text)+''''+' and bjsj<='+''''+sqinputForm.GetDate709(endedit.text)+'''');
    end
    else
    if ItemIndex=4 then
    begin
     condition:='bjhgsj>='+''''+sqinputForm.GetDate709(startedit.text)+''''+' and bjhgsj<='+''''+sqinputForm.GetDate709(endedit.text)+'''';
     sql.Add('where bjhgsj>='+''''+sqinputForm.GetDate709(startedit.text)+''''+' and bjhgsj<='+''''+sqinputForm.GetDate709(endedit.text)+'''');
    end
    else
    if ItemIndex=5 then
    begin
     condition:='ycdhsj>='+''''+sqinputForm.GetDate709(startedit.text)+''''+' and ycdhsj<='+''''+sqinputForm.GetDate709(endedit.text)+'''';
     sql.Add('where ycdhsj>='+''''+sqinputForm.GetDate709(startedit.text)+''''+' and ycdhsj<='+''''+sqinputForm.GetDate709(endedit.text)+'''');
    end;
    end;
    sql.Text:=sql.Text+'order by 申请表单号 desc,计划员 asc';
    select_condition:=sql.Text; //记忆上一次查询的sql语句，准备回主查询窗口时刷新
    open;
    for I:=0 to datamodule1.hzglquery.Fields.Count-1 do
     if  visible_flag_array[I]=1 then
        datamodule1.hzglquery.Fields[I].Visible:=false;
    end;
    end;
    TotalTable_Count('where '+condition);
    sjcxForm.free;
    end;
    end;
    ybjsl_count;
    bjhgsl_count;
    bjbhgsl_count;
    cgslhs_count;
    Record_Count;
    TotalProduct_Count;
    TotalMoney_Count;
    show;
end;

procedure TcghzbForm.FormActivate(Sender: TObject);
var I:integer;
begin
    if xg_flag=false then
    xgcheck.Checked:=false
    else
    xgcheck.Checked:=true;

    fields_count:=0;
    visible_fields_count:=0;
    if condition='' then
    with Datamodule1 do
    begin
    hzglbSelect:='select  SQBID as 申请表单号,RWMC as 任务名称,YXNX as 有效年限,LSH as 流水号,JHY as 计划员,CPBH as 产品编号,CPMC as 产品名称,xHGG as 型号规格,SLDW as 计量单位,SBRQ as 申请日期,SBSL as 申报数量,KCSL as 库存数量,';
    hzglbSelect:=hzglbSelect+'SXSL as 需采购数量,GJJE as 估计金额,sccj as 申请指定厂家,SJCGSCCJ as 实际采购厂家,YBJSL as 已报检数量,CGSLHS as 采购数量核实,BJHGSJ as 报检合格时间,YSBX1 as 用于何任务,SJYQ as 时间要求,YCDHSJ as 预测到货时间,BJSJ as 报检时间,';
    hzglbSelect:=hzglbSelect+'BJHGSL as 报检合格数量,BJBHGSL as 报检不合格数量,XQDW as 申报部门,BZR as 申请表编制人,BZRQ as 编制日期,SHR as 申请表审核人,SHRQ as 审核时间,PZR as 申请表批准人,PZRQ as 批准时间,CGFS as 采购方式,HG_FLAG as 合格分承制方,'+'QT as 到货说明,BZ as 备注';
    with hzglquery do
    begin
    close;
    sql.Clear;
    sql.Add(hzglbselect);
    sql.Add('from dbo.a_cghzglb');
    sql.Text:=sql.Text+'order by 申请表单号 desc,计划员 asc';
    select_condition:=sql.Text;
    prepare;
    open;
    first;
    condition:='';