?? unit6.dfm
字號:
object lsjl: Tlsjl
Left = 340
Top = 111
Width = 745
Height = 534
Caption = #21382#21490#35760#24405
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 737
Height = 500
Align = alClient
TabOrder = 0
object DBGrid1: TDBGrid
Left = 1
Top = 89
Width = 735
Height = 410
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
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = #30005#33041
Title.Alignment = taCenter
Width = 139
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #32467#24080#26085#26399
Title.Alignment = taCenter
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #19978#26426#26102#38388
Title.Alignment = taCenter
Width = 72
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #19979#26426#26102#38388
Title.Alignment = taCenter
Width = 71
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #21345#21495
Title.Alignment = taCenter
Width = 166
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #25276#37329
Title.Alignment = taCenter
Width = 63
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #29992#26102
Title.Alignment = taCenter
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #36153#29992
Title.Alignment = taCenter
Width = 54
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #24050#36864
Title.Alignment = taCenter
Width = 54
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #22995#21517
Title.Alignment = taCenter
Width = 51
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #35777#20214#21495#30721
Title.Alignment = taCenter
Width = 175
Visible = True
end>
end
object Panel2: TPanel
Left = 1
Top = 41
Width = 735
Height = 48
Align = alTop
TabOrder = 1
object Panel4: TPanel
Left = 17
Top = 14
Width = 74
Height = 19
BevelOuter = bvNone
Caption = #36215#22987#26085#26399
Font.Charset = DEFAULT_CHARSET
Font.Color = clFuchsia
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object Panel5: TPanel
Left = 233
Top = 14
Width = 47
Height = 19
BevelOuter = bvNone
Caption = #27490#26085#26399
Font.Charset = DEFAULT_CHARSET
Font.Color = clFuchsia
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object DTP1: TDateTimePicker
Left = 88
Top = 12
Width = 129
Height = 24
BiDiMode = bdLeftToRight
CalAlignment = dtaLeft
Date = 36892
Time = 36892
DateFormat = dfShort
DateMode = dmComboBox
Font.Charset = DEFAULT_CHARSET
Font.Color = clSkyBlue
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Kind = dtkDate
ParseInput = False
ParentBiDiMode = False
ParentFont = False
TabOrder = 2
OnChange = DTP1Change
end
object DTP2: TDateTimePicker
Left = 290
Top = 12
Width = 103
Height = 24
BevelInner = bvNone
BevelOuter = bvNone
CalAlignment = dtaLeft
Date = 38550.9999884259
Time = 38550.9999884259
DateFormat = dfShort
DateMode = dmComboBox
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Kind = dtkDate
ParseInput = False
ParentFont = False
TabOrder = 3
OnChange = DTP1Change
end
object Edit1: TEdit
Left = 504
Top = 12
Width = 153
Height = 24
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
end
object Panel6: TPanel
Left = 435
Top = 14
Width = 49
Height = 19
BevelOuter = bvNone
Caption = #21512#35745#37329#39069
Font.Charset = DEFAULT_CHARSET
Font.Color = clFuchsia
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
end
object Panel7: TPanel
Left = 672
Top = 12
Width = 46
Height = 25
Caption = #36716#23384#20026'EXCL'#25991#20214
Font.Charset = DEFAULT_CHARSET
Font.Color = clActiveCaption
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 6
end
end
object Panel3: TPanel
Left = 1
Top = 1
Width = 735
Height = 40
Align = alTop
BevelInner = bvLowered
Caption = #21382' '#21490' '#35760' '#24405' '#24773' '#20917
Color = clSkyBlue
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -27
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
end
end
object DataSource1: TDataSource
DataSet = qy1
Left = 120
Top = 8
end
object PopupMenu1: TPopupMenu
AutoPopup = False
Left = 168
Top = 8
object N1: TMenuItem
Caption = #21024#38500#26412#34892
OnClick = N1Click
end
object N2: TMenuItem
Caption = #26465#20214#21024#38500
OnClick = N2Click
end
end
object qy1: TADOQuery
Connection = Form1.ADOCon1
CursorLocation = clUseServer
Parameters = <>
SQL.Strings = (
'select * from date1')
Left = 32
Top = 8
object qy1a1: TWideStringField
FieldName = #30005#33041
Size = 8
end
object qy1a2: TDateTimeField
FieldName = #32467#24080#26085#26399
end
object qy1a3: TDateTimeField
FieldName = #19978#26426#26102#38388
end
object qy1a4: TDateTimeField
FieldName = #19979#26426#26102#38388
end
object qy1a5: TWideStringField
FieldName = #21345#21495
Size = 12
end
object qy1DSDesigner6: TFloatField
FieldName = #25276#37329
end
object qy1DSDesigner7: TFloatField
FieldName = #29992#26102
end
object qy1DSDesigner8: TFloatField
FieldName = #36153#29992
end
object qy1DSDesigner9: TFloatField
FieldName = #24050#36864
end
object qy1DSDesigner10: TWideStringField
FieldName = #22995#21517
Size = 8
end
object qy1DSDesigner11: TWideStringField
FieldName = #35777#20214#21495#30721
end
end
object qy2: TADOQuery
Connection = Form1.ADOCon1
CursorLocation = clUseServer
Parameters = <>
SQL.Strings = (
'select * from date1')
Left = 88
Top = 8
end
end
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -