stockdatamodel.~dfm

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

object StockDM: TStockDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 340
  Top = 204
  Height = 415
  Width = 594
  object ADOConn: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB;Password=123;Persist Security Info=True;User I' +
      'D=sa;Initial Catalog=pubs;Data Source=GAJUNLING'
    DefaultDatabase = 'Stock'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 39
    Top = 30
  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
    Active = True
    Connection = ADOConn
    CursorType = ctStatic
    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 = 125
  end
  object ADOConnBarCodeTemp: TADOConnection
    KeepConnection = False
    LoginPrompt = False
    Mode = cmReadWrite
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 47
    Top = 246
  end
  object QBarCode: TADOQuery
    Connection = ADOConnBarCodeTemp
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from BarCode')
    Left = 143
    Top = 246
  end
  object DSBarCode: TDataSource
    AutoEdit = False
    DataSet = QBarCode
    Left = 201
    Top = 245
  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
    Active = True
    Connection = ADOConn
    CursorType = ctStatic
    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 = <>
    Left = 128
    Top = 171
  end
  object DSBarCodeQuery: TDataSource
    DataSet = QBarCodeQuery
    Left = 215
    Top = 170
  end
end