?? clkccx.dfm
字號:
object clkcfrm: Tclkcfrm
Left = 177
Top = 97
AutoScroll = False
Caption = #26448#26009#24211#23384
ClientHeight = 424
ClientWidth = 708
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object DBGridEh1: TDBGridEh
Left = 0
Top = 80
Width = 708
Height = 325
Align = alClient
DataSource = dm.cshds_clkc
Flat = True
FooterColor = 16439211
FooterFont.Charset = ANSI_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -13
FooterFont.Name = #23435#20307
FooterFont.Style = []
FooterRowCount = 1
FrozenCols = 2
PopupMenu = PopupMenu1
ReadOnly = True
SumList.Active = True
TabOrder = 0
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = #23435#20307
TitleFont.Style = []
UseMultiTitle = True
Columns = <
item
Color = 16773102
EditButtons = <>
FieldName = #26448#26009#32534#30721
Footer.Value = #21512#35745
Footer.ValueType = fvtStaticText
Footers = <>
end
item
Color = 16773102
EditButtons = <>
FieldName = #26448#26009#21517#31216
Footers = <>
end
item
EditButtons = <>
FieldName = #26448#26009#35268#26684
Footers = <>
end
item
EditButtons = <>
FieldName = #21333#20301
Footers = <>
end
item
EditButtons = <>
FieldName = #21021#22987#25968#37327
Footer.ValueType = fvtSum
Footers = <>
end
item
EditButtons = <>
FieldName = #21021#22987#37329#39069
Footer.ValueType = fvtSum
Footers = <>
end
item
EditButtons = <>
FieldName = #36827#20179#25968#37327
Footer.ValueType = fvtSum
Footers = <>
end
item
EditButtons = <>
FieldName = #36827#20179#37329#39069
Footer.ValueType = fvtSum
Footers = <>
end
item
EditButtons = <>
FieldName = #20986#20179#25968#37327
Footer.ValueType = fvtSum
Footers = <>
end
item
EditButtons = <>
FieldName = #20986#20179#37329#39069
Footer.ValueType = fvtSum
Footers = <>
end
item
EditButtons = <>
FieldName = #24211#23384#25968#37327
Footer.ValueType = fvtSum
Footers = <>
end
item
EditButtons = <>
FieldName = #24211#23384#37329#39069
Footer.ValueType = fvtSum
Footers = <>
end
item
EditButtons = <>
FieldName = #31867#22411
Footers = <>
end
item
EditButtons = <>
FieldName = #22791#27880
Footers = <>
end>
end
object stb: TStatusBar
Left = 0
Top = 405
Width = 708
Height = 19
Panels = <>
SimplePanel = True
end
object Panel2: TPanel
Left = 0
Top = 0
Width = 708
Height = 80
Align = alTop
BevelOuter = bvNone
TabOrder = 2
object GroupBox1: TGroupBox
Left = 203
Top = 0
Width = 505
Height = 80
Align = alClient
Caption = #26597#35810#39033
TabOrder = 0
object Label8: TLabel
Left = 8
Top = 20
Width = 52
Height = 13
Caption = #26448#26009#32534#30721
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 16
Top = 54
Width = 59
Height = 13
Caption = #25968#37327'\'#37329#39069
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Edit1: TEdit
Left = 62
Top = 16
Width = 89
Height = 21
TabOrder = 0
end
object Panel1: TPanel
Left = 348
Top = 9
Width = 148
Height = 68
BevelInner = bvLowered
BevelOuter = bvNone
ParentColor = True
TabOrder = 1
object Label4: TLabel
Left = 3
Top = 27
Width = 140
Height = 13
Caption = '--------------------'
end
object DBNavigator1: TDBNavigator
Left = 4
Top = 39
Width = 140
Height = 25
DataSource = dm.cshds_clkc
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbRefresh]
Hints.Strings = (
#31532#19968#26465
#21069#19968#26465
#19979#19968#26465
#26368#21518#19968#26465
#22686#21152
#21024#38500
#20462#25913
#20445#23384
#21462#28040
#21047#26032)
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object Button1: TButton
Left = 80
Top = 2
Width = 67
Height = 25
Caption = ' '#36864#20986
TabOrder = 1
OnClick = Button1Click
end
object Button2: TButton
Left = 2
Top = 3
Width = 67
Height = 25
Caption = #25191#34892#26597#35810
TabOrder = 2
OnClick = Button2Click
end
end
object slcb1: TComboBox
Left = 160
Top = 50
Width = 40
Height = 21
BevelKind = bkTile
Style = csDropDownList
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ImeName = #29579#30721#20116#31508#22411
ItemHeight = 13
ItemIndex = 0
ParentFont = False
TabOrder = 2
Text = '>'
Items.Strings = (
'>'
'='
'<'
'>='
'<=')
end
object sled1: TSpinEdit
Left = 200
Top = 50
Width = 67
Height = 22
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
MaxValue = 0
MinValue = 0
ParentFont = False
TabOrder = 3
Value = 0
end
object slxx1: TComboBox
Left = 78
Top = 50
Width = 81
Height = 21
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 4
Items.Strings = (
''
#21021#22987#25968#37327
#21021#22987#37329#39069
#36827#20179#25968#37327
#36827#20179#37329#39069
#20986#20179#25968#37327
#20986#20179#37329#39069
#24211#23384#25968#37327
#24211#23384#37329#39069)
end
object dblkbox: TDBLookupComboboxEh
Left = 224
Top = 15
Width = 99
Height = 21
Enabled = False
EditButtons = <>
KeyField = #31867#22411'ID'
ListField = #31867#22411#21517#31216
ListSource = dm.whcllxdmds
ParentShowHint = False
ShowHint = False
TabOrder = 5
Visible = True
OnKeyDown = dblkboxKeyDown
end
object CheckBox1: TCheckBox
Left = 275
Top = 53
Width = 72
Height = 17
Caption = #33258#21160#21015#23485
TabOrder = 6
OnClick = CheckBox1Click
end
object CheckBox2: TCheckBox
Left = 170
Top = 17
Width = 50
Height = 17
Caption = #31867#22411
TabOrder = 7
OnClick = CheckBox2Click
end
end
object GroupBox2: TGroupBox
Left = 0
Top = 0
Width = 203
Height = 80
Align = alLeft
Caption = #36873#25321#24180#20221
TabOrder = 1
object Label3: TLabel
Left = 14
Top = 20
Width = 33
Height = 13
Caption = #24180#20221':'
end
object jzts: TLabel
Left = 9
Top = 52
Width = 169
Height = 13
Caption = #24403#24180#25968#25454#26410#32467#36716#65292#21487#37325#26032#25972#29702
end
object nf_spe: TSpinEdit
Left = 49
Top = 16
Width = 59
Height = 22
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
MaxValue = 0
MinValue = 0
ParentFont = False
TabOrder = 0
Value = 0
OnChange = nf_speChange
end
object BitBtn1: TBitBtn
Left = 122
Top = 13
Width = 75
Height = 25
Caption = #25972#29702
TabOrder = 1
OnClick = BitBtn1Click
end
end
end
object SaveDialog1: TSaveDialog
Filter =
'Microsoft Excel Workbook (*.xls)|*.XLS|Comma separated values (*' +
'.csv)|*.CSV|HTML file (*.htm)|*.HTM|Rich Text Format (*.rtf)|*.R' +
'TF|Text files (*.txt)|*.TXT'
InitialDir = 'd:'
Left = 234
Top = 198
end
object MYPDBGEh: TPrintDBGridEh
Options = [pghFitGridToPageWidth, pghRowAutoStretch]
Page.BottomMargin = 2
Page.LeftMargin = 2
Page.RightMargin = 2
Page.TopMargin = 2
PageFooter.CenterText.Strings = (
' '#31532' &[Page] '#39029' ')
PageFooter.Font.Charset = DEFAULT_CHARSET
PageFooter.Font.Color = clWindowText
PageFooter.Font.Height = -13
PageFooter.Font.Name = 'MS Sans Serif'
PageFooter.Font.Style = []
PageFooter.LeftText.Strings = (
'')
PageHeader.Font.Charset = DEFAULT_CHARSET
PageHeader.Font.Color = clWindowText
PageHeader.Font.Height = -24
PageHeader.Font.Name = 'MS Sans Serif'
PageHeader.Font.Style = []
PrintFontName = #23435#20307
Units = MM
Left = 303
Top = 196
BeforeGridText_Data = {
7B5C727466315C616E73695C616E73696370673933365C64656666305C646566
6C616E67313033335C6465666C616E676665323035327B5C666F6E7474626C7B
5C66305C666E696C5C6663686172736574313334205C2763625C2763655C2763
635C2765353B7D7D0D0A5C766965776B696E64345C7563315C706172645C7163
5C6C616E67323035325C66305C6673343020255B62745D202020202020202020
2020202020202020202020202020202020202020202020202020202020202020
202020200D0A5C706172205C667332345C2762345C2766325C2764335C276131
5C2763385C2764355C2763365C2764615C6C616E6731303333203A5C6C616E67
32303532202020255B546F6461795D2020200D0A5C706172205C706172642025
5B746A5D2020200D0A5C706172207D0D0A00}
AfterGridText_Data = {
7B5C727466315C616E73695C616E73696370673933365C64656666305C646566
6C616E67313033335C6465666C616E676665323035327B5C666F6E7474626C7B
5C66305C666E696C5C6663686172736574313334204D532053616E7320536572
69663B7D7D0D0A5C766965776B696E64345C7563315C706172645C71635C6C61
6E67323035325C66305C667332345C2764365C2763365C2762315C2765645C27
63385C2763625C2761335C276261202020202020202020202020202020202020
2020202020202020202020202020202020202020202020202020202020202020
5C2763395C2766335C2762615C2763625C66733136200D0A5C706172207D0D0A
00}
end
object PopupMenu1: TPopupMenu
Left = 369
Top = 193
object N2: TMenuItem
Action = FontEdit1
Caption = #23383#20307#35774#32622
end
object N5: TMenuItem
Caption = '-'
end
object N6: TMenuItem
Action = FilePrintSetup1
Caption = #25171#21360#35774#32622
end
object PrintSetup1: TMenuItem
Action = PrintDlg1
Caption = #25171#21360
end
object N1: TMenuItem
Caption = #25171#21360#39044#35272
OnClick = N1Click
end
object N3: TMenuItem
Caption = '-'
end
object N4: TMenuItem
Caption = #23548#20986#25968#25454
OnClick = N4Click
end
object N7: TMenuItem
Caption = '-'
end
object N8: TMenuItem
Caption = #38544#34255#21015
OnClick = N8Click
end
object N9: TMenuItem
Caption = #21462#28040#38544#34255
OnClick = N9Click
end
end
object ActionManager1: TActionManager
ActionBars = <
item
end>
Left = 192
Top = 197
object EditCut1: TEditCut
Category = 'Edit'
Caption = 'Cu&t'
Hint = #21098#20999
ImageIndex = 0
ShortCut = 16472
end
object EditCopy1: TEditCopy
Category = 'Edit'
Caption = '&Copy'
Hint = #22797#21046
ImageIndex = 1
ShortCut = 16451
end
object EditPaste1: TEditPaste
Category = 'Edit'
Caption = '&Paste'
Hint = #31896#36148
ImageIndex = 2
ShortCut = 16470
end
object EditDelete1: TEditDelete
Category = 'Edit'
Caption = '&Delete'
Hint = 'Delete|Erases the selection'
ImageIndex = 5
ShortCut = 46
end
object FilePrintSetup1: TFilePrintSetup
Category = 'File'
Caption = 'Print Set&up...'
Hint = 'Print Setup'
ImageIndex = 19
end
object FontEdit1: TFontEdit
Category = 'Dialog'
Caption = 'Select &Font...'
Dialog.Font.Charset = DEFAULT_CHARSET
Dialog.Font.Color = clWindowText
Dialog.Font.Height = -11
Dialog.Font.Name = 'MS Sans Serif'
Dialog.Font.Style = []
Dialog.MinFontSize = 0
Dialog.MaxFontSize = 0
Hint = #23383#20307
ImageIndex = 21
OnAccept = FontEdit1Accept
end
object ColorSelect1: TColorSelect
Category = 'Dialog'
Caption = 'Select &Color...'
Dialog.Ctl3D = True
Hint = #39068#33394
ImageIndex = 22
end
object PrintDlg1: TPrintDlg
Category = 'Dialog'
Caption = '&Print...'
ImageIndex = 20
ShortCut = 16464
end
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -