sqquery.pas

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

    cxztLabel.Caption:='按人员查询的采购申请表';
    if bzrcheckbox.Checked then
    strlist[0]:='bzr'+' = '+''''+bzrCombo.Text+'''';
    if xqfzrCheckBox.Checked then
    strlist[1]:=' xqfzr = '+''''+xqfzrCombo.Text+'''';
    if shrcheckBox.Checked then
    strlist[2]:=' shr = '+''''+shrCombo.text+'''';
    end;
    if GroupBox3.Enabled then
    begin
    cxztLabel.Caption:='按申请单位和申请时间查询的采购申请表';
    if sqdwcheckbox.Checked then
    strlist[0]:=' sqdw = '+''''+sqdwCombo.Text+'''';
    if sqsjCheckBox.Checked then
    strlist[1]:=' sqrq = '+''''+sqinputForm.Getdate709(sqsjedit.Text)+'''';
    end;
    for I:=0 to 2 do
    if (strlist[I]<>'') then
    begin
    if (strCondition<>'') then
    strCondition:=strCondition+' and '+strlist[I]
    else
    strCondition:=strCondition+strlist[I];
    end;
    if strCondition='' then
    showmessage('请您选择并给出一个查询条件后，再执行查询！')
    else
    begin
    strwhere:=strwhere+strCondition;
    with Datamodule1 do
    begin
    with sqzbquery do
    begin
    SQL.clear;
    close;
    sql.Add(zbstrselect);
    SQL.add(' from dbo.a_cgsqzb ');
    sql.add(strwhere);
    sql.Text:=sql.Text+'order by 表单代号 desc';
    open;
    FieldByName('yxnx').Visible:=False;
    FieldByName('lsh').Visible:=False;
    FieldByName('sqrq').Visible:=False;
    FieldByName('xqrq').Visible:=False;
    FieldByName('bzrq').Visible:=False;
    FieldByName('shrq').Visible:=False;
    FieldByName('pzrq').Visible:=False;
    writeTableHead;
    end;
    sqxbquery.sql.clear;
    sqxbquery.close;
    sqxbquery.sql.Add(xbstrselect);
    sqxbquery.sql.Add('where sqbid = '+''''+sqbidlabel.caption+'''');
    sqxbquery.open;
    sqxbquery.FieldByName('jhy').Visible:=False;
    end;
    end;
end;

procedure TsqcxForm.N3Click(Sender: TObject);
var sqbidstr:string;
begin
    TimeRangeForm:=TTimeRangeForm.Create(application);
    hide;
    with TimeRangeform do
    begin
    if ShowModal=mrok then
    begin
    with Datamodule1 do
    begin
    with sqzbquery do
    begin
    SQL.clear;
    close;
    sql.Add(zbstrselect);
    SQL.add('from dbo.a_cgsqzb where sqrq>='+''''+sqinputForm.GetDate709(startedit.text)+''''+' and ');
    sql.Add('sqrq<='+''''+sqinputForm.GetDate709(endedit.Text)+'''');
    sql.Text:=sql.Text+'order by 表单代号 desc';
    open;
    first;
    sqbidstr:=fieldByname('表单代号').asstring;
    FieldByName('yxnx').Visible:=False;
    FieldByName('lsh').Visible:=False;
    FieldByName('sqrq').Visible:=False;
    FieldByName('xqrq').Visible:=False;
    FieldByName('bzrq').Visible:=False;
    FieldByName('shrq').Visible:=False;
    FieldByName('pzrq').Visible:=False;
    writeTableHead;
    end;
    sqxbquery.sql.clear;
    sqxbquery.close;
    sqxbquery.sql.Add(xbstrselect);
    sqxbquery.sql.Add('where sqbid='+''''+sqbidstr+'''');
    sqxbquery.open;
    sqxbquery.FieldByName('jhy').Visible:=False;
    cxztLabel.Caption:='申请时间在'+startedit.text+'与'+endedit.text+'之间的采购申请表';
    end;
    TimeRangeForm.Free;
    end;
    end;
    show;
end;

procedure TsqcxForm.sqbidLabelClick(Sender: TObject);
begin
    Datamodule1.set_flag:=1;

    ssbcxForm:=TssbcxForm.Create(application);
    with dataModule1.PublicQuery1 do
    begin
    close;
    sql.Clear;
    sql.Add('select * From dbo.a_cgsszb');
    sql.Add('where sqbid='+''''+sqbidlabel.caption+'''');
    prepare;
    open;
    with ssbcxForm do
    begin
    rwmcLabel.Caption:=FielDByName('rwmc').asstring;
    yxnxlabel.Caption:=FieldBYname('yxnx').asstring;
    lshLabel.Caption:=FieldByName('lsh').asstring;
    bdidLabel.Caption:=FieldByName('sqbid').asstring;
    bzsjlabel.Caption:=sqinputForm.ShowMeDate(FieldByname('bzsj').asstring);
    bzfzrLabel.Caption:=FieldByname('bzfzr').asstring;
    shrlabel.Caption:=FieldByname('shr').asstring;
    pzrlabel.Caption:=FieldByname('pzr').asstring;
    bzqzrqLabel.Caption:=sqinputForm.ShowMeDate(FieldByName('bzqzrq').asstring);
    shrqLabel.Caption:=sqinputForm.ShowMeDate(FieldByName('shrq').asstring);
    pzrqLabel.Caption:=sqinputForm.ShowMeDate(FieldByName('pzrq').asstring);
    end;
    close;
    end;
    hide;
    ssbcxForm.ShowModal;
    ssbcxForm.free;
    show;
end;

procedure TsqcxForm.BitBtn4Click(Sender: TObject);
var Recordsqbid,RecordCpbh:string;
begin
    with dataModule1.sqxbQuery do
    begin
       if RecordCount=0 then
       begin
       showmessage('对不起！没有任何记录可以删除！');
       exit;
       end;
       Recordsqbid:=sqbidLabel.caption;
       Recordcpbh:=FieldByname('产品编号').asstring;
    end;


    with dataModule1.PublicQuery1 do
    begin
    Requestlive:=True;
    close;
    sql.clear;
    sql.add('select * From dbo.a_cgsqxb');
    sql.Add('where sqbid='+''''+Recordsqbid+''''+' and cpbh='+''''+Recordcpbh+'''');
    prepare;
    open;
    if messageDlg('您确定要删除当前记录?',mtInformation,[mbOK,mbCANCEL],0)=mrCancel then
    begin
    RequestLive:=False;
    close;
    exit;
    end;
    delete;


    close;
    sql.clear;
    sql.add('select * From dbo.a_cgssxb');
    sql.Add('where sqbid='+''''+Recordsqbid+''''+' and cpbh='+''''+Recordcpbh+'''');
    prepare;
    open;
    if recordCount<>0 then
    delete;

    close;
    sql.clear;
    sql.add('select * From dbo.a_cghzglb');
    sql.Add('where sqbid='+''''+Recordsqbid+''''+' and cpbh='+''''+Recordcpbh+'''');
    prepare;
    open;
    if recordCOunt<>0 then
    delete;

    close;
    sql.clear;
    sql.add('select * From dbo.a_bhgsqxb');
    sql.Add('where sqbid='+''''+Recordsqbid+''''+' and cpbh='+''''+Recordcpbh+'''');
    prepare;
    open;
    if RecordCount<>0 then
    begin
    delete;
    Requestlive:=False;
    close;
    end
    else
    RequestLive:=False;
    close;
    end;
    with datamodule1.sqxbQuery do
    begin
    close;
    sql.clear;
    sql.add('select jhy,cpbh as 产品编号,cpmc as 产品名称,xhgg as 型号规格,jldw as 计量单位,sbsl as 申请数量,sccj as 生产厂家,gjje as 估计金额,yyhrw as 用于何任务,sjyq as 时间要求,bz as 备注 From dbo.a_cgsqxb');
    sql.Add('where sqbid='+''''+Recordsqbid+'''');
    prepare;
    open;
    FieldByName('jhy').Visible:=False;
    end;
    showmessage('您已经成功删除当前记录!');
end;

procedure TsqcxForm.BitBtn5Click(Sender: TObject);
var Recordsqbid:string;
begin
    with dataModule1.sqzbQuery do
    begin
       if RecordCount=0 then
       begin
       showmessage('对不起！没有任何记录可以删除！');
       exit;
       end;
       Recordsqbid:=FieldByname('表单代号').asstring;
    end;

    with datamodule1.PublicQuery1 do
    begin
    Requestlive:=True;
    close;
    sql.Clear;
    sql.Add('select * From dbo.a_cgsqzb');
    sql.Add('where sqbid='+''''+Recordsqbid+'''');
    prepare;
    open;
    if messageDlg('您确定要删除当前表单号为'+Recordsqbid+'申请表?',mtInformation,[mbOK,mbCANCEL],0)=mrCancel then
    begin
    RequestLive:=False;
    close;
    exit;
    end;

    with datamodule1.PublicQuery3 do
    begin
    sql.Clear;
    sql.Add('select * From dbo.a_zfsqbjl');
    sql.Add('where zfsqbid='+''''+Recordsqbid+'''');
    prepare;
    open;
    if RecordCount=0 then
    begin
    Requestlive:=True;
    sql.Clear;
    sql.Add('select * From dbo.a_zfsqbjl');
    prepare;
    open;
    append;
    FieldByname('zfsqbid').asstring:=Recordsqbid;
    post;
    end;
    end;

    delete;
    requestlive:=false;
    close;
    end;
    with datamodule1.sqzbQuery do
    begin
    close;
    sql.clear;
    sql.add('select sqbid as 表单代号,rwmc as 任务名称,yxnx,lsh,sqdw as 申请单位,sqrq,bzr as 编制人,xqfzr as 需求部门负责人,shr as 审核人,pzr as 批准人,bzrq,xqrq,shrq,pzrq From dbo.a_cgsqzb');
    prepare;
    open;
    FieldByName('yxnx').Visible:=False;
    FieldByName('lsh').Visible:=False;
    FieldByName('sqrq').Visible:=False;
    FieldByName('xqrq').Visible:=False;
    FieldByName('bzrq').Visible:=False;
    FieldByName('shrq').Visible:=False;
    FieldByName('pzrq').Visible:=False;
    end;
    
    datamodule1.publicQuery3.RequestLive:=False;
    datamodule1.publicQuery3.close;
    showmessage('您成功删除当前表单号为'+Recordsqbid+'申请表!');

end;

procedure TsqcxForm.BitBtn3Click(Sender: TObject);
begin
     sqeditForm:=TsqeditForm.Create(Application);
     with sqeditForm do
     begin
     with datamodule1.sqzbQuery do
     begin
     if RecordCount=0 then
     begin
     showmessage('现在没有任何申请表可以修改！');
     exit;
     end;
     rwmcEdit.Text:=FieldByName('任务名称').asstring;
     lshEdit.Text:=FieldByname('lsh').asstring;
     sqrqEdit.Text:=sqinputForm.ShowMeDate(FieldByName('sqrq').asstring);
     sqdwCombo.Text:=FieldByName('申请单位').asstring;
     sqbidPanel.Caption:=FieldByname('表单代号').asstring;
     xqfzrCombo.Text:=FieldByName('需求部门负责人').asstring;
     bzrCombo.Text:=FieldByName('编制人').asstring;
     shrCombo.Text:=FieldByName('审核人').asstring;
     pzrCombo.Text:=FieldByName('批准人').asstring;
     bzrqEdit.Text:=sqinputForm.ShowMeDate(FieldByName('sqrq').asstring);
     xqrqEdit.text:=sqinputForm.ShowMeDate(FieldByName('xqrq').asstring);
     shrqEdit.Text:=sqinputForm.ShowMeDate(FieldByName('shrq').asstring);
     pzrqEdit.Text:=sqinputForm.ShowMeDate(FieldByName('pzrq').asstring);
    end;
    with datamodule1.sqxbQuery do
    begin
     jldwCombo.Text:=FieldByname('计量单位').asstring;
     sbslEdit.Text:=FieldByname('申请数量').asstring;
     gjjeEdit.Text:=FieldByname('估计金额').asstring;
     sccjCombo.Text:=FieldByname('生产厂家').asstring;
     yyhrwEdit.Text:=FieldByname('用于何任务').asstring;
     sjyqEdit.Text:=FieldByname('时间要求').asstring;
     bzEdit.Text:=FieldByname('备注').asstring;
     cpbhEdit.Text:=FieldByname('产品编号').asstring;
     jhyCombo.Text:=FieldByname('jhy').asstring;
     cpmcEdit.Text:=FieldByname('产品名称').asstring;
     xhggEdit.Text:=FieldByname('型号规格').asstring;
    end;
    end;
    hide;
    sqeditForm.ShowModal;
    sqeditForm.free;
    show;
end;

procedure TsqcxForm.RappendBtnClick(Sender: TObject);
begin
    with datamodule1.sqzbQuery do
    begin
    if RecordCount=0 then
    begin
    showmessage('现在没有任何申请表可以添加记录！');
    exit;
    end;
    end;
    sqappendForm:=TsqappendForm.Create(application);
    sqappendForm.sqbidLabel.Caption:=sqbidLabel.Caption;
    hide;
    sqappendForm.ShowModal;
    sqappendForm.free;
    show;
end;

procedure TsqcxForm.printButtonClick(Sender: TObject);
begin
   sqbReportForm:=TsqbReportForm.Create(application);
   Report:=sqbReportform.QuickRep;
   with datamodule1.sqzbQuery do
   begin
   with  sqbreportForm do
   begin
    rwmcQR.DataField:=FieldByName('任务名称').fieldName;
    yxnxqr.DataField:=fieldByName('yxnx').fieldname;
    lshqr.DataField:=fieldByName('lsh').Fieldname;
    sqdwqr.DataField:=fieldByName('申请单位').Fieldname;
    xqfzrQR.DataField:=fieldByName('需求部门负责人').Fieldname;
    xqqzrqQR.DataField:=fieldByName('xqrq').Fieldname;
    pzrQR.DataField:=fieldByName('批准人').Fieldname;
    pzrqQR.DataField:=fieldByName('pzrq').Fieldname;
    shrQR.DataField:=fieldByName('审核人').Fieldname;
    shrqQR.DataField:=fieldByName('shrq').Fieldname;
    bzrqQR.DataField:=fieldByName('bzrq').Fieldname;
    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('表单代号').Fieldname;
    bzrQR.DataField:=fieldByName('编制人').Fieldname;
    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.free;
end;

procedure TsqcxForm.sqsjDateCloseUp(Sender: TObject);
begin
    sqsjedit.Text:=ShowMeDate(sqinputForm.DateTo709str(sqsjDate.Date));
end;

procedure TsqcxForm.N2Click(Sender: TObject);
begin
   jhyxgForm:=TjhyxgForm.Create(application);
   hide;
   jhyxgForm.ShowModal;
   jhyxgForm.free;
   show;
end;

end.