📄 dengji.~dfm
字号:
object dengjitab1: Tdengjitab1
Left = 300
Top = 141
Width = 504
Height = 453
BorderIcons = [biSystemMenu, biMinimize]
Caption = #20572#36710#22330#20449#24687#31649#29702#31995#32479' - '#20837#21475#30331#35760
Color = clCream
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {
0000010001002020100000000000E80200001600000028000000200000004000
0000010004000000000080020000000000000000000010000000000000000000
000000008000008000000080800080000000800080008080000080808000C0C0
C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000077000000000000000000000000000000788
8888888888888888770070000000780007000000007000077770800000007877
77777777777777777770807000007888888FFFFFFFF888887770007700007FFF
FFF88888888FFFFF8870008770707F77777877777787777887870078777007FF
8780707070087FF8F78807778770077778F00000000F877778888777780007FF
F8FFFFFFFFFF8FFFFF8881777800007FF8FFFFFFFFFFF8FFF8F8887778870007
FF8FFFFFFFFFFF8FFF8F8887778700007FF8FFFFFFFFFFF8FFF8FF8888870000
07F77777787777777888700F888700000787F888787777777770F887F8870000
0777888887877777777077077887000000007F88887877777770870777700000
00007888888787777770887770000000000007F8888878777770878700000000
0000007FFFFFFFFF88F807700000000000000007777777777777770000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000FFFF
FFFFFFFFFFFFFFFFFFFFF1FFFE7FE0FFFC3F8000003F8000003F0000001F0000
0009000000010000000100000000800000008000000080000000C0000000E000
0000F0000000F8000000F8000000F8000000FF000001FF000007FF80000FFFC0
001FFFE0003FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
OldCreateOrder = False
Position = poDesktopCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object GroupBox1: TGroupBox
Left = 8
Top = 8
Width = 481
Height = 169
Caption = #26469#36710#30331#35760
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
object ComboBox1: TComboBox
Left = 328
Top = 24
Width = 97
Height = 21
ImeName = #32043#20809#25340#38899#36755#20837#27861
ItemHeight = 13
TabOrder = 0
Text = #36873#25321#36710#22411
OnChange = ComboBox1Change
Items.Strings = (
'A'#22411
'B'#22411
'C'#22411)
end
object Edit1: TEdit
Left = 104
Top = 24
Width = 121
Height = 21
ImeName = #32043#20809#25340#38899#36755#20837#27861
TabOrder = 1
end
object Edit2: TEdit
Left = 104
Top = 64
Width = 121
Height = 21
Color = cl3DLight
Enabled = False
ImeName = #32043#20809#25340#38899#36755#20837#27861
TabOrder = 2
end
object StaticText1: TStaticText
Left = 264
Top = 67
Width = 52
Height = 17
Caption = #35745#36153#26631#20934
TabOrder = 3
end
object Edit3: TEdit
Left = 328
Top = 64
Width = 97
Height = 21
Color = cl3DLight
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ImeName = #32043#20809#25340#38899#36755#20837#27861
ParentFont = False
ReadOnly = True
TabOrder = 4
end
object StaticText2: TStaticText
Left = 264
Top = 29
Width = 52
Height = 17
Caption = #36710#36742#22411#21495
TabOrder = 5
end
object StaticText3: TStaticText
Left = 40
Top = 67
Width = 52
Height = 17
Caption = #20837#22330#26102#38388
TabOrder = 6
end
object StaticText4: TStaticText
Left = 40
Top = 29
Width = 52
Height = 17
Caption = #36710#29260#21495#30721
TabOrder = 7
end
object StaticText5: TStaticText
Left = 40
Top = 107
Width = 52
Height = 17
Caption = #20998#37197#36710#20301
TabOrder = 8
end
object Edit4: TEdit
Left = 104
Top = 104
Width = 121
Height = 21
Color = cl3DLight
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ImeName = #32043#20809#25340#38899#36755#20837#27861
ParentFont = False
ReadOnly = True
TabOrder = 9
end
object BitBtn1: TBitBtn
Left = 304
Top = 136
Width = 65
Height = 22
Cursor = crHandPoint
Caption = #25552' '#20132
DragCursor = crHandPoint
TabOrder = 10
OnClick = BitBtn1Click
end
object StaticText6: TStaticText
Left = 264
Top = 107
Width = 34
Height = 17
Caption = #22791' '#27880
TabOrder = 11
end
object Edit5: TEdit
Left = 304
Top = 104
Width = 121
Height = 21
ImeName = #32043#20809#25340#38899#36755#20837#27861
TabOrder = 12
Text = #26080
end
object Button1: TButton
Left = 376
Top = 136
Width = 65
Height = 22
Cursor = crHandPoint
Caption = #21462' '#28040
TabOrder = 13
OnClick = Button1Click
end
end
object GroupBox2: TGroupBox
Left = 8
Top = 184
Width = 481
Height = 225
Caption = #21382#21490#32426#24405
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
object DBGrid1: TDBGrid
Left = 0
Top = 16
Width = 481
Height = 209
DataSource = DataSource1
FixedColor = clCream
ImeName = #32043#20809#25340#38899#36755#20837#27861
ReadOnly = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
end
object DataSource1: TDataSource
DataSet = Table1
Left = 144
end
object Table1: TTable
Active = True
DatabaseName = 'PMIS1'
TableName = #20837#22330#36710#36742#30331#35760#34920
Left = 176
end
object Query1: TQuery
Active = True
DatabaseName = 'PMIS1'
DataSource = DataSource1
SQL.Strings = (
'SELECT '#32534#21495' FROM '#20837#22330#36710#36742#30331#35760#34920' WHERE '#32534#21495'=(SELECT MAX('#32534#21495') FROM '#20837#22330#36710#36742#30331#35760#34920') ')
Left = 312
end
object DataSource2: TDataSource
DataSet = Query1
Left = 280
end
object DataSource3: TDataSource
DataSet = Query2
Left = 408
end
object Query2: TQuery
DatabaseName = 'PMIS1'
DataSource = DataSource4
SQL.Strings = (
'SELECT '#36710#20301#21495#30721' FROM '#36710#24211#29366#20917#34920' WHERE '#36710#20301#21495#30721'=(SELECT MIN('#36710#20301#21495#30721')FROM '#36710#24211#29366#20917#34920' WH' +
'ERE '#26159#21542#21344#29992'='#39'No'#39' AND '#36710#20301#21495#30721'>=1 AND '#36710#20301#21495#30721'<=20)')
Left = 440
end
object Table2: TTable
Active = True
DatabaseName = 'PMIS1'
TableName = #36710#24211#29366#20917#34920
Left = 464
Top = 72
end
object DataSource4: TDataSource
DataSet = Table2
Left = 432
Top = 72
end
object Query3: TQuery
Active = True
DatabaseName = 'PMIS1'
DataSource = DataSource4
SQL.Strings = (
'SELECT '#36710#20301#21495#30721' FROM '#36710#24211#29366#20917#34920' WHERE '#36710#20301#21495#30721'=(SELECT MIN('#36710#20301#21495#30721')FROM '#36710#24211#29366#20917#34920' WH' +
'ERE '#26159#21542#21344#29992'='#39'No'#39' AND '#36710#20301#21495#30721'>=21 AND '#36710#20301#21495#30721'<=40)')
Left = 56
Top = 144
end
object Query4: TQuery
Active = True
DatabaseName = 'PMIS1'
DataSource = DataSource4
SQL.Strings = (
'SELECT '#36710#20301#21495#30721' FROM '#36710#24211#29366#20917#34920' WHERE '#36710#20301#21495#30721'=(SELECT MIN('#36710#20301#21495#30721')FROM '#36710#24211#29366#20917#34920' WH' +
'ERE '#26159#21542#21344#29992'='#39'No'#39' AND '#36710#20301#21495#30721'>=41 AND '#36710#20301#21495#30721'<=60)')
Left = 136
Top = 144
end
object DataSource5: TDataSource
DataSet = Query3
Left = 24
Top = 144
end
object DataSource6: TDataSource
DataSet = Query4
Left = 104
Top = 144
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -