?? kcgz1.dfm
字號:
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
0333337F777FFFFF7F3333000000000003333377777777777333}
NumGlyphs = 2
end
object Ed5: TdxDBExtLookupEdit
Left = 257
Top = 51
Width = 121
Style.BorderColor = clNavy
Style.BorderStyle = xbsSingle
Style.Shadow = True
TabOrder = 13
OnKeyDown = Ed1KeyDown
DataField = 'drckname'
DataSource = DataSource1
ReadOnly = True
DBGridLayout = dxDBGridLayoutList1Item1
StoredValues = 64
end
end
end
object Panel2: TPanel
Left = 0
Top = 334
Width = 558
Height = 27
Align = alBottom
BevelOuter = bvNone
TabOrder = 1
OnResize = Panel2Resize
object Label7: TLabel
Left = 8
Top = 13
Width = 36
Height = 12
Caption = '備注:'
Transparent = True
Layout = tlCenter
end
object Ed7: TdxDBEdit
Left = 42
Top = 6
Width = 511
Style.BorderColor = clNavy
Style.BorderStyle = xbsSingle
Style.Shadow = True
TabOrder = 0
OnKeyDown = Ed6KeyDown
Alignment = taLeftJustify
DataField = 'bz'
DataSource = DataSource1
ReadOnly = True
StoredValues = 65
end
end
object DBGridEh1: TDBGridEh
Left = 0
Top = 119
Width = 558
Height = 215
LineColor = clNavy
SelectedColor = clNavy
SelectedFontColor = clWhite
Align = alClient
Color = 15524050
DataSource = DataSource2
FixedColor = clSilver
Font.Charset = GB2312_CHARSET
Font.Color = 7479077
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
TabOrder = 2
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clRed
TitleFont.Height = -12
TitleFont.Name = '宋體'
TitleFont.Style = []
OnDblClick = N9Click
OnKeyDown = DBGridEh1KeyDown
FooterRowCount = 1
FooterFont.Charset = GB2312_CHARSET
FooterFont.Color = clRed
FooterFont.Height = -14
FooterFont.Name = '宋體'
FooterFont.Style = []
FooterColor = clSilver
AutoFitColWidths = True
SumList.Active = True
OptionsEh = [dghHighlightFocus, dghClearSelection, dghEnterAsTab]
CurrencyStyle.CurrencyFont.Charset = DEFAULT_CHARSET
CurrencyStyle.CurrencyFont.Color = clWindowText
CurrencyStyle.CurrencyFont.Height = -11
CurrencyStyle.CurrencyFont.Name = 'MS Sans Serif'
CurrencyStyle.CurrencyFont.Style = []
CurrencyStyle.CurrencySymbol = '¥'
CurrencyStyle.CompartColor = clSilver
CurrencyStyle.KilobitColor = clGreen
CurrencyStyle.RadixColor = clRed
CurrencyStyle.ShowMinus = True
CurrencyStyle.ShowZero = False
CurrencyStyle.MinusColor = clRed
CurrencyStyle.Layout = tlCenter
CurrencyStyle.HeadFont.Charset = DEFAULT_CHARSET
CurrencyStyle.HeadFont.Color = clWindowText
CurrencyStyle.HeadFont.Height = -11
CurrencyStyle.HeadFont.Name = '楷體_GB2312'
CurrencyStyle.HeadFont.Style = []
OnGetEditText = DBGridEh1GetEditText
OnSetEditText = DBGridEh1SetEditText
Columns = <
item
ButtonStyle = cbsNone
FieldName = 'spcode'
Width = 53
Footer.Alignment = taCenter
Footer.Font.Charset = GB2312_CHARSET
Footer.Font.Color = clNavy
Footer.Font.Height = -14
Footer.Font.Name = '宋體'
Footer.Font.Style = [fsBold]
Footer.ValueType = fvtStaticText
Footer.Value = '合計'
Footers = <>
end
item
FieldName = 'spname'
ReadOnly = True
Width = 157
Footers = <>
end
item
FieldName = 'jldw'
ReadOnly = True
Width = 30
Footers = <>
end
item
FieldName = 'bzgg'
ReadOnly = True
Width = 33
Footers = <>
end
item
FieldName = 'js'
Width = 40
Footer.ValueType = fvtSum
Footer.FieldName = 'js'
Footers = <>
end
item
FieldName = 'ss'
Width = 41
Footers = <>
end
item
FieldName = 'sl'
Width = 47
Footer.ValueType = fvtSum
Footers = <>
end
item
FieldName = 'jhj'
Width = 49
Footers = <>
end
item
FieldName = 'je'
ReadOnly = True
Width = 62
Footer.ValueType = fvtSum
Footers = <>
end
item
FieldName = 'kcsl'
Width = 53
Footers = <>
end>
end
object wwDBNavigator1: TwwDBNavigator
Left = 208
Top = 312
Width = 200
Height = 25
DataSource = DataSource1
RepeatInterval.InitialDelay = 500
RepeatInterval.Interval = 100
Visible = False
object b1: TwwNavButton
Left = 0
Top = 0
Width = 25
Height = 25
Hint = 'Move to first record'
ImageIndex = -1
NumGlyphs = 2
Spacing = 4
Transparent = False
Caption = 'b1'
Enabled = False
DisabledTextColors.ShadeColor = clGray
DisabledTextColors.HighlightColor = clBtnHighlight
Index = 0
Style = nbsFirst
OnUpdateState = b1UpdateState
end
object b2: TwwNavButton
Left = 25
Top = 0
Width = 25
Height = 25
Hint = 'Move to prior record'
ImageIndex = -1
NumGlyphs = 2
Spacing = 4
Transparent = False
Caption = 'b2'
Enabled = False
DisabledTextColors.ShadeColor = clGray
DisabledTextColors.HighlightColor = clBtnHighlight
Index = 1
Style = nbsPrior
OnUpdateState = b1UpdateState
end
object b3: TwwNavButton
Left = 50
Top = 0
Width = 25
Height = 25
Hint = 'Move to next record'
ImageIndex = -1
NumGlyphs = 2
Spacing = 4
Transparent = False
Caption = 'b3'
DisabledTextColors.ShadeColor = clGray
DisabledTextColors.HighlightColor = clBtnHighlight
Index = 2
Style = nbsNext
OnUpdateState = b1UpdateState
end
object b4: TwwNavButton
Left = 75
Top = 0
Width = 25
Height = 25
Hint = 'Move to last record'
ImageIndex = -1
NumGlyphs = 2
Spacing = 4
Transparent = False
Caption = 'b4'
DisabledTextColors.ShadeColor = clGray
DisabledTextColors.HighlightColor = clBtnHighlight
Index = 3
Style = nbsLast
OnUpdateState = b1UpdateState
end
object b5: TwwNavButton
Left = 100
Top = 0
Width = 25
Height = 25
Hint = 'Insert new record'
ImageIndex = -1
NumGlyphs = 2
Spacing = 4
Transparent = False
Caption = 'b5'
DisabledTextColors.ShadeColor = clGray
DisabledTextColors.HighlightColor = clBtnHighlight
Index = 4
Style = nbsInsert
OnUpdateState = b1UpdateState
end
object b6: TwwNavButton
Left = 125
Top = 0
Width = 25
Height = 25
Hint = 'Post changes of current record'
ImageIndex = -1
NumGlyphs = 2
Spacing = 4
Transparent = False
Caption = 'b6'
Enabled = False
DisabledTextColors.ShadeColor = clGray
DisabledTextColors.HighlightColor = clBtnHighlight
Index = 5
Style = nbsPost
OnUpdateState = b1UpdateState
end
object b7: TwwNavButton
Left = 150
Top = 0
Width = 25
Height = 25
Hint = 'Cancel changes made to current record'
ImageIndex = -1
NumGlyphs = 2
Spacing = 4
Transparent = False
Caption = 'b7'
Enabled = False
DisabledTextColors.ShadeColor = clGray
DisabledTextColors.HighlightColor = clBtnHighlight
Index = 6
Style = nbsCancel
OnUpdateState = b1UpdateState
end
object b8: TwwNavButton
Left = 175
Top = 0
Width = 25
Height = 25
Hint = 'Delete current record'
ImageIndex = -1
NumGlyphs = 2
Spacing = 4
Transparent = False
Caption = 'b8'
DisabledTextColors.ShadeColor = clGray
DisabledTextColors.HighlightColor = clBtnHighlight
Index = 7
Style = nbsDelete
OnUpdateState = b1UpdateState
end
end
object DataSource1: TDataSource
DataSet = ADOTable1
Left = 384
Top = 80
end
object DataSource2: TDataSource
DataSet = ADOTable2
Left = 152
Top = 192
end
object ADOTable3: TADOTable
Active = True
Connection = MainForm.ADOConnection1
CursorType = ctStatic
TableName = 'CKDA'
Left = 384
Top = 184
object ADOTable3code: TStringField
DisplayLabel = '倉庫代碼'
FieldName = 'code'
Size = 5
end
object ADOTable3name: TStringField
DisplayLabel = '倉庫名稱'
FieldName = 'name'
Size = 200
end
object ADOTable3dz: TStringField
DisplayLabel = '地址'
FieldName = 'dz'
Size = 200
end
object ADOTable3dh: TStringField
DisplayLabel = '電話'
FieldName = 'dh'
Size = 50
end
object ADOTable3cz: TStringField
DisplayLabel = '傳真'
FieldName = 'cz'
Size = 50
end
object ADOTable3lxr: TStringField
DisplayLabel = '聯(lián)系人'
FieldName = 'lxr'
Size = 50
end
object ADOTable3bz: TStringField
DisplayLabel = '備注'
FieldName = 'bz'
Size = 200
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -