dm_unit.dfm

仓库管理系统 貌似是ACCESS的数据库

object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 229
  Top = 126
  Height = 595
  Width = 636
  object SQLConn: TSQLConnection
    ConnectionName = 'wms'
    DriverName = 'Interbase'
    GetDriverFunc = 'getSQLDriverINTERBASE'
    LibraryName = 'dbexpint.dll'
    LoginPrompt = False
    Params.Strings = (
      'DriverName=Interbase'
      'Database=..\Data\WMS.GDB'
      'RoleName=RoleName'
      'User_Name=sysdba'
      'Password=masterkey'
      'ServerCharSet='
      'SQLDialect=1'
      'BlobSize=-1'
      'CommitRetain=False'
      'WaitOnLocks=True'
      'ErrorResourceFile='
      'LocaleCode=0000'
      'Interbase TransIsolation=ReadCommited'
      'Trim Char=False')
    VendorLib = 'gds32.dll'
    Left = 24
    Top = 24
  end
  object sdsOperator: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConn
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 88
    Top = 72
  end
  object sdsUsers: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConn
    DataSet.CommandText = 'select OPERATORID, OPERATORNAME, OPERATORPWD from WMS_OPERATOR'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 88
    Top = 117
  end
  object dsUsers: TDataSource
    DataSet = sdsUsers
    Left = 144
    Top = 117
  end
  object sdsDB: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConn
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 88
    Top = 24
  end
  object sdsMaterialType: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConn
    DataSet.CommandText = 
      'select MATERIALTYPEID, MATERIALTYPE from WMS_MATERIALTYPE'#13#10'order' +
      ' by  MATERIALTYPEID'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 88
    Top = 172
  end
  object sdsUpdateDB: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConn
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 144
    Top = 24
  end
  object dsMaterialType: TDataSource
    DataSet = sdsMaterialType
    Left = 144
    Top = 172
  end
  object sdsMaxID: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConn
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 296
    Top = 24
  end
  object sdsMaterialInfo: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConn
    DataSet.CommandText = 
      'select MATERIALID, MATERIALNAME, MATERIALSPELL, MATERIALMODEL, M' +
      'ATERIALSPECS, MATERIALUNIT, MATERIALPRICE, MATERIALTYPE, REMARK ' +
      'from WMS_MATERIALINFO'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 88
    Top = 224
  end
  object dsMaterialInfo: TDataSource
    DataSet = sdsMaterialInfo
    Left = 144
    Top = 224
  end
  object dsWareInfo: TDataSource
    DataSet = sdsWareInfo
    Left = 144
    Top = 288
  end
  object sdsWareInfo: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConn
    DataSet.CommandText = 
      'select WAREHOUSEID, WAREHOUSENAME, WAREHOUSESPELL, WAREHOUSEADDR' +
      ', WAREHOUSEMAN, REMARK from WMS_WAREINFO'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 88
    Top = 288
  end
  object sdsVerdor: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConn
    DataSet.CommandText = 
      'select VENDORID, VENDORNAME, VENDORSPELL, LINKMAN, HANDSET, TEL,' +
      ' FAX, REMARK from WMS_VENDOR'#13#10'where VENDORID like'#39'GYS%'#39
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 87
    Top = 344
  end
  object dsVendor: TDataSource
    DataSet = sdsVerdor
    Left = 144
    Top = 344
  end
  object sdsCustomer: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConn
    DataSet.CommandText = 
      'select VENDORID, VENDORNAME, VENDORSPELL, LINKMAN, HANDSET, TEL,' +
      ' FAX, REMARK from WMS_VENDOR'#13#10'WHERE VENDORID like '#39'KH%'#39
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 88
    Top = 408
  end
  object dsCustomer: TDataSource
    DataSet = sdsCustomer
    Left = 144
    Top = 408
  end
  object sdsWarehouseDetail: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConn
    DataSet.CommandText = 'select * from WMS_INWAREHOUSEDETAIL'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    IndexFieldNames = 'INRECEIVEID'
    MasterFields = 'INRECEIVEID'
    MasterSource = dsInWarehouse
    PacketRecords = 0
    Params = <>
    Left = 296
    Top = 117
  end
  object sdsInWarehouse: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConn
    DataSet.CommandText = 
      'select INRECEIVEID, VENDORDEPT, WAREHOUSENAME, INRECEIVEDATE, IN' +
      'VOICENO, OPERATOR from WMS_INWAREHOUSEINFO'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 296
    Top = 72
  end
  object dsWarehouseDetail: TDataSource
    DataSet = sdsWarehouseDetail
    Left = 352
    Top = 117
  end
  object dsInWarehouse: TDataSource
    DataSet = sdsInWarehouse
    Left = 352
    Top = 72
  end
  object sdsWarehouseInSearch: TSimpleDataSet
    Active = True
    Aggregates = <>
    Connection = SQLConn
    DataSet.CommandText = 
      'select INRECEIVEID,VENDORDEPT,WAREHOUSENAME,INRECEIVEDATE,INVOIC' +
      'ENO,OPERATOR,MATERIALNAME,MATERIALMODEL,MATERIALSPECS,MATERIALUN' +
      'IT,MATERIALPRICE,MATERIALTYPE,MATERIALNUM,MATERIALMONEY ,REMARK ' +
      ' from WMS_InWarehouseInfo a,WMS_InWarehouseDetail  b where a.INR' +
      'ECEIVEID=b.InreceiveID'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 296
    Top = 288
  end
  object dsWarehouseInSearch: TDataSource
    DataSet = sdsWarehouseInSearch
    Left = 352
    Top = 288
  end
  object sdsWarehouseOutSearch: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConn
    DataSet.CommandText = 
      'select INRECEIVEID,VENDORDEPT,WAREHOUSENAME,INRECEIVEDATE,INVOIC' +
      'ENO,OPERATOR,MATERIALNAME,MATERIALMODEL,MATERIALSPECS,MATERIALUN' +
      'IT,MATERIALPRICE,MATERIALTYPE,MATERIALNUM,MATERIALMONEY ,REMARK ' +
      ' from WMS_OutWarehouseInfo a,WMS_OutWarehouseDetail  b where a.I' +
      'NRECEIVEID=b.InreceiveID'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 296
    Top = 344
  end
  object dsWarehouseOutSearch: TDataSource
    DataSet = sdsWarehouseOutSearch
    Left = 352
    Top = 344
  end
  object sdsWarehouseSearch: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConn
    DataSet.CommandText = 'select * from WMS_WAREHOUSE'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 296
    Top = 408
  end
  object dsWarehouseSearch: TDataSource
    DataSet = sdsWarehouseSearch
    Left = 352
    Top = 408
  end
  object sdspub: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConn
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 352
    Top = 24
  end
  object sdsWarehouse: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConn
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 432
    Top = 24
  end
  object sdsOutWarehouse: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConn
    DataSet.CommandText = 
      'select INRECEIVEID, VENDORDEPT, WAREHOUSENAME, INRECEIVEDATE, IN' +
      'VOICENO, OPERATOR from WMS_OutWAREHOUSEINFO'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 296
    Top = 172
  end
  object sdsOutWarehouseDetail: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConn
    DataSet.CommandText = 'select * from WMS_OutWAREHOUSEDETAIL'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    IndexFieldNames = 'INRECEIVEID'
    MasterFields = 'INRECEIVEID'
    MasterSource = dsOutWarehouse
    PacketRecords = 0
    Params = <>
    Left = 296
    Top = 224
  end
  object dsOutWarehouse: TDataSource
    DataSet = sdsOutWarehouse
    Left = 352
    Top = 172
  end
  object dsOutWarehouseDetail: TDataSource
    DataSet = sdsOutWarehouseDetail
    Left = 352
    Top = 224
  end
  object dsWare: TDataSource
    DataSet = sdsWare
    Left = 144
    Top = 462
  end
  object sdsWare: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConn
    DataSet.CommandText = 'select * from WMS_WAREHOUSE'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 88
    Top = 456
  end
  object sdsCheckInfo: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConn
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 92
    Top = 512
  end
  object dsCheckInfo: TDataSource
    DataSet = sdsCheckInfo
    Left = 148
    Top = 512
  end
end