updatesd3000.dfm

胜天财务进销存2003源代码,SQLSERVER版,目前最完整的财务进销存系统.

inherited frmUpdateSD3000: TfrmUpdateSD3000
  Left = 156
  Top = 110
  Caption = '导入数据库'
  ClientHeight = 288
  ClientWidth = 420
  PixelsPerInch = 96
  TextHeight = 12
  object PageControl: TSeSkinPageControl [0]
    Left = 25
    Top = 16
    Width = 368
    Height = 222
    Blend = False
    BlendValue = 150
    Transparent = True
    TabOrder = 0
    TabStop = True
    Tabs.Strings = (
      '导入速达数据'
      '导入用友数据'
      '导入管家婆数据')
    SkinEngine = frmData.SeSkinEngine
    SkinObject = 'Tabs'
    object TabSD3000: TKsCustomTabSheet
      Caption = '导入速达数据'
      ImageIndex = 0
      PageIndex = 0
      PageVisible = True
      object SeSkinLabel1: TSeSkinLabel
        Left = 32
        Top = 140
        Width = 72
        Height = 12
        Blend = False
        BlendValue = 150
        Transparent = True
        Caption = '数据库路径：'
        Color = clBtnFace
        ParentColor = False
        SkinObject = 'Label'
      end
      object SeSkinLabel2: TSeSkinLabel
        Left = 32
        Top = 32
        Width = 282
        Height = 12
        Blend = False
        BlendValue = 150
        Transparent = True
        Caption = '此功能将<速达3000>、<速达3000Pro>等多种速达版本'
        Color = clBtnFace
        ParentColor = False
        SkinObject = 'Label'
      end
      object SeSkinLabel3: TSeSkinLabel
        Left = 32
        Top = 56
        Width = 282
        Height = 12
        Blend = False
        BlendValue = 150
        Transparent = True
        Caption = '的基础数据升级到本系统中,数据库路径必需为速达目'
        Color = clBtnFace
        ParentColor = False
        SkinObject = 'Label'
      end
      object SeSkinLabel4: TSeSkinLabel
        Left = 32
        Top = 80
        Width = 192
        Height = 12
        Blend = False
        BlendValue = 150
        Transparent = True
        Caption = '录里的DATA目录下的速达账套文件。'
        Color = clBtnFace
        ParentColor = False
        SkinObject = 'Label'
      end
      object edtSDData: TdxButtonEdit
        Left = 106
        Top = 136
        Width = 205
        TabOrder = 0
        ReadOnly = False
        StyleController = frmData.StyleController
        Buttons = <
          item
            Default = True
          end>
        ClickKey = 13
        OnButtonClick = edtSDDataButtonClick
        StoredValues = 64
        ExistButtons = True
      end
    end
    object KsCustomTabSheet3: TKsCustomTabSheet
      Caption = '导入用友数据'
      ImageIndex = 0
      PageIndex = 1
      PageVisible = True
      object SeSkinLabel15: TSeSkinLabel
        Left = 32
        Top = 140
        Width = 72
        Height = 12
        Blend = False
        BlendValue = 150
        Transparent = True
        Caption = '数据库路径：'
        Color = clBtnFace
        ParentColor = False
        SkinObject = 'Label'
      end
      object SeSkinLabel12: TSeSkinLabel
        Left = 32
        Top = 24
        Width = 240
        Height = 12
        Blend = False
        BlendValue = 150
        Transparent = True
        Caption = '此功能将用友财务UFERP-M8系列的基础数据，'
        Color = clBtnFace
        ParentColor = False
        SkinObject = 'Label'
      end
      object SeSkinLabel13: TSeSkinLabel
        Left = 32
        Top = 48
        Width = 96
        Height = 12
        Blend = False
        BlendValue = 150
        Transparent = True
        Caption = '升级到本系统中。'
        Color = clBtnFace
        ParentColor = False
        SkinObject = 'Label'
      end
      object SeSkinLabel14: TSeSkinLabel
        Left = 32
        Top = 72
        Width = 216
        Height = 12
        Blend = False
        BlendValue = 150
        Transparent = True
        Caption = '数据路径必须为用友目录下ZT？目录下的'
        Color = clBtnFace
        ParentColor = False
        SkinObject = 'Label'
      end
      object SeSkinLabel16: TSeSkinLabel
        Left = 32
        Top = 96
        Width = 96
        Height = 12
        Blend = False
        BlendValue = 150
        Transparent = True
        Caption = 'UFData.mdb文件。'
        Color = clBtnFace
        ParentColor = False
        SkinObject = 'Label'
      end
      object edtYYData: TdxButtonEdit
        Left = 106
        Top = 136
        Width = 205
        TabOrder = 0
        ReadOnly = False
        StyleController = frmData.StyleController
        Buttons = <
          item
            Default = True
          end>
        ClickKey = 13
        OnButtonClick = edtYYDataButtonClick
        StoredValues = 64
        ExistButtons = True
      end
    end
    object KsCustomTabSheet2: TKsCustomTabSheet
      Caption = '导入管家婆数据'
      ImageIndex = 0
      PageIndex = 2
      PageVisible = True
      object SeSkinLabel5: TSeSkinLabel
        Left = 24
        Top = 167
        Width = 60
        Height = 12
        Blend = False
        BlendValue = 150
        Transparent = True
        Caption = '数据库名：'
        Color = clBtnFace
        ParentColor = False
        SkinObject = 'Label'
      end
      object SeSkinLabel6: TSeSkinLabel
        Left = 24
        Top = 80
        Width = 60
        Height = 12
        Blend = False
        BlendValue = 150
        Transparent = True
        Caption = '服务器名：'
        Color = clBtnFace
        ParentColor = False
        SkinObject = 'Label'
      end
      object SeSkinLabel7: TSeSkinLabel
        Left = 18
        Top = 109
        Width = 66
        Height = 12
        Blend = False
        BlendValue = 150
        Transparent = True
        Caption = 'SQL用户名：'
        Color = clBtnFace
        ParentColor = False
        SkinObject = 'Label'
      end
      object SeSkinLabel8: TSeSkinLabel
        Left = 30
        Top = 138
        Width = 54
        Height = 12
        Blend = False
        BlendValue = 150
        Transparent = True
        Caption = 'SQL密码：'
        Color = clBtnFace
        ParentColor = False
        SkinObject = 'Label'
      end
      object SeSkinLabel9: TSeSkinLabel
        Left = 20
        Top = 8
        Width = 264
        Height = 12
        Blend = False
        BlendValue = 150
        Transparent = True
        Caption = '此功能将管家婆辉煌版8.X、标准版3.X的基础数据'
        Color = clBtnFace
        ParentColor = False
        SkinObject = 'Label'
      end
      object SeSkinLabel10: TSeSkinLabel
        Left = 20
        Top = 28
        Width = 96
        Height = 12
        Blend = False
        BlendValue = 150
        Transparent = True
        Caption = '升级到本系统中。'
        Color = clBtnFace
        ParentColor = False
        SkinObject = 'Label'
      end
      object SeSkinLabel11: TSeSkinLabel
        Left = 20
        Top = 48
        Width = 294
        Height = 12
        Blend = False
        BlendValue = 150
        Transparent = True
        Caption = '请填入连接SQLServer数据库所必需的参数，点击连接。'
        Color = clBtnFace
        ParentColor = False
        SkinObject = 'Label'
      end
      object edtServeName: TdxEdit
        Left = 89
        Top = 75
        Width = 145
        TabOrder = 0
        StyleController = frmData.StyleController
      end
      object edtLoginName: TdxEdit
        Left = 89
        Top = 104
        Width = 145
        TabOrder = 1
        StyleController = frmData.StyleController
      end
      object edtLoginPass: TdxEdit
        Left = 89
        Top = 133
        Width = 145
        TabOrder = 2
        StyleController = frmData.StyleController
      end
      object bbLinkServer: TSeSkinButton
        Left = 265
        Top = 160
        Width = 72
        Height = 23
        Blend = False
        BlendValue = 150
        Transparent = True
        OnClick = bbLinkServerClick
        BlackAndWhiteGlyph = False
        Caption = '连 接'
        Default = False
        TabOrder = 3
        ShowCaption = True
        ShowGlyph = True
        SkinEngine = frmData.SeSkinEngine
        SkinObject = 'Button'
      end
      object cbxSQLDB: TdxPickEdit
        Left = 89
        Top = 162
        Width = 145
        TabOrder = 4
        StyleController = frmData.StyleController
        DropDownListStyle = True
      end
    end
  end
  object bbOk: TSeSkinButton [1]
    Left = 222
    Top = 254
    Width = 77
    Height = 24
    Blend = False
    BlendValue = 150
    Transparent = True
    OnClick = bbOkClick
    BlackAndWhiteGlyph = False
    Caption = '确 定(&Y)'
    Default = False
    Glyph.Data = {
      42020000424D4202000000000000420000002800000010000000100000000100
      1000030000000002000000000000000000000000000000000000007C0000E003
      00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
      1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
      1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C007C00001F7C1F7C1F7C1F7C1F7C1F7C
      1F7C1F7C1F7C1F7C1F7C1F7C1F7C007C007C007C00001F7C1F7C1F7C1F7C1F7C
      1F7C1F7C1F7C1F7C1F7C1F7C1F7C007C007C007C00001F7C1F7C1F7C1F7C1F7C
      1F7C1F7C1F7C1F7C1F7C1F7C007C007C007C007C007C00001F7C1F7C1F7C1F7C
      1F7C1F7C1F7C1F7C1F7C007C007C007C007C007C007C00001F7C1F7C1F7C1F7C
      1F7C1F7C1F7C1F7CEF3D007C007C00001F7C007C007C007C00001F7C1F7C1F7C
      1F7C1F7C1F7CEF3D007C00001F7C1F7C1F7C1F7C007C007C00001F7C1F7C1F7C
      1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C007C007C007C00001F7C1F7C
      1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C007C007C00001F7C1F7C
      1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C007C007C00001F7C
      1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7CEF3D007C0000
      1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7CEF3D007C
      00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
      007C007C00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
      1F7C1F7C1F7C}
    TabOrder = 1
    ShowCaption = True
    ShowGlyph = True
    SkinEngine = frmData.SeSkinEngine
    SkinObject = 'Button'
  end
  object bbNo: TSeSkinButton [2]
    Left = 315
    Top = 254
    Width = 77
    Height = 24
    Blend = False
    BlendValue = 150
    Transparent = True
    OnClick = bbNoClick
    BlackAndWhiteGlyph = False
    Caption = '退 出(&X)'
    Default = False
    Glyph.Data = {
      42020000424D4202000000000000420000002800000010000000100000000100
      1000030000000002000000000000000000000000000000000000007C0000E003
      00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
      1F7C1F7C1F7C1F7C1F7C1F7C00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
      1F7C00001F7C1F7C1F7C0000007C00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
      1F7C007C1F7C1F7C1F7C007C007C007C00001F7C1F7C1F7C1F7C1F7C1F7C1F7C
      00001F7C1F7C1F7C1F7C007C007C007C007C1F7C1F7C1F7C1F7C1F7C1F7C0000
      007C1F7C1F7C1F7C1F7C1F7C007C007C007C00001F7C1F7C1F7C1F7C0000007C
      1F7C1F7C1F7C1F7C1F7C1F7C1F7C007C007C007C00001F7C1F7C0000007C007C
      1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C007C007C007C00000000007C007C1F7C
      1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C007C007C007C007C007C1F7C1F7C
      1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000007C007C007C00001F7C1F7C
      1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000007C007C007C007C007C00001F7C
      1F7C1F7C1F7C1F7C1F7C1F7C00000000007C007C007C1F7C1F7C007C007C0000
      1F7C1F7C1F7C1F7C1F7C0000007C007C007C007C1F7C1F7C1F7C1F7C007C007C
      00001F7C1F7C1F7C1F7C007C007C007C007C1F7C1F7C1F7C1F7C1F7C1F7C007C
      007C00001F7C1F7C1F7C007C007C007C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
      1F7C007C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
      1F7C1F7C1F7C}
    TabOrder = 2
    ShowCaption = True
    ShowGlyph = True
    SkinEngine = frmData.SeSkinEngine
    SkinObject = 'Button'
  end
  object OpenDlg: TOpenDialog
    Left = 40
  end
  object IBDatabase1: TIBDatabase
    Params.Strings = (
      'user_name=sysdba'
      'password=masterkey')
    LoginPrompt = False
    DefaultTransaction = IBTransaction1
    IdleTimer = 0
    SQLDialect = 1
    TraceFlags = []
    Left = 432
    Top = 8
  end
  object IBTransaction1: TIBTransaction
    Active = False
    AutoStopAction = saNone
    Left = 460
    Top = 8
  end
  object IBDataSet1: TIBDataSet
    Database = IBDatabase1
    Transaction = IBTransaction1
    BufferChunks = 1000
    CachedUpdates = False
    Left = 488
    Top = 8
  end
  object AdoDataSet: TADODataSet
    Connection = frmData.ADOConnet
    CursorType = ctStatic
    CommandText = 'select * from BaseInfo'
    FieldDefs = <
      item
        Name = 'ID'
        Attributes = [faReadonly, faFixed]
        DataType = ftAutoInc
      end
      item
        Name = 'TreeID'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'TreeParent'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'Name1'
        DataType = ftWideString
        Size = 100
      end
      item
        Name = 'Name2'
        DataType = ftWideString
        Size = 100
      end
      item
        Name = 'Name3'
        DataType = ftWideString
        Size = 100
      end
      item
        Name = 'Mode'
        Attributes = [faFixed]
        DataType = ftSmallint
      end>
    Parameters = <>
    StoreDefs = True
    Left = 516
    Top = 8
  end
  object SQLADOConnet: TADOConnection
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 432
    Top = 40
  end
  object SQLDataSet: TADODataSet
    Connection = SQLADOConnet
    CursorType = ctStatic
    LockType = ltReadOnly
    Parameters = <>
    Left = 460
    Top = 40
  end
end