开源的网站整站程序,功能强大带采集系统.
源代码在线查看： sys100_01.dfm.svn-base
object Sys100_01Form: TSys100_01Form
Left = 191
Top = 60
HelpContext = 111
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = #24080#22871#31649#29702
ClientHeight = 416
ClientWidth = 595
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Pitch = fpFixed
Font.Style = []
KeyPreview = True
OldCreateOrder = True
Position = poMainFormCenter
OnClose = FormClose
OnCreate = FormCreate
OnKeyDown = FormKeyDown
PixelsPerInch = 96
TextHeight = 12
object Panel1: TPanel
Left = 0
Top = 43
Width = 595
Height = 37
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object Image1: TImage
Left = 2
Top = 2
Width = 591
Height = 33
Align = alClient
Stretch = True
end
end
object CoolBar1: TCoolBar
Left = 0
Top = 0
Width = 595
Height = 43
AutoSize = True
Bands = <
item
Control = ToolBar2
ImageIndex = -1
MinHeight = 39
Width = 591
end>
object ToolBar2: TToolBar
Left = 9
Top = 0
Width = 578
Height = 39
AutoSize = True
ButtonHeight = 39
ButtonWidth = 31
Caption = 'ToolBar2'
EdgeBorders = []
Flat = True
Images = SYSDM.imgBtn
ParentShowHint = False
ShowCaptions = True
ShowHint = True
TabOrder = 0
object tlbFirst: TToolButton
Left = 0
Top = 0
Action = ActFirst
AutoSize = True
end
object tlbPrior: TToolButton
Left = 35
Top = 0
Action = ActPrior
AutoSize = True
end
object tlbNext: TToolButton
Left = 70
Top = 0
Action = ActNext
AutoSize = True
end
object tlbLast: TToolButton
Left = 105
Top = 0
Action = ActLast
AutoSize = True
end
object ToolButton1: TToolButton
Left = 140
Top = 0
Width = 8
Caption = 'ToolButton1'
ImageIndex = 13
Style = tbsSeparator
end
object tlbInsert: TToolButton
Left = 148
Top = 0
Action = ActInsert
AutoSize = True
end
object tlbDelete: TToolButton
Left = 183
Top = 0
Action = ActDelete
AutoSize = True
end
object ToolButton2: TToolButton
Left = 218
Top = 0
Width = 8
Caption = 'ToolButton2'
ImageIndex = 13
Style = tbsSeparator
end
object tlbExit: TToolButton
Left = 226
Top = 0
Action = ActExit
AutoSize = True
end
end
end
object ScrollBox1: TScrollBox
Left = 0
Top = 80
Width = 595
Height = 336
Align = alClient
TabOrder = 2
object dxDBGrid1: TdxDBGrid
Left = 0
Top = 0
Width = 591
Height = 332
Bands = <
item
end>
DefaultLayout = True
HeaderPanelRowCount = 1
SummaryGroups =
SummarySeparator = ', '
Align = alClient
BorderStyle = bsNone
TabOrder = 0
DataSource = DataSource1
Filter.Criteria = {00000000}
HeaderColor = 15262169
HideFocusRect = True
LookAndFeel = lfUltraFlat
OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoUseBookmarks]
OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
object dxDBGrid1FNo: TdxDBGridMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
Visible = False
Width = 20
BandIndex = 0
RowIndex = 0
FieldName = 'FNo'
end
object dxDBGrid1FName: TdxDBGridColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 141
BandIndex = 0
RowIndex = 0
FieldName = 'FName'
end
object dxDBGrid1FCompany: TdxDBGridColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 178
BandIndex = 0
RowIndex = 0
FieldName = 'FCompany'
end
object dxDBGrid1FDate: TdxDBGridDateColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 112
BandIndex = 0
RowIndex = 0
FieldName = 'FDate'
end
object dxDBGrid1FPath: TdxDBGridColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 128
BandIndex = 0
RowIndex = 0
FieldName = 'FPath'
end
object dxDBGrid1FType: TdxDBGridMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
Visible = False
Width = 20
BandIndex = 0
RowIndex = 0
FieldName = 'FType'
end
object dxDBGrid1FHost: TdxDBGridColumn
DisableEditor = True
HeaderAlignment = taCenter
Visible = False
Width = 75
BandIndex = 0
RowIndex = 0
FieldName = 'FHost'
end
object dxDBGrid1FUser: TdxDBGridColumn
DisableEditor = True
HeaderAlignment = taCenter
Visible = False
Width = 75
BandIndex = 0
RowIndex = 0
FieldName = 'FUser'
end
object dxDBGrid1FPass: TdxDBGridColumn
DisableEditor = True
HeaderAlignment = taCenter
Visible = False
Width = 75
BandIndex = 0
RowIndex = 0
FieldName = 'FPass'
end
object dxDBGrid1FVersion: TdxDBGridColumn
DisableEditor = True
HeaderAlignment = taCenter
Visible = False
Width = 380
BandIndex = 0
RowIndex = 0
FieldName = 'FVersion'
end
end
end
object DataSource1: TDataSource
DataSet = qrySys000
Left = 84
Top = 168
end
object qrySys000: TADOQuery
CacheSize = 1000
Connection = SYSDM.SYSADOC
CursorType = ctStatic
AfterScroll = qrySys000AfterScroll
Parameters =
SQL.Strings = (
'select * from HwDatabase')
Left = 96
Top = 192
object qrySys000FNo: TAutoIncField
FieldName = 'FNo'
ReadOnly = True
Visible = False
end
object qrySys000FName: TWideStringField
DisplayLabel = #24080#22871#21517#31216
FieldName = 'FName'
Size = 50
end
object qrySys000FCompany: TWideStringField
DisplayLabel = #20844#21496#21517#31216
FieldName = 'FCompany'
Size = 50
end
object qrySys000FDate: TDateTimeField
DisplayLabel = #24314#24080#26085#26399
FieldName = 'FDate'
end
object qrySys000FPath: TWideStringField
DisplayLabel = #25968#25454#36335#24452
FieldName = 'FPath'
Size = 255
end
object qrySys000FType: TSmallintField
FieldName = 'FType'
Visible = False
end
object qrySys000FHost: TWideStringField
FieldName = 'FHost'
Visible = False
Size = 50
end
object qrySys000FUser: TWideStringField
FieldName = 'FUser'
Visible = False
Size = 50
end
object qrySys000FPass: TWideStringField
FieldName = 'FPass'
Visible = False
Size = 50
end
object qrySys000FVersion: TWideStringField
FieldName = 'FVersion'
Visible = False
Size = 255
end
end
object ActionList1: TActionList
Images = SYSDM.imgBtn
Left = 368
Top = 72
object ActFirst: TAction
Caption = #26368#21069
Hint = #31227#21040#31532#19968#26465#35760#24405
ImageIndex = 0
ShortCut = 32838
OnExecute = ActFirstExecute
end
object ActPrior: TAction
Caption = #19978#31227
Hint = #31227#21040#19978#19968#26465#35760#24405
ImageIndex = 1
ShortCut = 32848
OnExecute = ActPriorExecute
end
object ActNext: TAction
Caption = #19979#31227
Hint = #31227#21040#19979#19968#26465#35760#24405
ImageIndex = 2
ShortCut = 32846
OnExecute = ActNextExecute
end
object ActLast: TAction
Caption = #26368#21518
Hint = #31227#21040#26368#21518#19968#26465#35760#24405
ImageIndex = 3
ShortCut = 32844
OnExecute = ActLastExecute
end
object ActInsert: TAction
Caption = #26032#22686
Hint = #26032#22686#19968#26465#35760#24405
ImageIndex = 4
ShortCut = 32833
OnExecute = ActInsertExecute
end
object ActDelete: TAction
Caption = #21024#38500
Hint = #21024#38500#24403#21069#35760#24405
ImageIndex = 6
ShortCut = 32836
OnExecute = ActDeleteExecute
end
object ActExit: TAction
Caption = #36864#20986
Hint = #20851#38381#24403#21069#31383#21475
ImageIndex = 15
ShortCut = 32856
OnExecute = ActExitExecute
end
end
end
|
|
相关资源 |
|
-
开源的网站整站程序,功能强大带采集系统.
-
内容丰富的太阳能网站整站程序,适合制作中小企业网站.
-
这个东东叫<掌中无限>的WAP整站程序,但是用不鸟的..
如果你们可以.改良 ..改良...弄好它..就好啦!
-
网站整站程序,适合个人网站制作,不适合商业用途
-
燃点真情的WAP整站程序,WAP建站系统,,更多WAP源码再登陆http://xywap.cn
-
烈火之家整站程序 本程序集商业娱乐一体,本来是给自己用的但是我的国外空间支持不够好,就送给大家了. 1. 栏目包括 最新信息,下载,影音娱乐,作品展示,定制业务,支持服务,留言,关于本站. 2.管理员
-
这个也是一个功能强大的企业整站的ASP源代码
-
资源收录分类信息发布整站程序系统
|
