?? unit10.dfm
字號:
TabOrder = 5
Text = '0'
Visible = False
end
object tw: TEdit
Left = 112
Top = 64
Width = 73
Height = 21
ImeName = #26234#33021'ABC'#36755#20837#27861
TabOrder = 6
Text = '0'
Visible = False
end
object xzf: TEdit
Left = 208
Top = 72
Width = 65
Height = 21
ImeName = #26234#33021'ABC'#36755#20837#27861
TabOrder = 7
Text = '0'
Visible = False
end
object tzf: TEdit
Left = 288
Top = 72
Width = 57
Height = 21
ImeName = #26234#33021'ABC'#36755#20837#27861
TabOrder = 8
Text = '0'
Visible = False
end
object Panel4: TPanel
Left = 0
Top = 0
Width = 793
Height = 553
Color = clInfoBk
TabOrder = 9
Visible = False
object Label9: TLabel
Left = 264
Top = 16
Width = 259
Height = 35
Caption = #20986#38169#36873#25321#39064#21015#34920
Font.Charset = GB2312_CHARSET
Font.Color = clPurple
Font.Height = -35
Font.Name = #38582#20070
Font.Style = [fsBold]
ParentFont = False
end
object Label10: TLabel
Left = 304
Top = 304
Width = 185
Height = 35
Caption = #20986#38169#22635#31354#39064
Font.Charset = GB2312_CHARSET
Font.Color = clPurple
Font.Height = -35
Font.Name = #38582#20070
Font.Style = [fsBold]
ParentFont = False
end
object Label11: TLabel
Left = 24
Top = 376
Width = 78
Height = 29
Caption = #39064#30446':'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -29
Font.Name = #38582#20070
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Left = 416
Top = 384
Width = 124
Height = 29
Caption = #32771#29983#31572#26696
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -29
Font.Name = #38582#20070
Font.Style = [fsBold]
ParentFont = False
end
object Label13: TLabel
Left = 416
Top = 432
Width = 124
Height = 29
Caption = #27491#30830#31572#26696
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -29
Font.Name = #38582#20070
Font.Style = [fsBold]
ParentFont = False
end
object Label14: TLabel
Left = 560
Top = 344
Width = 44
Height = 21
Caption = #25968#30446
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label15: TLabel
Left = 672
Top = 344
Width = 21
Height = 20
Caption = #20010
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object DBGrid1: TDBGrid
Left = 8
Top = 72
Width = 769
Height = 217
DataSource = DataSource2
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -19
Font.Name = #38582#20070
Font.Style = [fsBold]
ImeName = #26234#33021'ABC'#36755#20837#27861
ParentFont = False
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = #23435#20307
TitleFont.Style = [fsBold]
end
object DBMemo1: TDBMemo
Left = 112
Top = 384
Width = 273
Height = 57
BorderStyle = bsNone
Color = clInfoBk
Ctl3D = False
DataField = #39064#30446
DataSource = DataSource3
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -24
Font.Name = #38582#20070
Font.Style = [fsBold]
ImeName = #26234#33021'ABC'#36755#20837#27861
ParentCtl3D = False
ParentFont = False
TabOrder = 1
end
object DBEdit1: TDBEdit
Left = 560
Top = 384
Width = 193
Height = 27
DataField = 'ksda'
DataSource = DataSource3
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -19
Font.Name = #38582#20070
Font.Style = [fsBold]
ImeName = #26234#33021'ABC'#36755#20837#27861
ParentFont = False
TabOrder = 2
end
object DBEdit2: TDBEdit
Left = 560
Top = 432
Width = 193
Height = 27
DataField = 'ri'
DataSource = DataSource4
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -19
Font.Name = #38582#20070
Font.Style = [fsBold]
ImeName = #26234#33021'ABC'#36755#20837#27861
ParentFont = False
TabOrder = 3
end
object Button1: TButton
Left = 160
Top = 488
Width = 105
Height = 33
Caption = #19978#19968#36947
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #38582#20070
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = Button1Click
end
object Button2: TButton
Left = 344
Top = 488
Width = 105
Height = 33
Caption = #19979#19968#36947
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #38582#20070
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
OnClick = Button2Click
end
object Button3: TButton
Left = 528
Top = 488
Width = 105
Height = 33
Caption = #20851#38381
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #38582#20070
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
OnClick = tcClick
end
object DBEdit3: TDBEdit
Left = 64
Top = 304
Width = 97
Height = 21
DataField = #39064#21495
DataSource = DataSource3
ImeName = #26234#33021'ABC'#36755#20837#27861
TabOrder = 7
Visible = False
end
object Edit1: TEdit
Left = 616
Top = 344
Width = 41
Height = 23
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #26234#33021'ABC'#36755#20837#27861
ParentFont = False
TabOrder = 8
end
end
object DataSource1: TDataSource
DataSet = Query1
Left = 32
Top = 8
end
object Query1: TQuery
OnCalcFields = Query1CalcFields
AutoRefresh = True
DatabaseName = #30005#23376#35797#21367#24211
RequestLive = True
SQL.Strings = (
'select '#39064#30446','#39064#22411','#26159#21542#27491#30830','#35797#39064#32534#21495
'from '#32771#21367#35797#39064#24211' ')
Top = 8
object Query1BDEDesigner4: TIntegerField
FieldName = #35797#39064#32534#21495
end
object Query1BDEDesigner2: TStringField
FieldName = #39064#22411
Origin = #30005#23376#35797#21367#24211'.'#32771#21367#35797#39064#24211'.'#39064#22411
ReadOnly = True
Size = 50
end
object Query1BDEDesigner: TStringField
FieldName = #39064#30446
Origin = #30005#23376#35797#21367#24211'.'#32771#21367#35797#39064#24211'.'#39064#30446
ReadOnly = True
Size = 150
end
object Query1BDEDesigner3: TStringField
FieldName = #26159#21542#27491#30830
Origin = #30005#23376#35797#21367#24211'.'#32771#21367#35797#39064#24211'.'#26159#21542#27491#30830
ReadOnly = True
Visible = False
Size = 50
end
object zw: TStringField
FieldKind = fkCalculated
FieldName = #27491#35823
ReadOnly = True
Calculated = True
end
end
object sel: TQuery
DatabaseName = #30005#23376#35797#21367#24211
Left = 64
Top = 8
end
object chucuox: TQuery
DatabaseName = #30005#23376#35797#21367#24211
Left = 112
Top = 8
end
object DataSource2: TDataSource
DataSet = chucuox
Left = 16
Top = 40
end
object DataSource3: TDataSource
DataSet = chucuot
Left = 48
Top = 40
end
object chucuot: TQuery
DatabaseName = #30005#23376#35797#21367#24211
Left = 112
Top = 40
end
object wr: TQuery
DatabaseName = #30005#23376#35797#21367#24211
Left = 160
Top = 8
end
object DataSource4: TDataSource
DataSet = wr
Left = 160
Top = 40
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -