importaccountdata.dfm

产品信息系统!关于产品基础信息的系统!功能强大!

inherited frmImportAccountData: TfrmImportAccountData
  Left = 136
  Top = 94
  Width = 606
  Height = 427
  Caption = #24341#20837#25968#25454
  OldCreateOrder = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object DGAccountBook: TDBGrid
    Left = 0
    Top = 0
    Width = 249
    Height = 400
    Align = alLeft
    DataSource = dsAccountBook
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'aName'
        Title.Caption = #24080#22871#21517
        Width = 209
        Visible = True
      end>
  end
  object Panel1: TPanel
    Left = 256
    Top = 8
    Width = 337
    Height = 385
    TabOrder = 1
    object GroupBox1: TGroupBox
      Left = 16
      Top = 8
      Width = 313
      Height = 41
      Caption = #20135#21697#36164#26009
      TabOrder = 0
      object cbProduct: TCheckBox
        Left = 16
        Top = 16
        Width = 97
        Height = 17
        Caption = #20135#21697#36164#26009
        Checked = True
        State = cbChecked
        TabOrder = 0
        OnClick = cbProductClick
      end
      object cbStorage: TCheckBox
        Left = 112
        Top = 16
        Width = 97
        Height = 17
        Caption = #20179#24211#36164#26009
        Checked = True
        State = cbChecked
        TabOrder = 1
        OnClick = cbStorageClick
      end
      object cbStorageTotal: TCheckBox
        Left = 208
        Top = 16
        Width = 97
        Height = 17
        Caption = #20135#21697#24211#23384#37327
        Checked = True
        State = cbChecked
        TabOrder = 2
        OnClick = cbStorageTotalClick
      end
    end
    object GroupBox2: TGroupBox
      Left = 16
      Top = 58
      Width = 313
      Height = 68
      Caption = #24448#26469#21333#20301#36164#26009
      TabOrder = 1
      object cbArea: TCheckBox
        Left = 16
        Top = 18
        Width = 97
        Height = 17
        Caption = #22320#21306#36164#26009
        Checked = True
        State = cbChecked
        TabOrder = 0
        OnClick = cbAreaClick
      end
      object cbProvider: TCheckBox
        Left = 112
        Top = 18
        Width = 97
        Height = 17
        Caption = #20379#24212#21830#36164#26009
        Checked = True
        State = cbChecked
        TabOrder = 1
        OnClick = cbProviderClick
      end
      object cbCustomer: TCheckBox
        Left = 208
        Top = 18
        Width = 97
        Height = 17
        Caption = #23458#25143#36164#26009
        Checked = True
        State = cbChecked
        TabOrder = 2
        OnClick = cbCustomerClick
      end
      object cbAccountP: TCheckBox
        Left = 16
        Top = 42
        Width = 121
        Height = 17
        Caption = #20379#24212#21830#24080#30446#20313#39069
        Checked = True
        State = cbChecked
        TabOrder = 3
        OnClick = cbAccountPClick
      end
      object cbAccountC: TCheckBox
        Left = 179
        Top = 42
        Width = 97
        Height = 17
        Caption = #23458#25143#24080#30446#20313#39069
        Checked = True
        State = cbChecked
        TabOrder = 4
        OnClick = cbAccountCClick
      end
    end
    object GroupBox3: TGroupBox
      Left = 16
      Top = 136
      Width = 313
      Height = 46
      Caption = #20854#20182#22522#30784#36164#26009
      TabOrder = 2
      object cbDep: TCheckBox
        Left = 16
        Top = 18
        Width = 81
        Height = 17
        Caption = #37096#38376#36164#26009
        Checked = True
        State = cbChecked
        TabOrder = 0
        OnClick = cbDepClick
      end
      object cbEmployee: TCheckBox
        Left = 104
        Top = 18
        Width = 81
        Height = 17
        Caption = #21592#24037#36164#26009
        Checked = True
        State = cbChecked
        TabOrder = 1
        OnClick = cbEmployeeClick
      end
      object cbTool: TCheckBox
        Left = 192
        Top = 18
        Width = 113
        Height = 17
        Caption = #24037#20316#20013#24515#65292#36164#28304
        Checked = True
        State = cbChecked
        TabOrder = 2
      end
    end
    object GroupBox4: TGroupBox
      Left = 16
      Top = 192
      Width = 313
      Height = 57
      Caption = #23433#20840#26435#38480
      TabOrder = 3
      object cbGroup: TCheckBox
        Left = 16
        Top = 24
        Width = 97
        Height = 17
        Caption = #26435#38480#32452
        Checked = True
        State = cbChecked
        TabOrder = 0
        OnClick = cbGroupClick
      end
      object cbUser: TCheckBox
        Left = 200
        Top = 24
        Width = 97
        Height = 17
        Caption = #29992#25143
        Checked = True
        State = cbChecked
        TabOrder = 1
        OnClick = cbUserClick
      end
    end
    object BitBtn1: TBitBtn
      Left = 104
      Top = 344
      Width = 105
      Height = 25
      Caption = #24320#22987#24341#20837'[&I]'
      Default = True
      TabOrder = 4
      OnClick = BitBtn1Click
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333330000333333333333333333333333F33333333333
        00003333344333333333333333388F3333333333000033334224333333333333
        338338F3333333330000333422224333333333333833338F3333333300003342
        222224333333333383333338F3333333000034222A22224333333338F338F333
        8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
        33333338F83338F338F33333000033A33333A222433333338333338F338F3333
        0000333333333A222433333333333338F338F33300003333333333A222433333
        333333338F338F33000033333333333A222433333333333338F338F300003333
        33333333A222433333333333338F338F00003333333333333A22433333333333
        3338F38F000033333333333333A223333333333333338F830000333333333333
        333A333333333333333338330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object BitBtn2: TBitBtn
      Left = 224
      Top = 344
      Width = 105
      Height = 25
      Cancel = True
      Caption = #36864#20986'[&E]'
      TabOrder = 5
      OnClick = BitBtn2Click
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333333000033338833333333333333333F333333333333
        0000333911833333983333333388F333333F3333000033391118333911833333
        38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
        911118111118333338F3338F833338F3000033333911111111833333338F3338
        3333F8330000333333911111183333333338F333333F83330000333333311111
        8333333333338F3333383333000033333339111183333333333338F333833333
        00003333339111118333333333333833338F3333000033333911181118333333
        33338333338F333300003333911183911183333333383338F338F33300003333
        9118333911183333338F33838F338F33000033333913333391113333338FF833
        38F338F300003333333333333919333333388333338FFF830000333333333333
        3333333333333333333888330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object GroupBox5: TGroupBox
      Left = 16
      Top = 260
      Width = 313
      Height = 57
      Caption = #29983#20135#35745#21010#27169#26495
      TabOrder = 6
      object cbMps: TCheckBox
        Left = 16
        Top = 24
        Width = 97
        Height = 17
        Caption = #29983#20135#35745#21010#27169#26495
        Checked = True
        State = cbChecked
        TabOrder = 0
        OnClick = cbGroupClick
      end
    end
  end
  object dsAccountBook: TDataSource
    DataSet = QAccountBook
    Left = 24
    Top = 24
  end
  object QAccountBook: TADOQuery
    Connection = dmClient.adocnClothingSys
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'AccountID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'Select * from tAccount where aID<>:AccountID')
    Left = 24
    Top = 56
    object QAccountBookaId: TAutoIncField
      FieldName = 'aId'
      ReadOnly = True
    end
    object QAccountBookaName: TWideStringField
      FieldName = 'aName'
      Size = 50
    end
    object QAccountBookaDataBaseName: TWideStringField
      FieldName = 'aDataBaseName'
      Size = 50
    end
  end
  object spImportData: TADOStoredProc
    Connection = dmClient.adocnClothingSys
    ProcedureName = 'spInitializeImport;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@SDBName'
        Attributes = [paNullable]
        DataType = ftFixedChar
        Size = 50
        Value = Null
      end
      item
        Name = '@DDBName'
        Attributes = [paNullable]
        DataType = ftFixedChar
        Size = 50
        Value = Null
      end
      item
        Name = '@bProduct'
        Attributes = [paNullable]
        DataType = ftBoolean
        Value = Null
      end
      item
        Name = '@bStorage'
        Attributes = [paNullable]
        DataType = ftBoolean
        Value = Null
      end
      item
        Name = '@bStorageTotal'
        Attributes = [paNullable]
        DataType = ftBoolean
        Value = Null
      end
      item
        Name = '@bArea'
        Attributes = [paNullable]
        DataType = ftBoolean
        Value = Null
      end
      item
        Name = '@bProvider'
        Attributes = [paNullable]
        DataType = ftBoolean
        Value = Null
      end
      item
        Name = '@bAccountP'
        Attributes = [paNullable]
        DataType = ftBoolean
        Value = Null
      end
      item
        Name = '@bCustomer'
        Attributes = [paNullable]
        DataType = ftBoolean
        Value = Null
      end
      item
        Name = '@bAccountC'
        Attributes = [paNullable]
        DataType = ftBoolean
        Value = Null
      end
      item
        Name = '@bDep'
        Attributes = [paNullable]
        DataType = ftBoolean
        Value = Null
      end
      item
        Name = '@bEmployee'
        Attributes = [paNullable]
        DataType = ftBoolean
        Value = Null
      end
      item
        Name = '@bTool'
        Attributes = [paNullable]
        DataType = ftBoolean
        Value = Null
      end
      item
        Name = '@bGroup'
        Attributes = [paNullable]
        DataType = ftBoolean
        Value = Null
      end
      item
        Name = '@bUser'
        Attributes = [paNullable]
        DataType = ftBoolean
        Value = Null
      end
      item
        Name = '@bMPS'
        Attributes = [paNullable]
        DataType = ftBoolean
        Value = Null
      end>
    Left = 24
    Top = 88
  end
  object ADOStoredProc1: TADOStoredProc
    Connection = dmClient.adocnClothingSys
    ProcedureName = 'spInitializeImport;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@SDBName'
        Attributes = [paNullable]
        DataType = ftFixedChar
        Size = 50
        Value = Null
      end
      item
        Name = '@DDBName'
        Attributes = [paNullable]
        DataType = ftFixedChar
        Size = 50
        Value = Null
      end
      item
        Name = '@bProduct'
        Attributes = [paNullable]
        DataType = ftBoolean
        Value = Null
      end
      item
        Name = '@bStorage'
        Attributes = [paNullable]
        DataType = ftBoolean
        Value = Null
      end
      item
        Name = '@bStorageTotal'
        Attributes = [paNullable]
        DataType = ftBoolean
        Value = Null
      end
      item
        Name = '@bArea'
        Attributes = [paNullable]
        DataType = ftBoolean
        Value = Null
      end
      item
        Name = '@bProvider'
        Attributes = [paNullable]
        DataType = ftBoolean
        Value = Null
      end
      item
        Name = '@bAccountP'
        Attributes = [paNullable]
        DataType = ftBoolean
        Value = Null
      end
      item
        Name = '@bCustomer'
        Attributes = [paNullable]
        DataType = ftBoolean
        Value = Null
      end
      item
        Name = '@bAccountC'
        Attributes = [paNullable]
        DataType = ftBoolean
        Value = Null
      end
      item
        Name = '@bDep'
        Attributes = [paNullable]
        DataType = ftBoolean
        Value = Null
      end
      item
        Name = '@bEmployee'
        Attributes = [paNullable]
        DataType = ftBoolean
        Value = Null
      end
      item
        Name = '@bTool'
        Attributes = [paNullable]
        DataType = ftBoolean
        Value = Null
      end
      item
        Name = '@bGroup'
        Attributes = [paNullable]
        DataType = ftBoolean
        Value = Null
      end
      item
        Name = '@bUser'
        Attributes = [paNullable]
        DataType = ftBoolean
        Value = Null
      end
      item
        Name = '@bMPS'
        Attributes = [paNullable]
        DataType = ftBoolean
        Value = Null
      end>
    Left = 32
    Top = 136
  end
end