?? gysnchk.dfm
字號:
object gysnchkfrm: Tgysnchkfrm
Left = 183
Top = 77
AutoScroll = False
Caption = #20379#24212#21830#24180#21021#36135#27454
ClientHeight = 424
ClientWidth = 700
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 = 85
Width = 700
Height = 320
Align = alClient
DataSource = dm.cshds_gyshk
Flat = True
FooterColor = 16439211
FooterFont.Charset = ANSI_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -13
FooterFont.Name = #23435#20307
FooterFont.Style = []
FooterRowCount = 1
PopupMenu = PopupMenu1
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 = 16710588
EditButtons = <>
FieldName = #20379#24212#21830'id'
Footers = <>
Width = 66
end
item
Color = 16710588
EditButtons = <>
FieldName = #20379#24212#21830#31616#31216
Footer.Alignment = taCenter
Footer.Value = #21512#35745
Footer.ValueType = fvtStaticText
Footers = <>
Width = 183
end
item
Color = 16710588
EditButtons = <>
FieldName = #20379#24212#21830#21517#31216
Footers = <>
end
item
EditButtons = <>
FieldName = #19978#24180#26410#20184#27454
Footer.ValueType = fvtSum
Footers = <>
end
item
EditButtons = <>
FieldName = #22791#27880
Footers = <>
end>
end
object stb: TStatusBar
Left = 0
Top = 405
Width = 700
Height = 19
Panels = <>
SimplePanel = True
end
object Panel2: TPanel
Left = 0
Top = 0
Width = 700
Height = 85
Align = alTop
BevelOuter = bvNone
TabOrder = 2
object GroupBox1: TGroupBox
Left = 185
Top = 0
Width = 515
Height = 85
Align = alClient
Caption = #26597#35810#39033
TabOrder = 0
object Label8: TLabel
Left = 17
Top = 20
Width = 53
Height = 13
Caption = #20379#24212#21830'ID'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 33
Top = 54
Width = 26
Height = 13
Caption = #24180#21021
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Edit1: TEdit
Left = 72
Top = 16
Width = 89
Height = 21
TabOrder = 0
end
object Panel1: TPanel
Left = 357
Top = 12
Width = 148
Height = 68
BevelInner = bvLowered
BevelOuter = bvNone
ParentColor = True
TabOrder = 1
object Label4: TLabel
Left = 4
Top = 27
Width = 140
Height = 13
Caption = '--------------------'
end
object DBNavigator1: TDBNavigator
Left = 5
Top = 40
Width = 135
Height = 25
DataSource = dm.cshds_gyshk
VisibleButtons = [nbFirst, nbLast, nbEdit, nbPost, nbCancel]
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 = 3
Top = 2
Width = 67
Height = 25
Caption = #25191#34892#26597#35810
TabOrder = 2
OnClick = Button2Click
end
end
object slcb1: TComboBox
Left = 143
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 = 183
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 = 62
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 = (
''
#19978#24180#26410#20184#27454)
end
object CheckBox1: TCheckBox
Left = 271
Top = 52
Width = 76
Height = 17
Caption = #33258#21160#21015#23485
TabOrder = 5
OnClick = CheckBox1Click
end
object dblkbox: TDBLookupComboboxEh
Left = 227
Top = 15
Width = 78
Height = 21
Enabled = False
EditButtons = <>
KeyField = #22320#21306
ListField = #22320#21306
ListSource = dm.zlcxds_dq
TabOrder = 6
Visible = True
end
object CheckBox2: TCheckBox
Left = 181
Top = 18
Width = 42
Height = 17
Caption = #22320#21306
TabOrder = 7
OnClick = CheckBox2Click
end
end
object GroupBox2: TGroupBox
Left = 0
Top = 0
Width = 185
Height = 85
Align = alLeft
Caption = #36873#25321#24180#20221
TabOrder = 1
object Label3: TLabel
Left = 26
Top = 26
Width = 33
Height = 13
Caption = #24180#20221':'
end
object jzts: TLabel
Left = 22
Top = 56
Width = 143
Height = 13
Caption = #24403#24180#25968#25454#26410#32467#36716#65292#21487#20462#25913
end
object nf_spe: TSpinEdit
Left = 63
Top = 22
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 = 0
Value = 0
OnChange = nf_speChange
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
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 + -