📄 ufrmtakemeter.dfm
字号:
object frmTakeMeter: TfrmTakeMeter
Left = 256
Top = 168
Width = 696
Height = 554
Caption = 'frmTakeMeter'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poDefault
Visible = True
WindowState = wsMaximized
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object Panel3: TPanel
Left = 0
Top = 0
Width = 688
Height = 41
Align = alTop
BevelInner = bvLowered
TabOrder = 0
object Label4: TLabel
Left = 33
Top = 12
Width = 65
Height = 13
Caption = '抄表时间：'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object DTMeter: TDateTimePicker
Left = 120
Top = 8
Width = 206
Height = 21
CalAlignment = dtaLeft
Date = 37832.8947618056
Time = 37832.8947618056
DateFormat = dfShort
DateMode = dmComboBox
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ImeMode = imClose
Kind = dtkDate
MaxDate = 55153
MinDate = 36526
ParseInput = False
ParentFont = False
TabOrder = 0
OnCloseUp = DTMeterCloseUp
end
object BitBtn1: TBitBtn
Left = 475
Top = 7
Width = 99
Height = 27
Anchors = [akRight]
Caption = '开始抄表'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = BitBtn1Click
end
end
object Panel2: TPanel
Left = 0
Top = 152
Width = 688
Height = 375
Align = alClient
BevelInner = bvLowered
TabOrder = 1
object DBGridEh1: TDBGridEh
Left = 2
Top = 27
Width = 684
Height = 346
Align = alClient
DataSource = dsTakeMeter
Flat = True
FooterColor = clWindow
FooterFont.Charset = DEFAULT_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -11
FooterFont.Name = 'MS Sans Serif'
FooterFont.Style = []
ImeName = '中文 (简体) - 智能 ABC'
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
EditButtons = <>
FieldName = 'MeterID'
Footers = <>
Title.Caption = '表编号'
Width = 85
end
item
EditButtons = <>
FieldName = 'TakeNumber'
Footers = <>
Title.Caption = '当前表数'
Width = 80
end
item
EditButtons = <>
FieldName = 'CurValue'
Footers = <>
Title.Caption = '使用数量'
Width = 75
end
item
EditButtons = <>
FieldName = 'Charge'
Footers = <>
Title.Caption = '计划费用'
Width = 70
end
item
EditButtons = <>
FieldName = 'QuotaCharge'
Footers = <>
Title.Caption = '超出费用'
Width = 70
end
item
EditButtons = <>
FieldName = 'TakeTime'
Footers = <>
Title.Caption = '抄表时间'
Width = 85
end
item
EditButtons = <>
FieldName = 'InputDate'
Footers = <>
Title.Caption = '录入时间'
Width = 85
end>
end
object Panel4: TPanel
Left = 176
Top = 54
Width = 233
Height = 281
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
object Label5: TLabel
Left = 31
Top = 12
Width = 105
Height = 15
Caption = '请选择表编号：'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object BitBtn2: TBitBtn
Left = 32
Top = 245
Width = 75
Height = 25
Caption = '确定'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = BitBtn2Click
end
object BitBtn3: TBitBtn
Left = 136
Top = 245
Width = 75
Height = 25
Caption = '取消'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = BitBtn3Click
end
object ListView1: TListView
Left = 32
Top = 32
Width = 174
Height = 201
Columns = <
item
Caption = '顺号'
Width = 70
end
item
Alignment = taCenter
Caption = '编号'
Width = 100
end>
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
FlatScrollBars = True
GridLines = True
ReadOnly = True
RowSelect = True
ParentFont = False
TabOrder = 2
ViewStyle = vsReport
OnKeyPress = ListView1KeyPress
end
end
object MyDBNavigator1: TMyDBNavigator
Left = 2
Top = 2
Width = 684
Height = 25
DataSource = dsTakeMeter
Align = alTop
Flat = True
TabOrder = 2
end
end
object Panel1: TPanel
Left = 0
Top = 41
Width = 688
Height = 111
Align = alTop
BevelInner = bvLowered
TabOrder = 2
object Label1: TLabel
Left = 43
Top = 23
Width = 46
Height = 13
AutoSize = False
Caption = '表编号'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 238
Top = 23
Width = 58
Height = 13
AutoSize = False
Caption = '当前表数'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 39
Top = 63
Width = 46
Height = 13
AutoSize = False
Caption = '使用数'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 236
Top = 61
Width = 58
Height = 13
AutoSize = False
Caption = '计划费用'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 430
Top = 61
Width = 58
Height = 13
AutoSize = False
Caption = '超出费用'
end
object Shape1: TShape
Left = 24
Top = 48
Width = 587
Height = 3
Pen.Color = clSilver
end
object Label8: TLabel
Left = 403
Top = 60
Width = 12
Height = 13
Caption = '元'
end
object Label9: TLabel
Left = 603
Top = 61
Width = 12
Height = 13
Caption = '元'
end
object DBEditEh3: TDBEditEh
Left = 90
Top = 20
Width = 121
Height = 19
DataField = 'MeterID'
DataSource = dsTakeMeter
EditButtons = <>
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Flat = True
ImeMode = imClose
ParentFont = False
TabOrder = 0
Visible = True
OnKeyPress = DBEditEh3KeyPress
end
object DBEditEh4: TDBEditEh
Left = 298
Top = 20
Width = 121
Height = 19
DataField = 'TakeNumber'
DataSource = dsTakeMeter
EditButtons = <>
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Flat = True
ImeMode = imClose
MRUList.Active = True
ParentFont = False
TabOrder = 1
Visible = True
OnKeyPress = DBEditEh4KeyPress
end
object DBEditEh1: TDBEditEh
Left = 88
Top = 60
Width = 121
Height = 19
DataField = 'CurValue'
DataSource = dsTakeMeter
EditButtons = <>
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Flat = True
ImeMode = imClose
ParentFont = False
TabOrder = 2
Visible = True
end
object DBCharge: TDBEditEh
Left = 299
Top = 58
Width = 102
Height = 19
DataField = 'Charge'
DataSource = dsTakeMeter
EditButtons = <>
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Flat = True
ImeMode = imClose
ParentFont = False
TabOrder = 3
Visible = True
end
object DBEditEh2: TDBEditEh
Left = 490
Top = 59
Width = 111
Height = 19
DataField = 'QuotaCharge'
DataSource = dsTakeMeter
EditButtons = <>
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Flat = True
ImeMode = imClose
ParentFont = False
TabOrder = 4
Visible = True
end
end
object dsTakeMeter: TDataSource
DataSet = adoTakeMeter
Left = 40
Top = 329
end
object adoTakeMeter: TADOQuery
BeforePost = adoTakeMeterBeforePost
Parameters = <>
SQL.Strings = (
'select * from TakeMeter')
Left = 80
Top = 329
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -