📄 unit4.dfm
字号:
object Form4: TForm4
Left = 164
Top = 53
Width = 777
Height = 499
AutoSize = True
Caption = #24211' '#23384' '#31649' '#29702
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Scaled = False
PixelsPerInch = 96
TextHeight = 13
object DBGrid1: TDBGrid
Left = 0
Top = 0
Width = 769
Height = 433
DataSource = DataSource1
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
TabOrder = 0
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -8
TitleFont.Name = 'MS Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'STA'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -8
Font.Name = 'MS Sans Serif'
Font.Style = []
Title.Caption = #21697' '#21517
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -11
Title.Font.Name = 'MS Serif'
Title.Font.Style = []
Width = 44
Visible = True
end
item
Expanded = False
FieldName = 'STB'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -8
Font.Name = 'MS Sans Serif'
Font.Style = []
Title.Caption = #31867' '#21035
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -11
Title.Font.Name = 'MS Serif'
Title.Font.Style = []
Width = 36
Visible = True
end
item
Expanded = False
FieldName = 'STC'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -8
Font.Name = 'MS Sans Serif'
Font.Style = []
Title.Caption = #26399#21021#24211#23384#25968#37327
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -11
Title.Font.Name = 'MS Serif'
Title.Font.Style = []
Width = 86
Visible = True
end
item
Expanded = False
FieldName = 'STD'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -8
Font.Name = 'MS Sans Serif'
Font.Style = []
Title.Caption = #26399#21021#24211#23384#37325#37327
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -11
Title.Font.Name = 'MS Serif'
Title.Font.Style = []
Visible = True
end
item
Expanded = False
FieldName = 'STE'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -8
Font.Name = 'MS Sans Serif'
Font.Style = []
Title.Caption = #36827#20179#25968#37327
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -11
Title.Font.Name = 'MS Serif'
Title.Font.Style = []
Visible = True
end
item
Expanded = False
FieldName = 'STF'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -8
Font.Name = 'MS Sans Serif'
Font.Style = []
Title.Caption = #36827#20179#37325#37327
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -11
Title.Font.Name = 'MS Serif'
Title.Font.Style = []
Visible = True
end
item
Expanded = False
FieldName = 'STG'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -8
Font.Name = 'MS Sans Serif'
Font.Style = []
Title.Caption = #20986#20179#25968#37327
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -11
Title.Font.Name = 'MS Serif'
Title.Font.Style = []
Visible = True
end
item
Expanded = False
FieldName = 'STH'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -8
Font.Name = 'MS Sans Serif'
Font.Style = []
Title.Caption = #20986#20179#37325#37327
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -11
Title.Font.Name = 'MS Serif'
Title.Font.Style = []
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'STI'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -8
Font.Name = 'MS Sans Serif'
Font.Style = []
Title.Caption = #26399#26411#24211#23384#25968#37327
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -11
Title.Font.Name = 'MS Serif'
Title.Font.Style = []
Width = 86
Visible = True
end
item
Expanded = False
FieldName = 'STJ'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -8
Font.Name = 'MS Sans Serif'
Font.Style = []
Title.Caption = #26399#26411#24211#23384#37325#37327
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -11
Title.Font.Name = 'MS Serif'
Title.Font.Style = []
Width = 87
Visible = True
end
item
Expanded = False
FieldName = 'stk'
Title.Caption = #20973#35777#21495
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -11
Title.Font.Name = 'MS Serif'
Title.Font.Style = []
Visible = True
end>
end
object Button2: TButton
Left = 0
Top = 432
Width = 769
Height = 33
Caption = #24211' '#23384' '#26597' '#35810
TabOrder = 1
OnClick = Button2Click
end
object DataSource1: TDataSource
DataSet = ADOTable1
Top = 96
end
object ADOQuery1: TADOQuery
Active = True
ConnectionString =
'Provider=MSDASQL.1;Persist Security Info=False;Data Source=MS Ac' +
'cess Database;Initial Catalog=jxc'
CursorType = ctStatic
DataSource = DataSource1
Parameters = <>
SQL.Strings = (
'select sum(stc),sum(std),sum(ste),sum(stf),sum(stg),sum(sth),sum' +
'(sti),sum(stj) from ST')
Top = 120
end
object ADOTable1: TADOTable
Active = True
ConnectionString =
'Provider=MSDASQL.1;Persist Security Info=False;Data Source=MS Ac' +
'cess Database;Initial Catalog=jxc'
CursorType = ctStatic
TableName = 'ST'
Top = 152
end
object frDBDataSet1: TfrDBDataSet
DataSet = ADOTable1
Top = 184
end
object frDBDataSet2: TfrDBDataSet
DataSet = ADOQuery1
Top = 216
end
object frReport3: TfrReport
Dataset = frDBDataSet1
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
RebuildPrinter = False
Top = 312
ReportForm = {19000000}
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -