📄 custord.pas
字号:
unit CustOrd;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
CustList, Db, DBTables, SctCtrl, SctRep, ExtCtrls, SctVar, AcePage, Menus;
type
TFormCustomerOrders = class(TFormCustomerListing)
OrdersTable: TTable;
OrdersSource: TDataSource;
DataSourceGuide1: TSctDataSourceGuide;
Data: TSctSubDataBand;
DataLevel: TSctLevel;
DataHeader: TSctDataHeadBand;
DataHeaderLevel: TSctLevel;
orderstableOrderNoVar: TSctDBVar;
orderstableCustNoVar: TSctDBVar;
orderstableSaleDateVar: TSctDBVar;
orderstableShipDateVar: TSctDBVar;
orderstableEmpNoVar: TSctDBVar;
orderstableShipToContactVar: TSctDBVar;
orderstableShipToAddr1Var: TSctDBVar;
orderstableShipToAddr2Var: TSctDBVar;
orderstableShipToCityVar: TSctDBVar;
orderstableShipToStateVar: TSctDBVar;
orderstableShipToZipVar: TSctDBVar;
orderstableShipToCountryVar: TSctDBVar;
orderstableShipToPhoneVar: TSctDBVar;
orderstableShipVIAVar: TSctDBVar;
orderstablePOVar: TSctDBVar;
orderstableTermsVar: TSctDBVar;
orderstablePaymentMethodVar: TSctDBVar;
orderstableItemsTotalVar: TSctDBVar;
orderstableTaxRateVar: TSctDBVar;
orderstableFreightVar: TSctDBVar;
orderstableAmountPaidVar: TSctDBVar;
varlabel8: TSctvarlabel;
varlabel9: TSctvarlabel;
varlabel10: TSctvarlabel;
varlabel11: TSctvarlabel;
varlabel12: TSctvarlabel;
varlabel13: TSctvarlabel;
varlabel14: TSctvarlabel;
varlabel15: TSctvarlabel;
varlabel16: TSctvarlabel;
varlabel17: TSctvarlabel;
SctLine1: TSctLine;
DataFooter: TSctDataFootBand;
DataFooterLevel: TSctLevel;
SctLine4: TSctLine;
SctTextLabel7: TSctvarlabel;
TotalOfAmountPaid: TSctTotalvar;
TotalvarLabel: TSctTotalvarLabel;
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormCustomerOrders: TFormCustomerOrders;
implementation
{$R *.DFM}
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -