📄 rl_jszw_wh_unit.dfm
字号:
object rl_jszw_wh: Trl_jszw_wh
Left = 170
Top = 92
Width = 513
Height = 480
Caption = #20154#21147#36164#28304#31995#32479#65293'>'#25216#26415#32844#21153#32500#25252#12289#32479#35745
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Splitter1: TSplitter
Left = 0
Top = 145
Width = 505
Height = 3
Cursor = crVSplit
Align = alTop
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 505
Height = 145
Align = alTop
TabOrder = 0
object GroupBox1: TGroupBox
Left = 8
Top = 8
Width = 169
Height = 129
Caption = #25216#26415#32844#21153#32500#25252
TabOrder = 0
object Label1: TLabel
Left = 16
Top = 16
Width = 105
Height = 13
AutoSize = False
Caption = #26032#28155#21152#32844#21153#21517#31216
end
object Button1: TButton
Left = 16
Top = 64
Width = 137
Height = 25
Caption = #28155#21152#26032#32844#21153#21517#31216
TabOrder = 0
OnClick = Button1Click
end
object Button2: TButton
Left = 16
Top = 96
Width = 137
Height = 25
Caption = #21024#38500#25152#36873#32844#21153#21517#31216
TabOrder = 1
OnClick = Button2Click
end
object edt_zw: TEdit
Left = 16
Top = 32
Width = 137
Height = 21
TabOrder = 2
end
end
object GroupBox2: TGroupBox
Left = 192
Top = 8
Width = 297
Height = 129
Caption = #32844#21153#20449#24687#32479#35745
TabOrder = 1
object Label2: TLabel
Left = 16
Top = 16
Width = 40
Height = 13
AutoSize = False
Caption = #21333#20301
end
object Label3: TLabel
Left = 16
Top = 56
Width = 40
Height = 13
AutoSize = False
Caption = #37096#38376
end
object Label4: TLabel
Left = 16
Top = 96
Width = 40
Height = 13
AutoSize = False
Caption = #29677#32452
end
object cb_dw: TComboBox
Left = 56
Top = 16
Width = 145
Height = 21
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 0
OnChange = cb_dwChange
end
object cb_fc: TComboBox
Left = 56
Top = 56
Width = 145
Height = 21
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 1
OnChange = cb_fcChange
end
object cb_bz: TComboBox
Left = 56
Top = 96
Width = 145
Height = 21
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 2
end
object Button3: TButton
Left = 216
Top = 16
Width = 75
Height = 25
Caption = #26597#35810
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = Button3Click
end
object Button4: TButton
Left = 216
Top = 56
Width = 75
Height = 25
Caption = #25171#21360
TabOrder = 4
end
object Button5: TButton
Left = 216
Top = 96
Width = 75
Height = 25
Caption = #36820#22238
TabOrder = 5
OnClick = Button5Click
end
end
end
object Panel2: TPanel
Left = 0
Top = 148
Width = 505
Height = 286
Align = alClient
Caption = 'Panel2'
TabOrder = 1
object DBGridEh1: TDBGridEh
Left = 1
Top = 1
Width = 503
Height = 284
Align = alClient
DataSource = DataSource1
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
FooterColor = clYellow
FooterFont.Charset = GB2312_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -16
FooterFont.Name = #23435#20307
FooterFont.Style = [fsBold]
FooterRowCount = 1
OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection]
ParentFont = False
ReadOnly = True
SumList.Active = True
SumList.VirtualRecords = True
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = #23435#20307
TitleFont.Style = []
UseMultiTitle = True
Columns = <
item
EditButtons = <>
FieldName = 'Jszwmc'
Footer.FieldName = 'Jszwmc'
Footer.ValueType = fvtCount
Footers = <>
Title.Caption = #25216#26415#32844#21153#21517#31216
end
item
EditButtons = <>
FieldName = 'Renshu'
Footer.FieldName = 'Renshu'
Footer.ValueType = fvtSum
Footers = <>
Title.Caption = #20154#25968
end>
end
end
object StatusBar1: TStatusBar
Left = 0
Top = 434
Width = 505
Height = 19
Panels = <>
end
object Table1: TTable
Active = True
DatabaseName = 'gz'
TableName = 'gzjszw.db'
Left = 168
Top = 232
end
object DataSource1: TDataSource
DataSet = Table1
Left = 192
Top = 192
end
object tb_dw: TTable
Active = True
DatabaseName = 'gz'
TableName = 'rl_dw.db'
Left = 176
Top = 64
end
object tb_fc: TTable
Active = True
DatabaseName = 'gz'
TableName = 'rlbm.DB'
Left = 232
Top = 64
end
object tb_bz: TTable
Active = True
DatabaseName = 'gz'
TableName = 'rlbz.DB'
Left = 280
Top = 64
end
object Query1: TQuery
DatabaseName = 'gz'
Left = 200
Top = 40
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -