stockdatamodel.dfm

来自「Barcode And LabelPrint」· DFM 代码 · 共 202 行

object StockDM: TStockDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 388
  Top = 187
  Height = 415
  Width = 594
  object ADOConn: TADOConnection
    LoginPrompt = False
    Mode = cmReadWrite
    Provider = 'SQLOLEDB.1'
    Left = 39
    Top = 34
  end
  object QUser: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Users')
    Left = 36
    Top = 97
  end
  object QCustomer: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 120
    Top = 34
  end
  object QOut: TADOQuery
    Connection = ADOConn
    Parameters = <>
    SQL.Strings = (
      'select * from ProductOut')
    Left = 184
    Top = 35
  end
  object DSBarCodefind: TDataSource
    DataSet = QBarCodefind
    Left = 211
    Top = 124
  end
  object QBarCodefind: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select a.*,c.DevName from BarCode a,DeviceType c where  a.Devnum' +
        '=c.Devnum')
    Left = 128
    Top = 125
  end
  object ADOConnBarCodeTemp: TADOConnection
    KeepConnection = False
    LoginPrompt = False
    Mode = cmReadWrite
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 51
    Top = 300
  end
  object QBarCode: TADOQuery
    Connection = ADOConnBarCodeTemp
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select * from BarCode')
    Left = 147
    Top = 300
  end
  object DSBarCode: TDataSource
    AutoEdit = False
    DataSet = QBarCode
    Left = 205
    Top = 299
  end
  object QOrders: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select *  from Orders')
    Left = 354
    Top = 66
  end
  object DSOrders: TDataSource
    DataSet = QOrders
    Left = 428
    Top = 66
  end
  object QGBarCode: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select  a.*,b.devname from GBarCode a,devicetype b where a.devnu' +
        'm=b.devnum')
    Left = 360
    Top = 129
  end
  object DSGBarCode: TDataSource
    DataSet = QGBarCode
    Left = 432
    Top = 132
  end
  object QSQLBarCode: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    DataSource = DSGBarCode
    Parameters = <>
    SQL.Strings = (
      'select *  from Barcode')
    Left = 363
    Top = 192
  end
  object DSSQLBarCode: TDataSource
    DataSet = QSQLBarCode
    Left = 447
    Top = 186
  end
  object QBarCodeQuery: TADOQuery
    Connection = ADOConn
    Parameters = <>
    SQL.Strings = (
      
        'select a.*,b.*,c.DevName,d.CustomerName,d.postdate  from BarCode' +
        ' a,GBarCode b,DeviceType c,Orders d'
      ''
      
        'where  a.GBarCodeID=b.GBarCodeID and b.Devnum=c.Devnum and b.Ord' +
        'erID=d.OrderID')
    Left = 128
    Top = 171
  end
  object DSBarCodeQuery: TDataSource
    DataSet = QBarCodeQuery
    Left = 215
    Top = 170
  end
  object QDevAndOptions: TADOQuery
    Connection = ADOConn
    Parameters = <>
    SQL.Strings = (
      
        'SELECT a.Devnum,a.DevName,a.Descri,c.Num,c.Ename,c.Zname,c.memo ' +
        'FROM deviceType a, DevAndOptions b,DevHardOptions c where a.devN' +
        'um=b.devnum and b.Num=c.Num')
    Left = 435
    Top = 253
  end
  object QDevHardOptions: TADOQuery
    Connection = ADOConn
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM DevHardOptions')
    Left = 434
    Top = 310
  end
  object QDeviceType: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM DeviceType')
    Left = 354
    Top = 256
    object QDeviceTypeDevName: TWideStringField
      FieldName = 'DevName'
      Size = 50
    end
    object QDeviceTypeDevNum: TWideStringField
      FieldName = 'DevNum'
      FixedChar = True
      Size = 4
    end
    object QDeviceTypeProNumber: TIntegerField
      FieldName = 'ProNumber'
    end
    object QDeviceTypeDevImage: TBlobField
      FieldName = 'DevImage'
    end
    object QDeviceTypeImageFile: TWideStringField
      FieldName = 'ImageFile'
      Size = 200
    end
    object QDeviceTypeDescri: TWideStringField
      FieldName = 'Descri'
      Size = 200
    end
    object QDeviceTypeUpDateDate: TDateTimeField
      FieldName = 'UpDateDate'
    end
  end
  object ADOQuery1: TADOQuery
    Parameters = <>
    Left = 331
    Top = 314
  end
end