?? gysjhqk.~dfm
字號:
object gysjhqkfrm: Tgysjhqkfrm
Left = 157
Top = 100
Width = 638
Height = 455
Caption = #20379#24212#21830#20379#36135#24773#20917
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poDefault
Visible = True
WindowState = wsMaximized
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object GroupBox2: TGroupBox
Left = 0
Top = 0
Width = 630
Height = 48
Align = alTop
Caption = #36873#25321#20379#24212#21830#21450#20379#36135#26102#38388
TabOrder = 0
object Label3: TLabel
Left = 16
Top = 18
Width = 26
Height = 13
Caption = #24180#20221
end
object Label4: TLabel
Left = 104
Top = 18
Width = 26
Height = 13
Caption = #26376#20221
end
object Label5: TLabel
Left = 184
Top = 18
Width = 42
Height = 14
Caption = #20379#24212#21830
FocusControl = bmlk
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object speyf: TSpinEdit
Left = 127
Top = 18
Width = 42
Height = 22
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
MaxValue = 12
MinValue = 1
ParentFont = False
TabOrder = 0
Value = 1
end
object spenf: TSpinEdit
Left = 39
Top = 18
Width = 58
Height = 22
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
MaxValue = 9999
MinValue = 2003
ParentFont = False
TabOrder = 1
Value = 2003
end
object Button4: TButton
Left = 432
Top = 16
Width = 75
Height = 25
Caption = #30830#35748
TabOrder = 2
OnClick = Button4Click
end
object bmlk: TDBLookupComboBox
Left = 296
Top = 16
Width = 121
Height = 21
DataField = #37096#38376
KeyField = #20379#24212#21830'ID'
ListField = #20379#24212#21830#31616#31216
ListSource = dm.whgysdmds
TabOrder = 3
end
object Panel1: TPanel
Left = 549
Top = 15
Width = 79
Height = 31
Align = alRight
AutoSize = True
BevelInner = bvLowered
TabOrder = 4
object Button1: TButton
Left = 2
Top = 3
Width = 75
Height = 25
Caption = #36864#20986
PopupMenu = PopupMenu1
TabOrder = 0
OnClick = Button1Click
end
end
object DBEdit1: TDBEdit
Left = 232
Top = 16
Width = 65
Height = 21
DataField = #20379#24212#21830'ID'
DataSource = dm.whgysdmds
ReadOnly = True
TabOrder = 5
end
end
object PageControl1: TPageControl
Left = 0
Top = 48
Width = 630
Height = 380
ActivePage = TabSheet1
Align = alClient
Style = tsFlatButtons
TabIndex = 0
TabOrder = 1
object TabSheet1: TTabSheet
Caption = #20379#36135#27719#24635
object DBGridEh1: TDBGridEh
Left = 0
Top = 0
Width = 622
Height = 349
Align = alClient
DataSource = dm.gysghhzds
FooterColor = 16439211
FooterFont.Charset = ANSI_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -13
FooterFont.Name = #23435#20307
FooterFont.Style = []
FooterRowCount = 1
FrozenCols = 1
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
EditButtons = <>
FieldName = #31867#22411'ID'
Footers = <>
Visible = False
end
item
EditButtons = <>
FieldName = #26448#26009#32534#30721
Footer.Alignment = taCenter
Footer.Value = #21512#35745
Footer.ValueType = fvtStaticText
Footers = <>
end
item
EditButtons = <>
FieldName = #26448#26009#21517#31216
Footer.Alignment = taCenter
Footer.ValueType = fvtCount
Footers = <>
end
item
EditButtons = <>
FieldName = #26448#26009#35268#26684
Footers = <>
Width = 75
end
item
EditButtons = <>
FieldName = #21333#20301
Footers = <>
Width = 29
end
item
EditButtons = <>
FieldName = #31867#22411
Footers = <>
Width = 74
end
item
EditButtons = <>
FieldName = #25968#37327
Footer.ValueType = fvtSum
Footers = <>
end
item
EditButtons = <>
FieldName = #21333#20215
Footers = <>
end
item
EditButtons = <>
FieldName = #37329#39069
Footer.ValueType = fvtSum
Footers = <>
Width = 68
end>
end
end
object TabSheet2: TTabSheet
Caption = #20379#36135#26126#32454
ImageIndex = 1
object DBGridEh2: TDBGridEh
Left = 0
Top = 0
Width = 622
Height = 346
Align = alClient
DataSource = dm.gysghmxds
FooterColor = 16439211
FooterFont.Charset = ANSI_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -13
FooterFont.Name = #23435#20307
FooterFont.Style = []
FooterRowCount = 1
FrozenCols = 3
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
EditButtons = <>
FieldName = #31867#22411'ID'
Footers = <>
Visible = False
end
item
EditButtons = <>
FieldName = #36865#36135#21333#21495
Footers = <>
end
item
EditButtons = <>
FieldName = #36827#20179#26085#26399
Footers = <>
Width = 88
end
item
EditButtons = <>
FieldName = #26448#26009#32534#30721
Footer.Alignment = taCenter
Footer.Value = #21512#35745
Footer.ValueType = fvtStaticText
Footers = <>
end
item
EditButtons = <>
FieldName = #26448#26009#21517#31216
Footers = <>
end
item
EditButtons = <>
FieldName = #26448#26009#35268#26684
Footers = <>
Width = 68
end
item
EditButtons = <>
FieldName = #31867#22411
Footers = <>
Width = 97
end
item
EditButtons = <>
FieldName = #21333#20301
Footers = <>
Width = 30
end
item
EditButtons = <>
FieldName = #25968#37327
Footer.ValueType = fvtSum
Footers = <>
end
item
EditButtons = <>
FieldName = #21333#20215
Footers = <>
Width = 69
end
item
EditButtons = <>
FieldName = #37329#39069
Footer.ValueType = fvtSum
Footers = <>
Width = 69
end
item
EditButtons = <>
FieldName = #39564#25910#20154
Footers = <>
Width = 75
end>
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 = 237
Top = 200
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
32303532202020255B546F6461795D2020200D0A5C706172205C706172645C6C
616E673130333320205C6C616E67323035322020255B746A5D2020200D0A5C70
6172207D0D0A00}
AfterGridText_Data = {
7B5C727466315C616E73695C616E73696370673933365C64656666305C646566
6C616E67313033335C6465666C616E676665323035327B5C666F6E7474626C7B
5C66305C666E696C5C6663686172736574313334204D532053616E7320536572
69663B7D7D0D0A5C766965776B696E64345C7563315C706172645C6C616E6732
3035325C66305C6673323420202020205C2762325C2764365C2762395C276463
5C2761335C276261202020202020202020202020202020202020202020202020
20202020202020202020202020205C2764365C2763365C2762315C2765645C27
61335C2762612020202020205C66733136200D0A5C706172207D0D0A00}
end
object PopupMenu1: TPopupMenu
Left = 369
Top = 194
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 = 256
Top = 270
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 + -