datamodule.~dfm

来自「这也是师兄的毕业设计,具体的功能我也不清楚,因为我才大一,请见谅!!!!!!!不」· ~DFM 代码 · 共 254 行

object dm: Tdm
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 467
  Top = 101
  Height = 470
  Width = 474
  object d_maintenance: TDataSource
    DataSet = q_maintenance
    Left = 31
    Top = 43
  end
  object d_materialmanager: TDataSource
    DataSet = q_materialmanager
    Left = 31
    Top = 107
  end
  object d_clientinfo: TDataSource
    DataSet = q_clientinfo
    Left = 24
    Top = 168
  end
  object d_providerinfo: TDataSource
    DataSet = q_providerinfo
    Left = 24
    Top = 232
  end
  object d_mplan: TDataSource
    DataSet = q_mplan
    Left = 16
    Top = 304
  end
  object d_needstro: TDataSource
    DataSet = q_needstro
    Left = 32
    Top = 384
  end
  object d_bomm: TDataSource
    DataSet = q_bomm
    Left = 158
    Top = 23
  end
  object d_bomd: TDataSource
    DataSet = q_bomd
    Left = 166
    Top = 80
  end
  object d_order: TDataSource
    DataSet = q_order
    Left = 166
    Top = 136
  end
  object d_list: TDataSource
    DataSet = q_list
    Left = 174
    Top = 192
  end
  object d_procureplan: TDataSource
    DataSet = q_ProcurePlan
    Left = 174
    Top = 248
  end
  object d_mio: TDataSource
    DataSet = q_mio
    Left = 182
    Top = 304
  end
  object d_storaged: TDataSource
    DataSet = q_storaged
    Left = 166
    Top = 376
  end
  object d_at_count: TDataSource
    DataSet = at_count
    Left = 312
    Top = 112
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ' +
      'ID=sa;Initial Catalog=mrp2;Data Source=zhangbiao'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 312
  end
  object q_maintenance: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from user_info')
    Left = 80
    Top = 40
  end
  object q_materialmanager: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from material_main')
    Left = 96
    Top = 112
  end
  object q_clientinfo: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from clientInfo')
    Left = 80
    Top = 176
  end
  object q_providerinfo: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from providerinfo')
    Left = 88
    Top = 232
  end
  object q_needstro: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from needstro')
    Left = 96
    Top = 368
  end
  object q_bomm: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from bomf')
    Left = 224
    Top = 32
  end
  object q_order: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from orderinfo')
    Left = 232
    Top = 136
  end
  object q_ProcurePlan: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from ProcurePlan')
    Left = 240
    Top = 240
  end
  object q_mio: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from materialio')
    Left = 240
    Top = 304
  end
  object q_storaged: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from materialstorage')
    Left = 248
    Top = 384
  end
  object at_count: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'count'
    Left = 376
    Top = 112
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 312
    Top = 56
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from user_info')
    Left = 376
    Top = 56
  end
  object q_list: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    IndexFieldNames = 'Order_ID;Client_ID;Delivery_Time'
    MasterFields = 'Order_ID;Client_ID;Order_DeliverTime'
    MasterSource = d_order
    TableName = 'OrderList'
    Left = 248
    Top = 192
  end
  object d_bom_name: TDataSource
    DataSet = q_bom_name
    Left = 312
    Top = 176
  end
  object q_mplan: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from mplan')
    Left = 88
    Top = 304
  end
  object q_bom_name: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from bom_name')
    Left = 368
    Top = 176
  end
  object q_bomd: TADOTable
    Connection = ADOConnection1
    IndexFieldNames = 'BOM_ID'
    MasterFields = 'BOM_ID'
    MasterSource = d_bomm
    TableName = 'BOMC'
    Left = 232
    Top = 88
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 312
    Top = 248
  end
  object ADOQuery2: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from material_main')
    Left = 368
    Top = 248
  end
end