📄 u_p_bgd.pas

📁 相关的销售服务管理行业的一个软件
💻 PAS
📖 第 1 页 / 共 2 页
字号:
上一页 12
  QRDBText19.Lines.Text:=ADOQueryBGDBB1.fieldbyname('YunDiCountry').asstring;
  QRDBText20.Lines.Text:=ADOQueryBGDBB1.fieldbyname('ZhiYunPort').asstring;
  QRDBText21.Lines.Text:=ADOQueryBGDBB1.fieldbyname('JinNeiGoods').asstring;
  QRDBText22.Lines.Text:=ADOQueryBGDBB1.fieldbyname('ChengJiaoBy').asstring;
  QRDBText23.Lines.Text:=ADOQueryBGDBB1.fieldbyname('YunFei').asstring;
  QRDBText24.Lines.Text:=ADOQueryBGDBB1.fieldbyname('BaoFei').asstring;
  QRDBText25.Lines.Text:=ADOQueryBGDBB1.fieldbyname('ZaFei').asstring;
  QRDBText26.Lines.Text:=ADOQueryBGDBB1.fieldbyname('JianShu').asstring;
  QRDBText27.Lines.Text:=ADOQueryBGDBB1.fieldbyname('BaoZhuangBy').asstring;
  QRDBText28.Lines.Text:=ADOQueryBGDBB1.fieldbyname('MaoZhong').asstring;
  QRDBText29.Lines.Text:=ADOQueryBGDBB1.fieldbyname('JingZhong').asstring;
  QRDBText30.Lines.Text:=ADOQueryBGDBB1.fieldbyname('SuiFuDJ').asstring;
  QRDBText31.Lines.Text:=ADOQueryBGDBB1.fieldbyname('ShengChanBy').asstring;
  QRMemo1.Lines.Text:=ADOQueryBGDBB1.FieldByName('MarkNos').AsString;
  QRMemo2.Lines.Text:=ADOQueryBGDBB1.FieldByName('Tax').AsString;

  QRDBText39.Lines.Text:=ADOQueryBGDBB.fieldbyname('XiangHao').asstring;
  QRDBText40.Lines.Text:=ADOQueryBGDBB.fieldbyname('ShangPingNo').asstring;
  QRDBText41.Lines.Text:=ADOQueryBGDBB.fieldbyname('ShangPingName').asstring;
  QRDBText42.Lines.Text:=ADOQueryBGDBB.fieldbyname('ShuLiang').asstring;
  QRDBText43.Lines.Text:=ADOQueryBGDBB.fieldbyname('MuDiGuo').asstring;
  QRDBText44.Lines.Text:=ADOQueryBGDBB.fieldbyname('Price').asstring;
  QRDBText45.Lines.Text:=ADOQueryBGDBB.fieldbyname('Amount').asstring;
  QRDBText46.Lines.Text:=ADOQueryBGDBB.fieldbyname('BiZhi').asstring;
  QRDBText47.Lines.Text:=ADOQueryBGDBB.fieldbyname('ZhengMian').asstring;
 end;
 //
 if BGDshow=true then
  begin
  QuickRep1.DataSet:=ADOQueryBGDBB;
  ADOQueryBGDBB1.Close;
  ADOQueryBGDBB1.Sql.Clear;
  ADOQueryBGDBB1.sql.Add('select * from xs_bgd where DingDanNo='''+F_BGD.DBEditDingDanNo.Text+'''');
  ADOQueryBGDBB1.Open;
  ADOQueryBGDBB.Close;
  ADOQueryBGDBB.sql.Clear;
  ADOQueryBGDBB.sql.Add('select * from XS_BGDchild  where XS_BGDchild.DingDanNo='''+F_BGD.DBEditDingDanNo.Text+''' order by xianghao');
  ADOQueryBGDBB.Open;
  QRDBText1.Lines.Text:=ADOQueryBGDBB1.fieldbyname('YuLuRuNo').asstring;
  QRDBText2.Lines.Text:=ADOQueryBGDBB1.fieldbyname('HaiGuanNo').asstring;
  QRDBText3.Lines.Text:=ADOQueryBGDBB1.fieldbyname('ChuKouPort').asstring;
  QRDBText4.Lines.Text:=ADOQueryBGDBB1.fieldbyname('JingYingUint').asstring;
  QRDBText5.Lines.Text:=ADOQueryBGDBB1.fieldbyname('FaHuoUnit').asstring;
  QRDBText6.Lines.Text:=ADOQueryBGDBB1.fieldbyname('BeiAnNo').asstring;
  QRDBText7.Lines.Text:=ADOQueryBGDBB1.fieldbyname('ChuKouDate').asstring;
  QRDBText8.Lines.Text:=ADOQueryBGDBB1.fieldbyname('ShenBaoDate').asstring;
  QRDBText9.Lines.Text:=ADOQueryBGDBB1.fieldbyname('YunShuBy').asstring;
  QRDBText10.Lines.Text:=ADOQueryBGDBB1.fieldbyname('YunShuVehicle').asstring;
  QRDBText11.Lines.Text:=ADOQueryBGDBB1.fieldbyname('TiYunDanNo').asstring;
  QRDBText12.Lines.Text:=ADOQueryBGDBB1.fieldbyname('MaoYiBy').asstring;
  QRDBText13.Lines.Text:=ADOQueryBGDBB1.fieldbyname('ZhengTax').asstring;
  QRDBText14.Lines.Text:=ADOQueryBGDBB1.fieldbyname('JieHuiBy').asstring;
  QRDBText15.Lines.Text:=ADOQueryBGDBB1.fieldbyname('XuKeZhengNo').asstring;
  QRDBText16.Lines.Text:=ADOQueryBGDBB1.fieldbyname('PiZhunNo').asstring;
  QRDBText17.Lines.Text:=ADOQueryBGDBB1.fieldbyname('HeTongNo').asstring;
  QRDBText18.Lines.Text:=ADOQueryBGDBB1.fieldbyname('JiZhXNo').asstring;
  QRDBText19.Lines.Text:=ADOQueryBGDBB1.fieldbyname('YunDiCountry').asstring;
  QRDBText20.Lines.Text:=ADOQueryBGDBB1.fieldbyname('ZhiYunPort').asstring;
  QRDBText21.Lines.Text:=ADOQueryBGDBB1.fieldbyname('JinNeiGoods').asstring;
  QRDBText22.Lines.Text:=ADOQueryBGDBB1.fieldbyname('ChengJiaoBy').asstring;
  QRDBText23.Lines.Text:=ADOQueryBGDBB1.fieldbyname('YunFei').asstring;
  QRDBText24.Lines.Text:=ADOQueryBGDBB1.fieldbyname('BaoFei').asstring;
  QRDBText25.Lines.Text:=ADOQueryBGDBB1.fieldbyname('ZaFei').asstring;
  QRDBText26.Lines.Text:=ADOQueryBGDBB1.fieldbyname('JianShu').asstring;
  QRDBText27.Lines.Text:=ADOQueryBGDBB1.fieldbyname('BaoZhuangBy').asstring;
  QRDBText28.Lines.Text:=ADOQueryBGDBB1.fieldbyname('MaoZhong').asstring;
  QRDBText29.Lines.Text:=ADOQueryBGDBB1.fieldbyname('JingZhong').asstring;
  QRDBText30.Lines.Text:=ADOQueryBGDBB1.fieldbyname('SuiFuDJ').asstring;
  QRDBText31.Lines.Text:=ADOQueryBGDBB1.fieldbyname('ShengChanBy').asstring;
  QRMemo1.Lines.Text:=ADOQueryBGDBB1.FieldByName('MarkNos').AsString;
  QRMemo2.Lines.Text:=ADOQueryBGDBB1.FieldByName('Tax').AsString;
  
  QRDBText39.Lines.Text:=ADOQueryBGDBB.fieldbyname('XiangHao').asstring;
  QRDBText40.Lines.Text:=ADOQueryBGDBB.fieldbyname('ShangPingNo').asstring;
  QRDBText41.Lines.Text:=ADOQueryBGDBB.fieldbyname('ShangPingName').asstring;
  QRDBText42.Lines.Text:=ADOQueryBGDBB.fieldbyname('ShuLiang').asstring;
  QRDBText43.Lines.Text:=ADOQueryBGDBB.fieldbyname('MuDiGuo').asstring;
  QRDBText44.Lines.Text:=ADOQueryBGDBB.fieldbyname('Price').asstring;
  QRDBText45.Lines.Text:=ADOQueryBGDBB.fieldbyname('Amount').asstring;
  QRDBText46.Lines.Text:=ADOQueryBGDBB.fieldbyname('BiZhi').asstring;
  QRDBText47.Lines.Text:=ADOQueryBGDBB.fieldbyname('ZhengMian').asstring;
 end;
end;

procedure TF_P_BGD.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  F_P_BGD:=nil;
  Action:=caFree;
end;

procedure TF_P_BGD.QuickRep1AfterPreview(Sender: TObject);
begin
  Close;
end;

procedure TF_P_BGD.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
  iBGD:=iBGD+1;
  if Odd(iBGD) then
    Exit
  else begin
    QRLabel1.Caption:='';
    QRLabel2.Caption:='';
    QRLabel3.Caption:='';
    QRLabel4.Caption:='';
    QRLabel5.Caption:='';
    QRLabel6.Caption:='';
    QRLabel7.Caption:='';
    QRLabel8.Caption:='';
    QRLabel9.Caption:='';
    QRLabel10.Caption:='';
    QRLabel11.Caption:='';
    QRLabel12.Caption:='';
    QRLabel13.Caption:='';
    QRLabel14.Caption:='';
    QRLabel15.Caption:='';
    QRLabel16.Caption:='';
    QRLabel17.Caption:='';
    QRLabel18.Caption:='';
    QRLabel19.Caption:='';
    QRLabel20.Caption:='';
    QRLabel21.Caption:='';
    QRLabel22.Caption:='';
    QRLabel23.Caption:='';
    QRLabel24.Caption:='';
    QRLabel25.Caption:='';
    QRLabel26.Caption:='';
    QRLabel27.Caption:='';
    QRLabel28.Caption:='';
    QRLabel29.Caption:='';
    QRLabel30.Caption:='';
    QRLabel31.Caption:='';
    QRLabel32.Caption:='';
    QRLabel33.Caption:='';
    QRLabel34.Caption:='';
    QRLabel35.Caption:='';
    QRLabel36.Caption:='';
    QRLabel37.Caption:='';
    QRLabel38.Caption:='';
    QRLabel39.Caption:='';
    QRLabel40.Caption:='';
    QRLabel41.Caption:='';
    QRLabel42.Caption:='';
    QRLabel43.Caption:='';
    QRLabel44.Caption:='';
    QRLabel45.Caption:='';
    QRLabel46.Caption:='';
    QRLabel47.Caption:='';
    QRLabel48.Caption:='';
    QRLabel49.Caption:='';
    QRLabel50.Caption:='';
    QRLabel51.Caption:='';
    QRLabel52.Caption:='';
    QRLabel53.Caption:='';
    QRLabel54.Caption:='';
    QRLabel55.Caption:='';
    QRLabel56.Caption:='';
    QRLabel57.Caption:='';
    QRLabel58.Caption:='';
    QRLabel59.Caption:='';
    QRShape1.Enabled:=False;
    QRShape2.Enabled:=False;
    QRShape3.Enabled:=False;
    QRShape4.Enabled:=False;
    QRShape5.Enabled:=False;
    QRShape6.Enabled:=False;
    QRShape7.Enabled:=False;
    QRShape8.Enabled:=False;
    QRShape9.Enabled:=False;
    QRShape10.Enabled:=False;
    QRShape11.Enabled:=False;
    QRShape12.Enabled:=False;
    QRShape13.Enabled:=False;
    QRShape14.Enabled:=False;
    QRShape15.Enabled:=False;
    QRShape19.Enabled:=False;
    QRShape20.Enabled:=False;
    QRShape21.Enabled:=False;
    QRShape22.Enabled:=False;
    QRShape23.Enabled:=False;
    QRShape24.Enabled:=False;
    QRShape25.Enabled:=False;
    QRShape26.Enabled:=False;
    QRShape27.Enabled:=False;
    QRShape28.Enabled:=False;
    QRShape29.Enabled:=False;
    QRShape30.Enabled:=False;
    QRShape31.Enabled:=False;
    QRShape32.Enabled:=False;
    QRShape33.Enabled:=False;
    QRShape34.Enabled:=False;
    QRShape35.Enabled:=False;
    QRShape40.Enabled:=False;
    QRShape41.Enabled:=False;
    QRShape42.Enabled:=False;
  end;         
end;

procedure TF_P_BGD.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if BGDCXshow = true then
   begin
    ADOQueryBGDBB1.Close;
    ADOQueryBGDBB.Close;
   end;
  if BGDshow = true then
   begin
    DM.ADOQueryBGDCX.Close;
    DM.ADOQueryBGDChild.Close;
   end;  
end;

end.
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -