?? unit_settime.dfm
字號:
object timecharge: Ttimecharge
Left = 275
Top = 151
Width = 309
Height = 242
Caption = #25910#36153#35774#32622
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsStayOnTop
OldCreateOrder = False
Position = poMainFormCenter
OnCanResize = FormCanResize
OnCloseQuery = FormCloseQuery
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 16
Top = 16
Width = 60
Height = 13
Caption = #36215#22987#26102#38388#65306
end
object Label2: TLabel
Left = 144
Top = 16
Width = 73
Height = 13
Caption = #32456#27490#26102#38388#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object time1: TLabel
Left = 80
Top = 16
Width = 27
Height = 13
Caption = '00:00'
end
object Label3: TLabel
Left = 16
Top = 48
Width = 73
Height = 13
Caption = #25240' '#25187#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object DBGrid1: TDBGrid
Left = 16
Top = 72
Width = 273
Height = 113
DataSource = ds_time
ReadOnly = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'time1'
Title.Caption = #36215#22987#26102#38388
Width = 92
Visible = True
end
item
Expanded = False
FieldName = 'time2'
Title.Caption = #32467#26463#26102#38388
Width = 92
Visible = True
end
item
Expanded = False
FieldName = 'charge'
Title.Caption = #25240#25187
Width = 68
Visible = True
end>
end
object Button1: TButton
Left = 144
Top = 40
Width = 65
Height = 25
Caption = #30830#23450
TabOrder = 1
OnClick = Button1Click
end
object Button2: TButton
Left = 216
Top = 40
Width = 73
Height = 25
Caption = #37325#26032#23450#21046
TabOrder = 2
OnClick = Button2Click
end
object time2: TEdit
Left = 216
Top = 8
Width = 73
Height = 21
MaxLength = 5
TabOrder = 3
OnExit = time2Exit
OnKeyPress = time2KeyPress
end
object echarge: TEdit
Left = 88
Top = 40
Width = 49
Height = 21
TabOrder = 4
OnExit = echargeExit
OnKeyPress = echargeKeyPress
end
object ds_time: TDataSource
DataSet = aq_time
Left = 192
Top = 136
end
object aq_time: TADOQuery
Connection = DataModule11.ccsj
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select dbo.fuca(time1) as time1,dbo.fuca(time2)as time2,charge f' +
'rom time order by timeid')
Left = 136
Top = 144
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -