maind.dfm

针对商品与仓库存储商品等信息的管理及维护的管理软件。它能够辅助仓库管理人员对供应商信息、商品基本信息以及商品入库、出库、库存信息查询等进行控制管理

object MainDFrm: TMainDFrm
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 265
  Top = 271
  Height = 311
  Width = 326
  object Database1: TDatabase
    AliasName = 'mydata'
    DatabaseName = 'main'
    LoginPrompt = False
    SessionName = 'Default'
    Left = 16
    Top = 8
  end
  object dsArcinfo: TDataSource
    Left = 16
    Top = 64
  end
  object dbUser: TDataSource
    DataSet = query1
    Left = 240
    Top = 8
  end
  object query1: TQuery
    CachedUpdates = True
    DatabaseName = 'main'
    SQL.Strings = (
      'Select * from Userinfo')
    UpdateObject = Uquery1
    Left = 192
    Top = 8
    object query1uID: TStringField
      FieldName = 'uID'
      Origin = 'MAIN.Userinfo.uID'
      Size = 8
    end
    object query1uUser: TStringField
      FieldName = 'uUser'
      Origin = 'MAIN.Userinfo.uUser'
      Size = 8
    end
    object query1Passwd: TStringField
      FieldName = 'Passwd'
      Origin = 'MAIN.Userinfo.Passwd'
      Size = 8
    end
    object query1CreateD: TStringField
      FieldName = 'CreateD'
      Origin = 'MAIN.Userinfo.CreateD'
      Size = 12
    end
  end
  object Uquery1: TUpdateSQL
    Left = 280
    Top = 8
  end
  object qutil: TQuery
    CachedUpdates = True
    DatabaseName = 'main'
    RequestLive = True
    SQL.Strings = (
      'select * from Arcinfo a,Classinfo b'
      'where a.cID=b.cID'
      'order by bID,a.cID;')
    UpdateObject = Uqutil
    Left = 3
    Top = 120
  end
  object dbutil: TDataSource
    DataSet = qutil
    Left = 35
    Top = 120
  end
  object dbhistory: TDataSource
    DataSet = tbhistory
    Left = 136
    Top = 8
  end
  object Qgrant: TQuery
    CachedUpdates = True
    DatabaseName = 'main'
    Left = 64
    Top = 64
  end
  object tbhistory: TTable
    DatabaseName = 'main'
    TableName = 'Logintb'
    Left = 80
    Top = 8
  end
  object Uqutil: TUpdateSQL
    Left = 64
    Top = 120
  end
  object Qclass: TQuery
    CachedUpdates = True
    DatabaseName = 'main'
    SQL.Strings = (
      'select * from'
      'regdate '
      'order by bID;')
    UpdateObject = UQclass
    Top = 208
  end
  object UQclass: TUpdateSQL
    Left = 64
    Top = 208
  end
  object dbclass: TDataSource
    DataSet = Qclass
    Left = 32
    Top = 208
  end
end