📄 firmaraporu.pas
字号:
unit firmaraporu;
interface
uses Windows, SysUtils, Messages, Classes, Graphics, Controls,
StdCtrls, ExtCtrls, Forms, Quickrpt, QRCtrls, Db, DBTables;
type
Tfirmarpt = class(TQuickRep)
firmat: TTable;
QRBand1: TQRBand;
QRLabel1: TQRLabel;
firmatSIRKOD: TStringField;
firmatFIRKOD: TFloatField;
firmatFIRMAADI: TStringField;
firmatUNVAN: TStringField;
firmatYETKILI: TStringField;
firmatSATIS: TFloatField;
firmatISKONTO: TFloatField;
firmatADRES1: TStringField;
firmatADRES2: TStringField;
firmatEMAIL: TStringField;
firmatWEB: TStringField;
firmatTELEFON1: TStringField;
firmatTELEFON2: TStringField;
firmatFAX: TStringField;
firmatVDAIRE: TStringField;
firmatVNO: TStringField;
firmatBORC: TFloatField;
firmatALACAK: TFloatField;
QRBand3: TQRBand;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRDBText4: TQRDBText;
QRDBText5: TQRDBText;
QRDBText6: TQRDBText;
QRBand4: TQRBand;
QRLabel8: TQRLabel;
QRLabel9: TQRLabel;
QRLabel10: TQRLabel;
QRLabel11: TQRLabel;
QRLabel12: TQRLabel;
QRLabel13: TQRLabel;
QRShape2: TQRShape;
private
public
end;
var
firmarpt: Tfirmarpt;
implementation
{$R *.DFM}
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -