udm.dfm

非长好的DELPHI办公系统 直接可以用

object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 376
  Top = 100
  Height = 298
  Width = 296
  object adoCon: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=goods.mdb;Persist S' +
      'ecurity Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 48
    Top = 16
  end
  object adqGoods: TADOQuery
    Connection = adoCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from goodsTable')
    Left = 128
    Top = 16
  end
  object adqType: TADOQuery
    Connection = adoCon
    Parameters = <>
    SQL.Strings = (
      'select * from typeTable')
    Left = 56
    Top = 88
    object adqTypeID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object adqTypebh: TWideStringField
      FieldName = 'bh'
      Size = 10
    end
    object adqTypename: TWideStringField
      FieldName = 'name'
      Size = 50
    end
  end
  object adqTemp: TADOQuery
    Connection = adoCon
    Parameters = <>
    Left = 120
    Top = 88
  end
  object adqImport: TADOQuery
    Connection = adoCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from importTable')
    Left = 64
    Top = 168
  end
  object adqExport: TADOQuery
    Connection = adoCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from exportTable')
    Left = 136
    Top = 176
  end
  object dsImport: TDataSource
    DataSet = adqImport
    Left = 200
    Top = 72
  end
  object dsExport: TDataSource
    DataSet = adqExport
    Left = 192
    Top = 17
  end
end