📄 custlist.pas
字号:
unit CustList;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
base, SctVar, AcePage, SctRep, Db, DBTables, SctCtrl, ExtCtrls;
type
TFormCustomerListing = class(TFormBaseReport)
CustomerTable: TTable;
CustomerSource: TDataSource;
DataSourceGuide: TSctDataSourceGuide;
customertableCustNoVar: TSctDBVar;
customertableCompanyVar: TSctDBVar;
customertableAddr1Var: TSctDBVar;
customertableAddr2Var: TSctDBVar;
customertableCityVar: TSctDBVar;
customertableStateVar: TSctDBVar;
customertableZipVar: TSctDBVar;
customertableCountryVar: TSctDBVar;
customertablePhoneVar: TSctDBVar;
customertableFAXVar: TSctDBVar;
customertableTaxRateVar: TSctDBVar;
customertableContactVar: TSctDBVar;
customertableLastInvoiceDateVar: TSctDBVar;
varlabel: TSctvarlabel;
varlabel1: TSctvarlabel;
varlabel2: TSctvarlabel;
varlabel3: TSctvarlabel;
varlabel4: TSctvarlabel;
varlabel5: TSctvarlabel;
SctTextLabel6: TSctvarlabel;
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormCustomerListing: TFormCustomerListing;
implementation
{$R *.DFM}
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -