?? unit5.dfm
字號:
object hyzl: Thyzl
Left = 164
Top = 69
Width = 613
Height = 472
Caption = #20250#21592#36164#26009
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object StatusBar1: TStatusBar
Left = 0
Top = 411
Width = 605
Height = 27
Panels = <
item
Alignment = taCenter
Width = 250
end
item
Alignment = taCenter
Text = #26377#20250#21592' '#20154
Width = 100
end
item
Alignment = taCenter
Text = #24403#21069#26159' '#21495
Width = 100
end
item
Alignment = taCenter
Text = #32047#35745#37329#39069#26410#32479#35745
Width = 100
end>
SimplePanel = False
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 605
Height = 33
Align = alTop
Caption = #20250' '#21592' '#31649' '#29702
Color = clCream
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -27
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
end
object PageControl1: TPageControl
Left = 0
Top = 33
Width = 605
Height = 378
ActivePage = TS1
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
MultiLine = True
ParentFont = False
ParentShowHint = False
ShowHint = False
TabIndex = 0
TabOrder = 2
object TS1: TTabSheet
Caption = #20250#21592#36164#26009'--'#21152#38065
object DBGrid1: TDBGrid
Left = 0
Top = 0
Width = 597
Height = 314
Align = alClient
DataSource = DataSource1
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
ParentFont = False
PopupMenu = PopupMenu1
ReadOnly = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnCellClick = DBGrid1CellClick
OnTitleClick = DBGrid1TitleClick
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = #24080#21495
Title.Alignment = taCenter
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #22995#21517
Title.Alignment = taCenter
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #24320#25143#26085#26399
Title.Alignment = taCenter
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #25276#37329
Title.Alignment = taCenter
Visible = True
end
item
Expanded = False
FieldName = #26631#24535
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #35777#20214#21495#30721
Title.Alignment = taCenter
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #21333#20301
Title.Alignment = taCenter
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #35745#36153#26631#20934
Title.Alignment = taCenter
Visible = False
end
item
Alignment = taCenter
Expanded = False
FieldName = #23494#30721
Title.Alignment = taCenter
Visible = False
end>
end
object Panel2: TPanel
Left = 0
Top = 314
Width = 597
Height = 33
Align = alBottom
Alignment = taLeftJustify
Caption = ' '#24080' '#21495
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
object Edit1: TEdit
Left = 177
Top = 4
Width = 177
Height = 24
TabOrder = 0
end
object Button1: TButton
Left = 383
Top = 4
Width = 89
Height = 25
Caption = #26597#25214#24080#21495
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = Button1Click
end
object Button3: TButton
Left = 490
Top = 4
Width = 95
Height = 25
Caption = #21024#20020#26102#20250#21592
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = Button3Click
end
end
end
object TS2: TTabSheet
Caption = #20250#21592#21152#38065#35760#24405
ImageIndex = 1
object DBGrid2: TDBGrid
Left = 0
Top = 0
Width = 597
Height = 314
Align = alClient
DataSource = DataSource2
Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
PopupMenu = PopupMenu2
ReadOnly = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = #24080#21495
Title.Alignment = taCenter
Width = 138
Visible = True
end
item
Expanded = False
FieldName = #22995#21517
Title.Alignment = taCenter
Width = 79
Visible = True
end
item
Expanded = False
FieldName = #21457#29983#26085#26399
Title.Alignment = taCenter
Visible = True
end
item
Expanded = False
FieldName = #21457#29983#26102#38388
Title.Alignment = taCenter
Width = 88
Visible = True
end
item
Expanded = False
FieldName = #37329#39069
Title.Alignment = taCenter
Width = 88
Visible = True
end
item
Expanded = False
FieldName = #26631#24535
Title.Alignment = taCenter
Width = 50
Visible = True
end
item
Expanded = False
FieldName = #22791#27880
Title.Alignment = taCenter
Visible = True
end>
end
object Panel3: TPanel
Left = 0
Top = 314
Width = 597
Height = 33
Align = alBottom
Alignment = taLeftJustify
Caption = ' '#24080#21495
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
object Edit2: TEdit
Left = 37
Top = 4
Width = 177
Height = 24
TabOrder = 0
end
object Button2: TButton
Left = 216
Top = 4
Width = 81
Height = 25
BiDiMode = bdRightToLeftNoAlign
Caption = #26597#25214#24080#21495
Font.Charset = DEFAULT_CHARSET
Font.Color = clFuchsia
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentBiDiMode = False
ParentFont = False
TabOrder = 1
OnClick = Button2Click
end
object DTPh1: TDateTimePicker
Left = 336
Top = 4
Width = 106
Height = 24
CalAlignment = dtaLeft
Date = 38550.7802989352
Time = 38550.7802989352
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 2
end
object DTPh2: TDateTimePicker
Left = 464
Top = 4
Width = 105
Height = 24
CalAlignment = dtaLeft
Date = 38550.7802989352
Time = 38550.7802989352
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 3
end
end
end
end
object DataSource1: TDataSource
DataSet = hy2
Left = 472
end
object PopupMenu1: TPopupMenu
Left = 96
object N3: TMenuItem
Caption = #28155#21152#20250#21592
OnClick = N3Click
end
object N1: TMenuItem
Caption = #20250#21592#21152#38065
OnClick = N1Click
end
object N2: TMenuItem
Caption = #21024#38500#20250#21592
Enabled = False
OnClick = N2Click
end
object N4: TMenuItem
Caption = #32479#35745#37329#39069
OnClick = N4Click
end
end
object DataSource2: TDataSource
DataSet = hy3
Left = 504
end
object PopupMenu2: TPopupMenu
AutoPopup = False
Left = 144
object N5: TMenuItem
Caption = #21024#38500#26412#34892
OnClick = N5Click
end
object N6: TMenuItem
Caption = #26465#20214#21024#38500
OnClick = N6Click
end
end
object hy2: TADOTable
Connection = Form1.ADOCon1
CursorLocation = clUseServer
TableName = 'yhdate'
Left = 32
object hy2a1: TWideStringField
FieldName = #24080#21495
Size = 12
end
object hy2a2: TWideStringField
FieldName = #23494#30721
Size = 12
end
object hy2a3: TWideStringField
FieldName = #22995#21517
Size = 8
end
object hy2a4: TDateTimeField
FieldName = #24320#25143#26085#26399
end
object hy2a5: TFloatField
FieldName = #25276#37329
end
object hy2a6: TFloatField
FieldName = #35745#36153#26631#20934
end
object hy2a7: TWideStringField
FieldName = #21333#20301
Size = 30
end
object hy2a8: TWideStringField
FieldName = #35777#20214#21495#30721
end
object hy2a10: TWideStringField
FieldName = #26631#24535
Size = 4
end
end
object hy3: TADOTable
Connection = Form1.ADOCon1
CursorLocation = clUseServer
TableName = 'hyjqjl'
Left = 64
object hy3a1: TWideStringField
FieldName = #24080#21495
Size = 12
end
object hy3a2: TWideStringField
FieldName = #22995#21517
Size = 8
end
object hy3a3: TDateTimeField
FieldName = #21457#29983#26102#38388
end
object hy3a4: TDateTimeField
FieldName = #21457#29983#26085#26399
end
object hy3a5: TFloatField
FieldName = #37329#39069
end
object hy3a6: TWideStringField
FieldName = #26631#24535
Size = 4
end
object hy3a8: TWideStringField
FieldName = #22791#27880
Size = 10
end
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -