jhyxxcx.pas

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

    close;
    label2.Visible:=False;
    dbGrid3.Visible:=True;
    end;
    end;
end;

procedure TjhycxForm.SpeedButton1Click(Sender: TObject);
begin
    if pageControl1.ActivePage=TabSheet1 then
    begin
    sqbrePortForm:=TsqbreportForm.Create(application);
    Report:=sqbReportform.QuickRep;
    with dataModule1.publicquery1 do
    begin
    close;
    sql.Clear;
    sql.Add('select * From dbo.a_cgsqzb');
    sql.Add('where sqbid='+''''+bdidlabel.caption+'''');
    prepare;
    open;
    with  sqbreportForm do
    begin
    rwmcQR.DataField:=FieldByName('rwmc').fieldName;
    rwmcqr.DataSet:=datamodule1.PublicQuery1;
    yxnxqr.DataField:=fieldByName('yxnx').fieldname;
    yxnxqr.DataSet:=datamodule1.PublicQuery1;
    lshqr.DataField:=fieldByName('lsh').Fieldname;
    lshqr.DataSet:=datamodule1.PublicQuery1;
    sqdwqr.DataField:=fieldByName('sqdw').Fieldname;
    sqdwqr.DataSet:=datamodule1.PublicQuery1;
    xqfzrQR.DataField:=fieldByName('xqfzr').Fieldname;
    xqfzrQR.DataSet:=datamodule1.PublicQuery1;
    xqqzrqQR.DataField:=fieldByName('xqrq').Fieldname;
    xqqzrqQR.DataSet:=datamodule1.PublicQuery1;
    pzrQR.DataField:=fieldByName('pzr').Fieldname;
    pzrQR.DataSet:=datamodule1.PublicQuery1;
    pzrqQR.DataField:=fieldByName('pzrq').Fieldname;
    pzrqQR.DataSet:=datamodule1.PublicQuery1;
    shrQR.DataField:=fieldByName('shr').Fieldname;
    shrQR.DataSet:=datamodule1.PublicQuery1;
    shrqQR.DataField:=fieldByName('shrq').Fieldname;
    shrqQR.DataSet:=datamodule1.PublicQuery1;
    bzrqQR.DataField:=fieldByName('bzrq').Fieldname;
    bzrqQR.DataSet:=datamodule1.PublicQuery1;
    //sqrqQR.DataField:=fieldByName('sqrq').Fieldname;
    //sqrqQR.DataSet:=datamodule1.PublicQuery1;
    year.caption:=copy(fieldByName('sqrq').asstring,1,4);
    month.caption:=copy(fieldByName('sqrq').asstring,5,2);
    day.caption:=copy(fieldByName('sqrq').asstring,7,2);
    sqbidQR.DataField:=fieldByName('sqbid').Fieldname;
    sqbidQR.DataSet:=datamodule1.PublicQuery1;
    bzrQR.DataField:=fieldByName('bzr').Fieldname;
    bzrQR.DataSet:=datamodule1.PublicQuery1;
    end;
    end;
   with datamodule1.sqxbQuery do
   begin
   with  sqbreportForm do
   begin
   cpmcqr.DataField:=FieldByName('产品名称').fieldName;
   xhggQR.DataField:=FieldByName('型号规格').fieldName;
   jldwQR.DataField:=FieldByName('计量单位').fieldName;
   sbslQR.DataField:=FieldByName('申请数量').fieldName;
   gjjeQR.DataField:=FieldByName('估计金额').fieldName;
   sccjQR.DataField:=FieldByName('生产厂家').fieldName;
   yyhrwQR.DataField:=FieldByName('用于何任务').fieldName;
   sjyqQR.DataField:=FieldByName('时间要求').fieldName;
   bzQR.DataField:=FieldByName('备注').fieldName;
   end;
   end;
   Report.Preview;
   sqbreportForm.Close;
   sqbReportForm.free;
   end;


   if PageControl1.ActivePage=TabSheet2 then
   begin
   ssbReportForm:=TssbReportForm.Create(application);
   Report:=ssbReportform.QuickRep;
    with dataModule1.publicquery1 do
    begin
    close;
    sql.Clear;
    sql.Add('select * From dbo.a_cgsszb');
    sql.Add('where sqbid='+''''+bdidlabel.caption+'''');
    prepare;
    open;
    with ssbreportForm do
    begin
    rwmcQR.DataField:=FieldByName('rwmc').fieldName;
    rwmcqr.DataSet:=datamodule1.PublicQuery1;
    yxnxqr.DataField:=fieldByName('yxnx').fieldname;
    yxnxqr.DataSet:=datamodule1.PublicQuery1;
    lshqr.DataField:=fieldByName('lsh').Fieldname;
    lshqr.DataSet:=datamodule1.PublicQuery1;
    pzrQR.DataField:=fieldByName('pzr').Fieldname;
    pzrQR.DataSet:=datamodule1.PublicQuery1;
    pzrqQR.DataField:=fieldByName('pzrq').Fieldname;
    pzrqQR.DataSet:=datamodule1.PublicQuery1;
    shrQR.DataField:=fieldByName('shr').Fieldname;
    shrQR.DataSet:=datamodule1.PublicQuery1;
    shrqQR.DataField:=fieldByName('shrq').Fieldname;
    shrqQR.DataSet:=datamodule1.PublicQuery1;
    year.caption:=copy(fieldByName('bzsj').asstring,1,4);
    month.caption:=copy(fieldByName('bzsj').asstring,5,2);
    day.caption:=copy(fieldByName('bzsj').asstring,7,2);
    //bzrqQR.DataField:=fieldByName('bzsj').Fieldname;
    //bzrqQR.DataSet:=datamodule1.PublicQuery1;
    bzqzQR.DataField:=fieldByName('bzqzrq').Fieldname;
    bzqzQR.DataSet:=datamodule1.PublicQuery1;
    sqbidQR.DataField:=fieldByName('sqbid').Fieldname;
    sqbidQR.DataSet:=datamodule1.PublicQuery1;
    bzfzrQR.DataField:=fieldByName('bzfzr').Fieldname;
    bzfzrQR.DataSet:=datamodule1.PublicQuery1;
    end;
    end;
    with datamodule1.ssbxbQuery do
   begin
   with  ssbreportForm do
   begin
   cpmcqr.DataField:=FieldByName('产品名称').fieldName;
   xhggQR.DataField:=FieldByName('型号规格').fieldName;
   jldwQR.DataField:=FieldByName('计量单位').fieldName;
   sbslQR.DataField:=FieldByName('申报数量').fieldName;
   sqsjQR.DataField:=FieldByName('申报日期').fieldName;
   kcslQr.DataField:=FieldByname('库存数量').FieldName;
   xcgslQR.DataField:=FieldByname('需采购数量').FieldName;
   ycdhsjQR.DataField:=FieldByname('预测到货时间').Fieldname;
   xqdwQR.DataField:=FieldByName('需求单位').FieldName;
   cgslhsQR.DataField:=FieldByname('采购数量核实').Fieldname;
   bzqr.DataField:=FieldByName('备注').Fieldname;
   end;
   end;
   Report.Preview;
   ssbReportForm.Close;
   ssbreportForm.free;
   end;

   if (PageControl1.ActivePage=tabsheet3) and dbGrid3.Visible then
   begin
   bhgsqReportForm:=TbhgsqReportForm.Create(application);
   Report:=bhgsqreportForm.QuickRep;
    with dataModule1.publicquery1 do
    begin
    close;
    sql.Clear;
    sql.Add('select * From dbo.a_cgsszb');
    sql.Add('where sqbid='+''''+bdidlabel.caption+'''');
    prepare;
    open;
    with bhgsqreportForm do
    begin
    rwmcQR.DataField:=FieldByName('rwmc').fieldName;
    rwmcqr.DataSet:=datamodule1.PublicQuery1;
    yxnxqr.DataField:=fieldByName('yxnx').fieldname;
    yxnxqr.DataSet:=datamodule1.PublicQuery1;
    lshqr.DataField:=fieldByName('lsh').Fieldname;
    lshqr.DataSet:=datamodule1.PublicQuery1;
    pzrQR.DataField:=fieldByName('pzr').Fieldname;
    pzrQR.DataSet:=datamodule1.PublicQuery1;
    pzrqQR.DataField:=fieldByName('pzrq').Fieldname;
    pzrqQR.DataSet:=datamodule1.PublicQuery1;
    shrQR.DataField:=fieldByName('shr').Fieldname;
    shrQR.DataSet:=datamodule1.PublicQuery1;
    shrqQR.DataField:=fieldByName('shrq').Fieldname;
    shrqQR.DataSet:=datamodule1.PublicQuery1;
    year.caption:=copy(fieldByName('bzsj').asstring,1,4);
    month.caption:=copy(fieldByName('bzsj').asstring,5,2);
    day.caption:=copy(fieldByName('bzsj').asstring,7,2);
    bzqzQR.DataField:=fieldByName('bzqzrq').Fieldname;
    bzqzQR.DataSet:=datamodule1.PublicQuery1;
    sqbidQR.DataField:=fieldByName('sqbid').Fieldname;
    sqbidQR.DataSet:=datamodule1.PublicQuery1;
    bzfzrQR.DataField:=fieldByName('bzfzr').Fieldname;
    bzfzrQR.DataSet:=datamodule1.PublicQuery1;
    end;
    end;
    with dataModule1.PublicQuery2 do
    begin
    close;
    sql.Clear;
    sql.Add('select sqdw from dbo.a_cgsqzb');
    sql.Add('where sqbid='+''''+bdidlabel.caption+'''');
    prepare;
    open;
    with bhgsqreportForm do
    begin
    sqdwqr.DataField:=FieldByname('sqdw').FieldName;
    sqdwqr.DataSet:=datamodule1.publicQuery2;
    end;
    end;
    with datamodule1.publicQuery3 do
    begin
    requestlive:=false;
    close;
    sql.clear;
    sql.Add('select dbo.a_cgsqxb.cpbh as 产品编号,dbo.a_cgsqxb.cpmc as 产品名称,dbo.a_cgsqxb.xhgg as 型号规格,dbo.a_cgsqxb.jldw as 计量单位,dbo.a_cgsqxb.sbsl as 申请数量,');
    sql.add('dbo.a_bhgsqxb.HGWCJMC as 生产厂家,dbo.a_cgsqxb.gjje as 估计金额,dbo.a_cgsqxb.yyhrw as 用于何任务,dbo.a_cgsqxb.sjyq as 时间要求,');
    sql.Add('dbo.a_bhgsqxb.ly as 理由 from dbo.a_bhgsqxb,dbo.a_cgsqxb');
    sql.Add('where dbo.a_cgsqxb.sqbid=dbo.a_bhgsqxb.sqbid and dbo.a_cgsqxb.cpbh=dbo.a_bhgsqxb.cpbh and dbo.a_cgsqxb.sqbid='+''''+bdidlabel.caption+'''');
    prepare;
    open;
    with  bhgsqreportForm do
    begin
    cpmcqr.DataField:=FieldByName('产品名称').fieldName;
    xhggQR.DataField:=FieldByName('型号规格').fieldName;
    jldwQR.DataField:=FieldByName('计量单位').fieldName;
    sbslQR.DataField:=FieldByName('申请数量').fieldName;
    gjjeQR.DataField:=FieldByName('估计金额').fieldName;
    sccjQR.DataField:=FieldByName('生产厂家').fieldName;
    yyhrwQR.DataField:=FieldByName('用于何任务').fieldName;
    sjyqQR.DataField:=FieldByName('时间要求').fieldName;
    lyQR.DataField:=FieldByName('理由').fieldName;
    end;
    end;
    Report.Preview;
    bhgsqReportForm.Close;
    bhgsqReportForm.free;
   end
   else
   exit;
end;

end.