?? slbrcredit.dfm
字號:
inherited SLCreditBrowseForm: TSLCreditBrowseForm
Left = 109
Top = 177
Caption = #23458#25143#20449#29992#36164#26009
FormStyle = fsMDIChild
PixelsPerInch = 96
TextHeight = 12
inherited ToolBar: TToolBar
ButtonWidth = 55
object ToolButton1: TToolButton
Left = 0
Top = 2
Action = AddNewAction
end
object ToolButton2: TToolButton
Left = 55
Top = 2
Action = DeleteAction
end
object ToolButton3: TToolButton
Left = 110
Top = 2
Action = EditAction
end
object ToolButton4: TToolButton
Left = 165
Top = 2
Width = 8
Caption = 'ToolButton4'
ImageIndex = 3
Style = tbsSeparator
end
object ToolButton7: TToolButton
Left = 173
Top = 2
Action = PrintPreviewAction
end
object ToolButton8: TToolButton
Left = 228
Top = 2
Action = PrintAction
end
object ToolButton9: TToolButton
Left = 283
Top = 2
Width = 8
Caption = 'ToolButton9'
ImageIndex = 6
Style = tbsSeparator
end
object ToolButton10: TToolButton
Left = 291
Top = 2
Action = ExportAction
end
object ToolButton11: TToolButton
Left = 346
Top = 2
Width = 8
Caption = 'ToolButton11'
ImageIndex = 7
Style = tbsSeparator
end
object ToolButton12: TToolButton
Left = 354
Top = 2
Action = FiltrateAction
end
object ToolButton5: TToolButton
Left = 409
Top = 2
Action = CustomizeViewAction
end
object ToolButton13: TToolButton
Left = 464
Top = 2
Action = RefreshAction
end
object ToolButton14: TToolButton
Left = 519
Top = 2
Width = 8
Caption = 'ToolButton14'
ImageIndex = 9
Style = tbsSeparator
end
object ToolButton15: TToolButton
Left = 527
Top = 2
Action = ExitAction
end
end
inherited Panel1: TPanel
inherited PageControl: TPageControl
inherited TabSheet1: TTabSheet
Caption = #23458#25143#20449#29992#36164#26009
end
end
inherited DBGrid: TQLDBGrid
Columns = <
item
Expanded = False
FieldName = 'Code'
Title.Alignment = taCenter
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'CreditClass'
Title.Alignment = taCenter
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'ClientName'
Title.Alignment = taCenter
Width = 161
Visible = True
end
item
Expanded = False
FieldName = 'QuotaAmount'
Title.Alignment = taCenter
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'QuotaAmountMin'
Title.Alignment = taCenter
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'QuotaAmountMax'
Title.Alignment = taCenter
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'StartDate'
Title.Alignment = taCenter
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'ExpireDate'
Title.Alignment = taCenter
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'Memo'
Title.Alignment = taCenter
Width = 160
Visible = True
end>
end
end
inherited DataSource: TDataSource
DataSet = adsCredit
Left = 128
Top = 152
end
object adsCredit: TADODataSet
Connection = CommonData.acnConnection
CursorType = ctStatic
CommandText =
'SELECT SC.*,DC.Name ClientName,MP.Name PeriodName'#13#10'FROM SLCredit' +
' SC LEFT JOIN DAClient DC ON SC.ClientID=DC.ID LEFT JOIN MSPerio' +
'd MP ON SC.PeriodID=MP.ID WHERE SC.RecordState<>'#39#21024#38500#39#13#10
Parameters = <>
Left = 104
Top = 112
object adsCreditID: TAutoIncField
FieldName = 'ID'
ReadOnly = True
Visible = False
end
object adsCreditCreateDate: TDateTimeField
FieldName = 'CreateDate'
Visible = False
end
object adsCreditCreateUserID: TIntegerField
FieldName = 'CreateUserID'
Visible = False
end
object adsCreditRecordState: TStringField
FieldName = 'RecordState'
Visible = False
Size = 12
end
object adsCreditClientID: TIntegerField
FieldName = 'ClientID'
Visible = False
end
object adsCreditDate: TDateTimeField
FieldName = 'Date'
Visible = False
end
object adsCreditPeriodID: TIntegerField
FieldName = 'PeriodID'
Visible = False
end
object adsCreditCode: TStringField
DisplayLabel = #32534#21495
FieldName = 'Code'
end
object adsCreditCreditClass: TStringField
DisplayLabel = #20449#29992#31561#32423
FieldName = 'CreditClass'
Size = 12
end
object adsCreditClientName: TStringField
DisplayLabel = #23458#25143#21517#31216
FieldName = 'ClientName'
Size = 50
end
object adsCreditQuotaAmount: TBCDField
DisplayLabel = #20449#29992#39069#24230
FieldName = 'QuotaAmount'
DisplayFormat = '#,#.00'
Precision = 19
end
object adsCreditQuotaAmountMin: TIntegerField
DisplayLabel = #24080#26399#22825#25968
FieldName = 'QuotaAmountMin'
DisplayFormat = '#'
end
object adsCreditQuotaAmountMax: TBCDField
DisplayLabel = #26368#22823#39069#24230
FieldName = 'QuotaAmountMax'
DisplayFormat = '#,#.00'
Precision = 19
end
object adsCreditStartDate: TDateTimeField
DisplayLabel = #26377#25928#26085#26399
FieldName = 'StartDate'
end
object adsCreditExpireDate: TDateTimeField
DisplayLabel = #29983#25928#26085#26399
FieldName = 'ExpireDate'
end
object adsCreditPeriodName: TStringField
DisplayLabel = #31649#29702#26399#38388
FieldName = 'PeriodName'
Visible = False
FixedChar = True
Size = 7
end
object adsCreditMemo: TStringField
DisplayLabel = #22791#27880
FieldName = 'Memo'
Size = 60
end
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -