📄 rl_ryxx_gj_unit.dfm
字号:
object rl_ryxx_gj: Trl_ryxx_gj
Left = 192
Top = 107
Width = 696
Height = 480
Caption = #20154#21147#36164#28304#31995#32479#65293' >'#21592#24037#22995#21517#20851#38190#23383#26597#35810
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 = 113
Width = 688
Height = 3
Cursor = crVSplit
Align = alTop
end
object StatusBar1: TStatusBar
Left = 0
Top = 434
Width = 688
Height = 19
Panels = <>
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 688
Height = 113
Align = alTop
TabOrder = 1
object Label2: TLabel
Left = 16
Top = 12
Width = 40
Height = 13
AutoSize = False
Caption = #21333#20301
end
object Label3: TLabel
Left = 16
Top = 44
Width = 40
Height = 13
AutoSize = False
Caption = #37096#38376
end
object Label4: TLabel
Left = 16
Top = 77
Width = 40
Height = 13
AutoSize = False
Caption = #29677#32452
end
object Label5: TLabel
Left = 216
Top = 20
Width = 89
Height = 13
AutoSize = False
Caption = #22995#21517#20851#38190#23383
end
object cb_dw: TComboBox
Left = 48
Top = 8
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 = 48
Top = 40
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 = 48
Top = 72
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 edt_xm: TEdit
Left = 216
Top = 40
Width = 113
Height = 21
TabOrder = 3
OnChange = edt_xmChange
OnKeyDown = edt_xmKeyDown
end
object Button2: TButton
Left = 360
Top = 24
Width = 75
Height = 25
Caption = #25171#21360
TabOrder = 4
OnClick = Button2Click
end
object Button3: TButton
Left = 560
Top = 120
Width = 75
Height = 25
Caption = #36820#22238
TabOrder = 5
end
object Button1: TButton
Left = 360
Top = 72
Width = 75
Height = 25
Caption = #36820#22238
TabOrder = 6
OnClick = Button1Click
end
object Edit1: TEdit
Left = 480
Top = 40
Width = 121
Height = 21
TabOrder = 7
Text = #27809#36873#20013
end
end
object Panel2: TPanel
Left = 0
Top = 116
Width = 688
Height = 318
Align = alClient
Caption = 'Panel2'
TabOrder = 2
object DBGridEh1: TDBGridEh
Left = 1
Top = 1
Width = 686
Height = 316
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 = -13
FooterFont.Name = #26032#23435#20307
FooterFont.Style = []
FooterRowCount = 1
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
OptionsEh = [dghFixed3D, dghData3D, dghHighlightFocus, dghClearSelection, dghRowHighlight]
ParentFont = False
ReadOnly = True
SumList.Active = True
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = 8404992
TitleFont.Height = -13
TitleFont.Name = #23435#20307
TitleFont.Style = []
UseMultiTitle = True
Columns = <
item
EditButtons = <>
FieldName = 'a5'
Footer.Value = #20154#25968#21512#35745
Footer.ValueType = fvtStaticText
Footers = <>
Title.Caption = #21592#24037#22995#21517
Width = 56
end
item
EditButtons = <>
FieldName = 'a6'
Footer.ValueType = fvtCount
Footers = <>
Title.Caption = #24615#21035
Width = 31
end
item
EditButtons = <>
FieldName = 'a7'
Footers = <>
Title.Caption = #27665#26063
Width = 52
end
item
EditButtons = <>
FieldName = 'a8'
Footers = <>
Title.Caption = #25216#26415#32844#21153
Width = 83
end
item
EditButtons = <>
FieldName = 'a9'
Footers = <>
Title.Caption = #21592#24037#36523#20221
Width = 38
end
item
EditButtons = <>
FieldName = 'a10'
Footers = <>
Title.Caption = #32844#21153
Width = 83
end
item
EditButtons = <>
FieldName = 'a11'
Footers = <>
Title.Caption = #25991#21270#31243#24230
Width = 91
end
item
EditButtons = <>
FieldName = 'a25'
Footers = <>
Title.Caption = #25919#27835#38754#35980
Width = 38
end
item
EditButtons = <>
FieldName = 'a26'
Footers = <>
Title.Caption = #23398#21382'('#20301')'
Width = 29
end
item
EditButtons = <>
FieldName = 'a27'
Footers = <>
Title.Caption = #27605#19994#23398#26657
Width = 105
end
item
EditButtons = <>
FieldName = 'a28'
Footers = <>
Title.Caption = #25152#23398#19987#19994
Width = 81
end
item
EditButtons = <>
FieldName = 'A29'
Footers = <>
Title.Caption = #23703#20301
Width = 76
end
item
EditButtons = <>
FieldName = 'a14'
Footers = <>
Title.Caption = #20986#29983#24180#26376
Width = 52
end
item
EditButtons = <>
FieldName = 'a13'
Footers = <>
Title.Caption = #24037#20316#24180#26376
Width = 50
end
item
EditButtons = <>
FieldName = 'a12'
Footers = <>
Title.Caption = #35843#20837#24180#26376
Width = 53
end>
end
end
object DataSource1: TDataSource
DataSet = Query1
Left = 64
Top = 264
end
object Query1: TQuery
Active = True
DatabaseName = 'gz'
SQL.Strings = (
'select a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a25,a26,a27,a28 from g' +
'zzk order by a5 asc')
Left = 32
Top = 260
end
object tb_dw: TTable
Active = True
DatabaseName = 'gz'
TableName = 'rl_dw.db'
Left = 104
Top = 64
end
object tb_fc: TTable
Active = True
DatabaseName = 'gz'
TableName = 'rlbm.DB'
Left = 88
Top = 8
end
object tb_bz: TTable
Active = True
DatabaseName = 'gz'
TableName = 'rlbz.DB'
Left = 104
Top = 32
end
object p: TPrintDBGridEh
DBGridEh = DBGridEh1
Options = []
Page.BottomMargin = 2.000000000000000000
Page.LeftMargin = 2.000000000000000000
Page.RightMargin = 2.000000000000000000
Page.TopMargin = 2.000000000000000000
PageFooter.Font.Charset = DEFAULT_CHARSET
PageFooter.Font.Color = clWindowText
PageFooter.Font.Height = -11
PageFooter.Font.Name = 'MS Sans Serif'
PageFooter.Font.Style = []
PageHeader.CenterText.Strings = (
#21592#24037#20449#24687#26597#35810#32467#26524)
PageHeader.Font.Charset = GB2312_CHARSET
PageHeader.Font.Color = clRed
PageHeader.Font.Height = -32
PageHeader.Font.Name = #21326#25991#34892#26999
PageHeader.Font.Style = []
Units = MM
Left = 176
Top = 244
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -