?? unit1.dfm
字號:
Top = 29
Width = 801
Height = 412
DataSource = DStotal
ReadOnly = True
TabOrder = 0
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -15
TitleFont.Name = #23435#20307
TitleFont.Style = []
end
end
end
object TabSheet3: TTabSheet
Caption = #25968#25454#23548#20986
ImageIndex = 2
object Panel6: TPanel
Left = -1
Top = -2
Width = 820
Height = 555
TabOrder = 0
object Label13: TLabel
Left = 8
Top = 8
Width = 90
Height = 15
Caption = #23548#20986#20449#24687#35774#32622
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label14: TLabel
Left = 8
Top = 43
Width = 45
Height = 15
Caption = #26631#39064#65306
end
object Label15: TLabel
Left = 8
Top = 75
Width = 53
Height = 15
Caption = #21046#34920#20154':'
end
object Edttitle: TEdit
Left = 46
Top = 38
Width = 763
Height = 23
ImeName = #32043#20809#25340#38899#36755#20837#27861
MaxLength = 100
TabOrder = 0
end
object btnoutyes: TBitBtn
Left = 8
Top = 104
Width = 75
Height = 25
Caption = #30830#23450
Enabled = False
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = btnoutyesClick
end
object btnout: TBitBtn
Left = 88
Top = 104
Width = 75
Height = 25
Caption = #23548#20986
Enabled = False
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = btnoutClick
end
object edtman: TEdit
Left = 62
Top = 70
Width = 746
Height = 23
ImeName = #32043#20809#25340#38899#36755#20837#27861
MaxLength = 100
TabOrder = 3
end
end
end
end
object Pangroup: TPanel
Left = 304
Top = 168
Width = 245
Height = 377
TabOrder = 1
Visible = False
object Label4: TLabel
Left = 8
Top = 25
Width = 60
Height = 15
Caption = #24453#36873#23383#27573
end
object Label5: TLabel
Left = 128
Top = 25
Width = 60
Height = 15
Caption = #24050#36873#23383#27573
end
object Label6: TLabel
Left = 10
Top = 6
Width = 52
Height = 13
Caption = #20998#32452#26465#20214
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object LBxgroupall: TListBox
Left = 8
Top = 43
Width = 109
Height = 320
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 16
ParentFont = False
TabOrder = 0
OnDblClick = LBxgroupallDblClick
end
object BitBtn5: TBitBtn
Left = 204
Top = 3
Width = 40
Height = 20
Caption = #30830#23450
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = BitBtn5Click
end
object LBxgroupsele: TListBox
Left = 128
Top = 43
Width = 109
Height = 320
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 16
ParentFont = False
TabOrder = 2
OnDblClick = LBxgroupseleDblClick
end
end
object Pantotal: TPanel
Left = 414
Top = 192
Width = 245
Height = 377
TabOrder = 2
Visible = False
object Label7: TLabel
Left = 8
Top = 26
Width = 60
Height = 15
Caption = #24453#36873#23383#27573
end
object Label8: TLabel
Left = 128
Top = 26
Width = 60
Height = 15
Caption = #24050#36873#23383#27573
end
object Label9: TLabel
Left = 10
Top = 6
Width = 52
Height = 13
Caption = #32479#35745#23383#27573
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object LBxtotalall: TListBox
Left = 8
Top = 43
Width = 109
Height = 320
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 16
ParentFont = False
TabOrder = 0
OnDblClick = LBxtotalallDblClick
end
object BitBtn6: TBitBtn
Left = 203
Top = 3
Width = 40
Height = 20
Caption = #30830#23450
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = BitBtn6Click
end
object LBxtotalsele: TListBox
Left = 128
Top = 43
Width = 109
Height = 320
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 16
ParentFont = False
TabOrder = 2
OnDblClick = LBxtotalseleDblClick
end
end
object Panshow: TPanel
Left = 549
Top = 208
Width = 245
Height = 377
TabOrder = 3
Visible = False
object Label10: TLabel
Left = 8
Top = 26
Width = 60
Height = 15
Caption = #24453#36873#23383#27573
end
object Label11: TLabel
Left = 128
Top = 26
Width = 60
Height = 15
Caption = #24050#36873#23383#27573
end
object Label12: TLabel
Left = 10
Top = 6
Width = 52
Height = 13
Caption = #24179#22343#23383#27573
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object LBxshowall: TListBox
Left = 8
Top = 43
Width = 109
Height = 320
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 16
ParentFont = False
TabOrder = 0
OnDblClick = LBxshowallDblClick
end
object BitBtn7: TBitBtn
Left = 204
Top = 3
Width = 40
Height = 20
Caption = #30830#23450
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = BitBtn7Click
end
object LBxshowsele: TListBox
Left = 128
Top = 43
Width = 109
Height = 320
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 16
ParentFont = False
TabOrder = 2
OnDblClick = LBxshowseleDblClick
end
end
object OpenDialog1: TOpenDialog
Left = 160
end
object ADOConn: TADOConnection
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source=H:\pro\' +
'excel\data\ExcelCtr.mdb;Persist Security Info=True'
LoginPrompt = False
Mode = cmShareDenyNone
Provider = 'Microsoft.Jet.OLEDB.4.0'
Left = 192
end
object Tblsystem: TADOTable
Connection = ADOConn
CursorType = ctStatic
TableName = 'Tsystem'
Left = 480
end
object DSsource: TDataSource
DataSet = Tblsource
Left = 184
Top = 56
end
object Tblsource: TADOTable
Connection = ADOConn
CursorType = ctStatic
TableName = 'Tsource'
Left = 172
Top = 56
end
object ADOComm: TADOCommand
Connection = ADOConn
Parameters = <>
Left = 236
end
object TblsourceField: TADOTable
Connection = ADOConn
CursorType = ctStatic
TableName = 'TsourceField'
Left = 108
Top = 56
end
object QryTmp: TADOQuery
Connection = ADOConn
Parameters = <>
Left = 268
end
object Tbltotal: TADOTable
Connection = ADOConn
CursorType = ctStatic
TableName = 'Ttotal'
Left = 286
Top = 35
end
object DStotal: TDataSource
DataSet = Tbltotal
Left = 296
Top = 40
end
end
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -