开源的网站整站程序,功能强大带采集系统.

源代码在线查看: upgrade.dfm.svn-base

软件大小: 2475 K
上传用户: a83133937
关键词: 开源 网站 程序 采集系统
下载地址: 免注册下载 普通下载 VIP

相关代码

				object UpgradeForm: TUpgradeForm
				  Left = 192
				  Top = 107
				  BorderIcons = [biSystemMenu]
				  BorderStyle = bsSingle
				  Caption = #25968#25454#24211#21319#32423
				  ClientHeight = 216
				  ClientWidth = 425
				  Color = clBtnFace
				  Font.Charset = ANSI_CHARSET
				  Font.Color = clWindowText
				  Font.Height = -12
				  Font.Name = #23435#20307
				  Font.Style = []
				  KeyPreview = True
				  OldCreateOrder = False
				  Position = poScreenCenter
				  OnClose = FormClose
				  OnCreate = FormCreate
				  PixelsPerInch = 96
				  TextHeight = 12
				  object pnlStep2: TPanel
				    Left = 8
				    Top = 8
				    Width = 409
				    Height = 169
				    BevelInner = bvRaised
				    BevelOuter = bvLowered
				    TabOrder = 1
				    object lblProcess1: TLabel
				      Left = 32
				      Top = 40
				      Width = 345
				      Height = 12
				      AutoSize = False
				      Caption = #35814#32454#36827#24230
				    end
				    object lblProcess2: TLabel
				      Left = 32
				      Top = 88
				      Width = 345
				      Height = 12
				      AutoSize = False
				      Caption = #24635#30340#36827#24230
				    end
				    object ProgressBar1: TProgressBar
				      Left = 32
				      Top = 56
				      Width = 345
				      Height = 17
				      Min = 0
				      Max = 100
				      TabOrder = 0
				    end
				    object ProgressBar2: TProgressBar
				      Left = 32
				      Top = 104
				      Width = 345
				      Height = 16
				      Min = 0
				      Max = 100
				      TabOrder = 1
				    end
				  end
				  object pnlStep1: TPanel
				    Left = 8
				    Top = 8
				    Width = 409
				    Height = 169
				    BevelInner = bvRaised
				    BevelOuter = bvLowered
				    TabOrder = 0
				    object lblSystem: TLabel
				      Left = 24
				      Top = 16
				      Width = 84
				      Height = 12
				      Caption = #31995#32479#25968#25454#24211#25991#20214
				    end
				    object lblDatabase: TLabel
				      Left = 24
				      Top = 64
				      Width = 84
				      Height = 12
				      Caption = #25968#25454#24211#35774#35745#25991#20214
				    end
				    object sbSystem: TSpeedButton
				      Left = 362
				      Top = 32
				      Width = 23
				      Height = 22
				      Flat = True
				      Glyph.Data = {
				        62030000424D6203000000000000420000002800000014000000140000000100
				        1000030000002003000000000000000000000000000000000000007C0000E003
				        00001F000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
				        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
				        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
				        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
				        FF7FFF7FFF7FFF7FFF7F000000000000FF7FFF7FFF7FFF7FFF7F000000000000
				        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000018630000FF7FFF7FFF7FFF7F
				        FF7F000018630000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000
				        1042FF7FFF7FFF7F1042000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
				        FF7F00000000000000000000000000000000000000000000FF7FFF7FFF7FFF7F
				        FF7F170017001700170000001863000000000000000018630000000000000000
				        FF7FFF7FFF7FFF7FFF7F1700FF7FFF7FFF7F0000186300000000000000001863
				        0000000000000000FF7FFF7FFF7FFF7FFF7F1700FF7F10421042000000000000
				        00000000000000000000000000000000FF7FFF7FFF7FFF7FFF7F1700FF7FFF7F
				        FF7FFF7F000000000000000018630000000000000000FF7FFF7FFF7FFF7FFF7F
				        FF7F1700FF7F10421042FF7F10420000000010421042FF7F00000000FF7FFF7F
				        FF7FFF7FFF7FFF7FFF7F1700FF7FFF7FFF7FFF7FFF7F00000000FF7FFF7FFF7F
				        00000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F1700FF7F10421042FF7F10420000
				        000010421042FF7F00000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F1700FF7FFF7F
				        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F1700FF7FFF7FFF7FFF7FFF7FFF7FFF7F
				        FF7F170017001700170017001700170017001700170017001700FF7FFF7FFF7F
				        FF7FFF7FFF7FFF7FFF7F17001863170017001863170017001863170017001863
				        1700FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F1700170017001700170017001700
				        17001700170017001700FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
				        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
				        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
				        FF7FFF7FFF7F}
				      OnClick = sbSystemClick
				    end
				    object sbDatabase: TSpeedButton
				      Left = 362
				      Top = 80
				      Width = 23
				      Height = 22
				      Flat = True
				      Glyph.Data = {
				        62030000424D6203000000000000420000002800000014000000140000000100
				        1000030000002003000000000000000000000000000000000000007C0000E003
				        00001F000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
				        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
				        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
				        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
				        FF7FFF7FFF7FFF7FFF7F000000000000FF7FFF7FFF7FFF7FFF7F000000000000
				        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000018630000FF7FFF7FFF7FFF7F
				        FF7F000018630000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000
				        1042FF7FFF7FFF7F1042000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
				        FF7F00000000000000000000000000000000000000000000FF7FFF7FFF7FFF7F
				        FF7F170017001700170000001863000000000000000018630000000000000000
				        FF7FFF7FFF7FFF7FFF7F1700FF7FFF7FFF7F0000186300000000000000001863
				        0000000000000000FF7FFF7FFF7FFF7FFF7F1700FF7F10421042000000000000
				        00000000000000000000000000000000FF7FFF7FFF7FFF7FFF7F1700FF7FFF7F
				        FF7FFF7F000000000000000018630000000000000000FF7FFF7FFF7FFF7FFF7F
				        FF7F1700FF7F10421042FF7F10420000000010421042FF7F00000000FF7FFF7F
				        FF7FFF7FFF7FFF7FFF7F1700FF7FFF7FFF7FFF7FFF7F00000000FF7FFF7FFF7F
				        00000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F1700FF7F10421042FF7F10420000
				        000010421042FF7F00000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F1700FF7FFF7F
				        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F1700FF7FFF7FFF7FFF7FFF7FFF7FFF7F
				        FF7F170017001700170017001700170017001700170017001700FF7FFF7FFF7F
				        FF7FFF7FFF7FFF7FFF7F17001863170017001863170017001863170017001863
				        1700FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F1700170017001700170017001700
				        17001700170017001700FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
				        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
				        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
				        FF7FFF7FFF7F}
				      OnClick = sbDatabaseClick
				    end
				    object sbBackup: TSpeedButton
				      Left = 362
				      Top = 128
				      Width = 23
				      Height = 22
				      Enabled = False
				      Flat = True
				      Glyph.Data = {
				        4E010000424D4E01000000000000760000002800000012000000120000000100
				        040000000000D800000000000000000000001000000010000000000000000000
				        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
				        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
				        3333330000003333333333333333330000003333333333333333330000003800
				        000000000003330000003007B7B7B7B7B7B03300000030F07B7B7B7B7B703300
				        000030B0B7B7B7B7B7B70300000030FB0B7B7B7B7B7B0300000030BF07B7B7B7
				        B7B7B000000030FBF000007B7B7B7000000030BFBFBFBF0000000300000030FB
				        FBFBFBFBFB033300000030BFBFBFBFBFBF033300000030FBFBF0000000333300
				        0000330000033333333333000000333333333333333333000000333333333333
				        333333000000333333333333333333000000}
				      OnClick = sbBackupClick
				    end
				    object edtSystem: TEdit
				      Left = 24
				      Top = 32
				      Width = 337
				      Height = 20
				      TabOrder = 0
				    end
				    object edtDatabase: TEdit
				      Left = 24
				      Top = 80
				      Width = 337
				      Height = 20
				      TabOrder = 1
				    end
				    object cbBackup: TCheckBox
				      Left = 24
				      Top = 112
				      Width = 145
				      Height = 17
				      Caption = #21319#32423#21069#22791#20221#26087#30340#25991#20214
				      TabOrder = 2
				      OnClick = cbBackupClick
				    end
				    object edtBackup: TEdit
				      Left = 24
				      Top = 128
				      Width = 337
				      Height = 20
				      Color = clBtnFace
				      Enabled = False
				      TabOrder = 3
				    end
				  end
				  object bbtnOk: TBitBtn
				    Left = 248
				    Top = 184
				    Width = 75
				    Height = 25
				    Caption = #30830#23450'(&O)'
				    Default = True
				    TabOrder = 2
				    OnClick = bbtnOkClick
				  end
				  object bbtnExit: TBitBtn
				    Left = 328
				    Top = 184
				    Width = 75
				    Height = 25
				    Caption = #36864#20986'(&X)'
				    TabOrder = 3
				    OnClick = bbtnExitClick
				  end
				  object OpenDialog1: TOpenDialog
				    Left = 24
				    Top = 184
				  end
				  object DDMADOC: TADOConnection
				    LoginPrompt = False
				    Left = 192
				    Top = 88
				  end
				  object qryDDM: TADOQuery
				    Connection = DDMADOC
				    Parameters = 
				    Left = 224
				    Top = 88
				  end
				  object qryDatabase: TADOQuery
				    Connection = SYSADOC
				    Parameters = 
				    SQL.Strings = (
				      'select * from HwDatabase')
				    Left = 152
				    Top = 184
				  end
				  object qryQuery: TADOQuery
				    Connection = ACCTADOC
				    Parameters = 
				    Left = 224
				    Top = 136
				  end
				  object SYSADOC: TADOConnection
				    ConnectionString = 
				      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
				      'al Catalog=HwERP5;Data Source=.'
				    LoginPrompt = False
				    Provider = 'SQLOLEDB.1'
				    Left = 112
				    Top = 184
				  end
				  object adsDatabase: TADODataSet
				    Connection = SYSADOC
				    CursorType = ctStatic
				    LockType = ltBatchOptimistic
				    FieldDefs = <
				      item
				        Name = 'FName'
				        DataType = ftString
				        Size = 50
				      end
				      item
				        Name = 'FCompany'
				        DataType = ftString
				        Size = 50
				      end
				      item
				        Name = 'FDate'
				        Attributes = [faFixed]
				        DataType = ftDateTime
				      end
				      item
				        Name = 'FPath'
				        DataType = ftString
				        Size = 255
				      end
				      item
				        Name = 'FType'
				        Attributes = [faFixed]
				        DataType = ftSmallint
				      end
				      item
				        Name = 'FHost'
				        DataType = ftString
				        Size = 50
				      end
				      item
				        Name = 'FUser'
				        DataType = ftString
				        Size = 50
				      end
				      item
				        Name = 'FPass'
				        DataType = ftString
				        Size = 50
				      end
				      item
				        Name = 'FVersion'
				        DataType = ftString
				        Size = 255
				      end>
				    Parameters = 
				    StoreDefs = True
				    Left = 72
				    Top = 184
				  end
				  object ACCTADOC: TADOConnection
				    LoginPrompt = False
				    Left = 192
				    Top = 136
				  end
				end
							

相关资源