📄 u_p_wts.pas
字号:
unit U_P_WTS;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, QuickRpt, Qrctrls, Db, ADODB;
type
TF_P_WTS = class(TForm)
QuickRep1: TQuickRep;
QRBand1: TQRBand;
QRLabel1: TQRLabel;
QRShape1: TQRShape;
QRShape2: TQRShape;
QRShape3: TQRShape;
QRShape4: TQRShape;
QRShape5: TQRShape;
QRShape6: TQRShape;
QRShape7: TQRShape;
QRShape8: TQRShape;
QRShape9: TQRShape;
QRShape10: TQRShape;
QRShape11: TQRShape;
QRShape12: TQRShape;
QRShape13: TQRShape;
QRShape14: TQRShape;
QRShape15: TQRShape;
QRShape16: TQRShape;
QRShape17: TQRShape;
QRShape18: TQRShape;
QRShape19: TQRShape;
QRLabel2: TQRLabel;
QRShape20: TQRShape;
QRShape21: TQRShape;
QRShape22: TQRShape;
QRShape23: TQRShape;
QRShape24: TQRShape;
QRShape25: TQRShape;
QRShape26: TQRShape;
QRShape27: TQRShape;
QRShape28: TQRShape;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
QRLabel8: TQRLabel;
QRShape29: TQRShape;
QRLabel9: TQRLabel;
QRLabel10: TQRLabel;
QRLabel11: TQRLabel;
QRLabel12: TQRLabel;
QRLabel13: TQRLabel;
QRLabel14: TQRLabel;
QRLabel15: TQRLabel;
QRLabel16: TQRLabel;
QRLabel17: TQRLabel;
QRLabel18: TQRLabel;
QRLabel19: TQRLabel;
QRLabel20: TQRLabel;
QRLabel21: TQRLabel;
QRLabel22: TQRLabel;
QRLabel23: TQRLabel;
QRLabel24: TQRLabel;
QRLabel25: TQRLabel;
QRLabel26: TQRLabel;
QRLabel27: TQRLabel;
QRLabel28: TQRLabel;
QRLabel29: TQRLabel;
QRLabel30: TQRLabel;
QRLabel31: TQRLabel;
QRLabel32: TQRLabel;
QRLabel33: TQRLabel;
QRLabel34: TQRLabel;
QRLabel35: TQRLabel;
QRLabel36: TQRLabel;
QRLabel37: TQRLabel;
QRLabel38: TQRLabel;
QRLabel39: TQRLabel;
QRLabel40: TQRLabel;
QRLabel41: TQRLabel;
QRLabel42: TQRLabel;
QRLabel43: TQRLabel;
QRLabel44: TQRLabel;
QRLabel45: TQRLabel;
QRLabel46: TQRLabel;
QRLabel47: TQRLabel;
QRLabel48: TQRLabel;
QRLabel49: TQRLabel;
QRLabel50: TQRLabel;
QRLabel51: TQRLabel;
QRLabel52: TQRLabel;
QRLabel53: TQRLabel;
QRLabel54: TQRLabel;
QRLabel55: TQRLabel;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRDBText4: TQRDBText;
QRDBText5: TQRDBText;
QRDBText6: TQRDBText;
QRDBText7: TQRDBText;
QRDBText8: TQRDBText;
QRDBText9: TQRDBText;
QRDBText10: TQRDBText;
QRDBText11: TQRDBText;
QRDBText12: TQRDBText;
QRDBText13: TQRDBText;
QRDBText14: TQRDBText;
QRDBText15: TQRDBText;
QRDBText16: TQRDBText;
QRDBText17: TQRDBText;
QRDBText18: TQRDBText;
QRDBText19: TQRDBText;
QRDBText20: TQRDBText;
QRDBText21: TQRDBText;
QRDBText22: TQRDBText;
QRDBText23: TQRDBText;
QRDBText24: TQRDBText;
QRDBText25: TQRDBText;
QRDBText26: TQRDBText;
QRDBText27: TQRDBText;
QRDBText28: TQRDBText;
QRDBText29: TQRDBText;
QRDBText30: TQRDBText;
QRDBText31: TQRDBText;
QRDBText32: TQRDBText;
QRDBText33: TQRDBText;
QRDBText34: TQRDBText;
QRLabel56: TQRLabel;
QRDBText35: TQRDBText;
QRLabel57: TQRLabel;
QRLabel58: TQRLabel;
QRLabel59: TQRLabel;
ADOQueryWTDY: TADOQuery;
procedure QuickRep1AfterPreview(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
procedure FormCreate(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
F_P_WTS: TF_P_WTS;
iWTS: Integer;
implementation
uses U_DM, U_WTD, U_WTDCX;
{$R *.DFM}
procedure TF_P_WTS.QuickRep1AfterPreview(Sender: TObject);
begin
Close;
end;
procedure TF_P_WTS.FormClose(Sender: TObject; var Action: TCloseAction);
begin
F_P_WTS:=nil;
Action:=caFree;
end;
procedure TF_P_WTS.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
iWTS:=iWTS+1;
if Odd(iWTS) then
Exit
else begin
//
end;
end;
procedure TF_P_WTS.FormCreate(Sender: TObject);
begin
if wtdshow=true then
begin
QuickRep1.DataSet:=DM.ADOQueryWTDCX;
DM.ADOQueryWTDCX.Close;
DM.ADOQueryWTDCX.SQL.Clear;
DM.ADOQueryWTDCX.SQL.Add('select * from xs_wts where DingDanNo='''+F_wts.DBEditDingDanNo.text+'''');
DM.ADOQueryWTDCX.Open;
QRDBText35.Lines.Text:=DM.ADOQueryWTDCX.fieldbyname('DingDanNo').asstring;
QRDBText1.Lines.Text:=DM.ADOQueryWTDCX.fieldbyname('WeiTuoUnit').asstring;
QRDBText2.Lines.Text:=DM.ADOQueryWTDCX.fieldbyname('TenCode').asstring;
QRDBText3.Lines.Text:=DM.ADOQueryWTDCX.fieldbyname('Address').asstring;
QRDBText4.Lines.Text:=DM.ADOQueryWTDCX.fieldbyname('Tel').asstring;
QRDBText5.Lines.Text:=DM.ADOQueryWTDCX.fieldbyname('JingBanRen').asstring;
QRDBText6.Lines.Text:=DM.ADOQueryWTDCX.fieldbyname('IDCard').asstring;
QRDBText7.Lines.Text:=DM.ADOQueryWTDCX.fieldbyname('DaiLiUnit').asstring;
QRDBText8.Lines.Text:=DM.ADOQueryWTDCX.fieldbyname('HuoWuName').asstring;
QRDBText9.Lines.Text:=DM.ADOQueryWTDCX.fieldbyname('ShangPingNo').asstring;
QRDBText10.Lines.Text:=DM.ADOQueryWTDCX.fieldbyname('JianShu').asstring;
QRDBText11.Lines.Text:=DM.ADOQueryWTDCX.fieldbyname('Weight').asstring;
QRDBText12.Lines.Text:=DM.ADOQueryWTDCX.fieldbyname('JiaZhi').asstring;
QRDBText13.Lines.Text:=DM.ADOQueryWTDCX.fieldbyname('BiZhi').asstring;
QRDBText14.Lines.Text:=DM.ADOQueryWTDCX.fieldbyname('HuoWuXZH').asstring;
QRDBText15.Lines.Text:=DM.ADOQueryWTDCX.fieldbyname('HuoWuCHD').asstring;
QRDBText16.Lines.Text:=DM.ADOQueryWTDCX.fieldbyname('HeTongNo').asstring;
QRDBText17.Lines.Text:=DM.ADOQueryWTDCX.fieldbyname('BackTax').asstring;
QRDBText18.Lines.Text:=DM.ADOQueryWTDCX.fieldbyname('ShipNo').asstring;
QRDBText19.Lines.Text:=DM.ADOQueryWTDCX.fieldbyname('Bank').asstring;
QRDBText20.Lines.Text:=DM.ADOQueryWTDCX.fieldbyname('Accounts').asstring;
QRDBText21.Lines.Text:=DM.ADOQueryWTDCX.fieldbyname('HTFeng').asstring;
QRDBText22.Lines.Text:=DM.ADOQueryWTDCX.fieldbyname('HTNo').asstring;
QRDBText23.Lines.Text:=DM.ADOQueryWTDCX.fieldbyname('FPFeng').asstring;
QRDBText24.Lines.Text:=DM.ADOQueryWTDCX.fieldbyname('FPNo').asstring;
QRDBText25.Lines.Text:=DM.ADOQueryWTDCX.fieldbyname('JZXDFeng').asstring;
QRDBText26.Lines.Text:=DM.ADOQueryWTDCX.fieldbyname('JZXDNo').asstring;
QRDBText27.Lines.Text:=DM.ADOQueryWTDCX.fieldbyname('DJSCFeng').asstring;
QRDBText28.Lines.Text:=DM.ADOQueryWTDCX.fieldbyname('DJSCNo').asstring;
QRDBText29.Lines.Text:=DM.ADOQueryWTDCX.fieldbyname('XKZFeng').asstring;
QRDBText30.Lines.Text:=DM.ADOQueryWTDCX.fieldbyname('XKZNo').asstring;
QRDBText31.Lines.Text:=DM.ADOQueryWTDCX.fieldbyname('JDZMFeng').asstring;
QRDBText32.Lines.Text:=DM.ADOQueryWTDCX.fieldbyname('JDZMNo').asstring;
QRDBText33.Lines.Text:=DM.ADOQueryWTDCX.fieldbyname('SJZFeng').asstring;
QRDBText34.Lines.Text:=DM.ADOQueryWTDCX.fieldbyname('SJZNo').asstring;
end;
if wtdcxshow=true then
begin
QuickRep1.DataSet:=ADOQueryWTDY;
ADOQueryWTDY.Close;
ADOQueryWTDY.SQL.Clear;
ADOQueryWTDY.SQL.Add('select * from xs_wts where DingDanNo='''+F_wtdcx.DBEditDingDanNo.text+'''');
ADOQueryWTDY.Open;
QRDBText35.Lines.Text:=ADOQueryWTDY.fieldbyname('DingDanNo').asstring;
QRDBText1.Lines.Text:=ADOQueryWTDY.fieldbyname('WeiTuoUnit').asstring;
QRDBText2.Lines.Text:=ADOQueryWTDY.fieldbyname('TenCode').asstring;
QRDBText3.Lines.Text:=ADOQueryWTDY.fieldbyname('Address').asstring;
QRDBText4.Lines.Text:=ADOQueryWTDY.fieldbyname('Tel').asstring;
QRDBText5.Lines.Text:=ADOQueryWTDY.fieldbyname('JingBanRen').asstring;
QRDBText6.Lines.Text:=ADOQueryWTDY.fieldbyname('IDCard').asstring;
QRDBText7.Lines.Text:=ADOQueryWTDY.fieldbyname('DaiLiUnit').asstring;
QRDBText8.Lines.Text:=ADOQueryWTDY.fieldbyname('HuoWuName').asstring;
QRDBText9.Lines.Text:=ADOQueryWTDY.fieldbyname('ShangPingNo').asstring;
QRDBText10.Lines.Text:=ADOQueryWTDY.fieldbyname('JianShu').asstring;
QRDBText11.Lines.Text:=ADOQueryWTDY.fieldbyname('Weight').asstring;
QRDBText12.Lines.Text:=ADOQueryWTDY.fieldbyname('JiaZhi').asstring;
QRDBText13.Lines.Text:=ADOQueryWTDY.fieldbyname('BiZhi').asstring;
QRDBText14.Lines.Text:=ADOQueryWTDY.fieldbyname('HuoWuXZH').asstring;
QRDBText15.Lines.Text:=ADOQueryWTDY.fieldbyname('HuoWuCHD').asstring;
QRDBText16.Lines.Text:=ADOQueryWTDY.fieldbyname('HeTongNo').asstring;
QRDBText17.Lines.Text:=ADOQueryWTDY.fieldbyname('BackTax').asstring;
QRDBText18.Lines.Text:=ADOQueryWTDY.fieldbyname('ShipNo').asstring;
QRDBText19.Lines.Text:=ADOQueryWTDY.fieldbyname('Bank').asstring;
QRDBText20.Lines.Text:=ADOQueryWTDY.fieldbyname('Accounts').asstring;
QRDBText21.Lines.Text:=ADOQueryWTDY.fieldbyname('HTFeng').asstring;
QRDBText22.Lines.Text:=ADOQueryWTDY.fieldbyname('HTNo').asstring;
QRDBText23.Lines.Text:=ADOQueryWTDY.fieldbyname('FPFeng').asstring;
QRDBText24.Lines.Text:=ADOQueryWTDY.fieldbyname('FPNo').asstring;
QRDBText25.Lines.Text:=ADOQueryWTDY.fieldbyname('JZXDFeng').asstring;
QRDBText26.Lines.Text:=ADOQueryWTDY.fieldbyname('JZXDNo').asstring;
QRDBText27.Lines.Text:=ADOQueryWTDY.fieldbyname('DJSCFeng').asstring;
QRDBText28.Lines.Text:=ADOQueryWTDY.fieldbyname('DJSCNo').asstring;
QRDBText29.Lines.Text:=ADOQueryWTDY.fieldbyname('XKZFeng').asstring;
QRDBText30.Lines.Text:=ADOQueryWTDY.fieldbyname('XKZNo').asstring;
QRDBText31.Lines.Text:=ADOQueryWTDY.fieldbyname('JDZMFeng').asstring;
QRDBText32.Lines.Text:=ADOQueryWTDY.fieldbyname('JDZMNo').asstring;
QRDBText33.Lines.Text:=ADOQueryWTDY.fieldbyname('SJZFeng').asstring;
QRDBText34.Lines.Text:=ADOQueryWTDY.fieldbyname('SJZNo').asstring;
end;
end;
procedure TF_P_WTS.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if wtdshow=true then
DM.ADOQueryWTDCX.Close;
if wtdcxshow=true then
ADOQueryWTDY.Close;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -