?? unit_get_sp.dfm
字號:
object Form_get_sp: TForm_get_sp
Left = 222
Top = 166
Width = 697
Height = 522
Caption = #24471#21040#21830#21697
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 689
Height = 41
Align = alTop
BevelInner = bvLowered
TabOrder = 0
object Label1: TLabel
Left = 44
Top = 13
Width = 65
Height = 13
Caption = #21517#31216#26597#35810#65306
end
object Edit_query: TEdit
Left = 104
Top = 9
Width = 257
Height = 21
Color = 16572566
TabOrder = 0
OnChange = Edit_queryChange
OnKeyDown = Edit_queryKeyDown
end
object BitBtn_reshow: TBitBtn
Left = 496
Top = 8
Width = 67
Height = 25
Caption = #21047#26032
TabOrder = 1
OnClick = BitBtn_reshowClick
end
object BitBtn_select: TBitBtn
Left = 424
Top = 8
Width = 67
Height = 25
Caption = #36873#20013
TabOrder = 2
OnClick = BitBtn_selectClick
end
object BitBtn_quit: TBitBtn
Left = 568
Top = 8
Width = 67
Height = 25
Caption = #36864#20986
TabOrder = 3
OnClick = BitBtn_quitClick
end
end
object DBGrid1: TDBGrid
Left = 0
Top = 41
Width = 689
Height = 454
Align = alClient
Color = 16382446
DataSource = DataSource1
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
ReadOnly = True
TabOrder = 1
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = #23435#20307
TitleFont.Style = []
OnDblClick = DBGrid1DblClick
Columns = <
item
Expanded = False
FieldName = 't0701'
Title.Alignment = taCenter
Title.Caption = #21830#21697#32534#21495
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 't0702'
Title.Alignment = taCenter
Title.Caption = #20135#21697#21517#31216
Width = 150
Visible = True
end
item
Expanded = False
FieldName = 't0703'
Title.Alignment = taCenter
Title.Caption = #35268#26684
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 't0704'
Title.Alignment = taCenter
Title.Caption = #39068#33394
Width = 80
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 't0707'
Title.Alignment = taCenter
Title.Caption = #21333#20301
Width = 40
Visible = True
end
item
Expanded = False
FieldName = 'kc'
Title.Alignment = taCenter
Title.Caption = #24211#23384
Width = 70
Visible = True
end>
end
object ADOQuery1: TADOQuery
Connection = Form_main.ADOCn
CursorType = ctStatic
Filtered = True
Parameters = <>
SQL.Strings = (
'SELECT t0700,t0701,t0702,t0703,t0704,t0705,t0706,t0707,iif(isnul' +
'l(scrk),0,scrk) as scrk1,'
'iif(isnull(xssl),0,xssl) as xssl1,iif(isnull(thsl),0,thsl) as th' +
'sl1,'
'((iif(isnull(scrk),0,scrk))-(iif(isnull(xssl),0,xssl))+(iif(isnu' +
'll(thsl),0,thsl))) AS kc'
'FROM'
'(select *,'
'(select sum(iif(isnull(t0406),0,t0406)) from t04 where t0402=t0' +
'700 ) AS xssl,'
'(select sum(iif(isnull(t0603),0,t0603)) from t06 where t0602=t0' +
'700 ) AS thsl, '
'(select sum(iif(isnull(t1102),0,t1102)) from t11 where t1101=t0' +
'700) AS scrk'
'from t07'
')')
Left = 208
Top = 176
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 168
Top = 168
end
end
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -