unitdm.dfm

这是一个很好的超市管理系统

object DM: TDM
  OldCreateOrder = False
  Left = 191
  Top = 107
  Height = 240
  Width = 474
  object conn: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=XHXS'
    KeepConnection = False
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'SQLOLEDB.1'
    Left = 8
    Top = 8
  end
  object ADOQXPXX1: TADOQuery
    Connection = conn
    Parameters = <>
    SQL.Strings = (
      
        'SELECT prod_sort,prod_id, prod_name, prod_price, prod_unit,in_id' +
        ', in_number, in_price, in_time FROM prod,stock where in_prod_id ' +
        '= prod_id')
    Left = 40
    Top = 8
  end
  object dsADOQXPXX1: TDataSource
    DataSet = ADOQXPXX1
    Left = 72
    Top = 8
  end
  object dsADOTXPXX: TDataSource
    DataSet = ADOTXPXX
    Left = 136
    Top = 8
  end
  object dsADOTXPJH: TDataSource
    DataSet = ADOTXPJH
    Left = 200
    Top = 8
  end
  object ADOQTEMP1: TADOQuery
    Connection = conn
    Parameters = <>
    SQL.Strings = (
      
        'SELECT back_id, back_prod_id, back_prod_name, back_prod_price, b' +
        'ack_prod_number, back_time, back_memo from back')
    Left = 232
    Top = 8
  end
  object dsADOQTEMP1: TDataSource
    DataSet = ADOQTEMP1
    Left = 264
    Top = 8
  end
  object ADOTXPXX: TADOTable
    Connection = conn
    TableName = 'prod'
    Left = 104
    Top = 8
  end
  object ADOTXPJH: TADOTable
    Connection = conn
    TableName = 'stock'
    Left = 168
    Top = 8
  end
  object ADOQTEMP2: TADOQuery
    Connection = conn
    Parameters = <>
    Left = 296
    Top = 8
  end
  object dsADOQTEMP2: TDataSource
    DataSet = ADOQTEMP2
    Left = 328
    Top = 8
  end
  object ADOQTEMP3: TADOQuery
    Connection = conn
    Parameters = <>
    SQL.Strings = (
      
        'select sell_id,sell_prod_id, sell_prod_name,sell_prod_price, sel' +
        'l_number, sell_time, sell_money from sell')
    Left = 16
    Top = 64
  end
  object ADOQXPXS1: TADOQuery
    Connection = conn
    Parameters = <>
    SQL.Strings = (
      
        'select sell_id, sell_prod_id, sell_prod_name, sell_prod_price, s' +
        'ell_number, sell_money from sell where sell_pay = 0')
    Left = 160
    Top = 64
  end
  object dsXPXS1: TDataSource
    DataSet = ADOQXPXS1
    Left = 192
    Top = 64
  end
  object ADOQXPXS: TADOQuery
    Connection = conn
    Parameters = <>
    Left = 224
    Top = 64
  end
  object ADOQTEMP4: TADOQuery
    Connection = conn
    Parameters = <>
    SQL.Strings = (
      'select * from back')
    Left = 88
    Top = 64
  end
  object dsADOQTEMP3: TDataSource
    DataSet = ADOQTEMP3
    Left = 48
    Top = 64
  end
  object dsADOQTEMP4: TDataSource
    DataSet = ADOQTEMP4
    Left = 120
    Top = 64
  end
  object ADOTGHX: TADOTable
    Connection = conn
    TableName = 'vendor'
    Left = 264
    Top = 64
  end
  object dsGHX: TDataSource
    DataSet = ADOTGHX
    Left = 296
    Top = 64
  end
  object ADOQDH: TADOQuery
    Connection = conn
    Parameters = <>
    SQL.Strings = (
      
        'select order_form_id,order_id,operator_id,order_prod_id,order_pr' +
        'od_name,order_prod_price,order_prod_number,order_money,order_per' +
        'son_id,order_person_name,order_time,order_deliver_time,order_mem' +
        'o from orders where order_decision = 0')
    Left = 328
    Top = 64
  end
  object dsDH: TDataSource
    DataSet = ADOQDH
    Left = 360
    Top = 64
  end
  object ADOQJHTH: TADOQuery
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select order_form_id, operator_id, order_person_id, order_person' +
        '_name, order_total_money, order_pre_money, order_owe_money from ' +
        'order_pay where pay_finish = 0 ')
    Left = 16
    Top = 112
  end
  object dsJHTH: TDataSource
    DataSet = ADOQJHTH
    Left = 56
    Top = 112
  end
  object ADOQCHTH: TADOQuery
    Connection = conn
    Parameters = <>
    SQL.Strings = (
      
        #39'select order_form_id, operator_id, order_id, order_prod_id, ord' +
        'er_prod_name, order_prod_price, order_prod_number, order_money,o' +
        'rder_person_id, order_person_name, order_time, order_deliver_tim' +
        'e, order_demo from orders ')
    Left = 96
    Top = 112
  end
  object dsCHTH: TDataSource
    DataSet = ADOQCHTH
    Left = 136
    Top = 112
  end
  object ADOQTEMP5: TADOQuery
    Connection = conn
    Parameters = <>
    SQL.Strings = (
      'select * from prod')
    Left = 176
    Top = 112
  end
  object dsADOQTEMP5: TDataSource
    DataSet = ADOQTEMP5
    Left = 216
    Top = 112
  end
  object ADOTDHR: TADOTable
    Connection = conn
    TableName = 'order_person'
    Left = 256
    Top = 112
  end
  object dsDHR: TDataSource
    DataSet = ADOTDHR
    Left = 288
    Top = 112
  end
  object ADOQTEMP6: TADOQuery
    Connection = conn
    Parameters = <>
    SQL.Strings = (
      
        'SELECT sell_id, sell_prod_id, sell_prod_name, sell_prod_price, s' +
        'ell_number, sell_money, sell_time FROM sell')
    Left = 328
    Top = 112
  end
  object dsTEMP6: TDataSource
    DataSet = ADOQTEMP6
    Left = 360
    Top = 112
  end
  object ADOTCZY: TADOTable
    Connection = conn
    TableName = 'user'
    Left = 392
    Top = 112
  end
  object dsCZY: TDataSource
    DataSet = ADOTCZY
    Left = 424
    Top = 112
  end
  object ADOSPUpdateStock: TADOStoredProc
    Connection = conn
    ProcedureName = 'PROC_UpdateStock'
    Parameters = <
      item
        Name = '@in_id'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@operator_id'
        Attributes = [paNullable]
        DataType = ftWord
        Precision = 3
        Value = Null
      end
      item
        Name = '@in_prod_id'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end
      item
        Name = '@in_prod_name'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@in_price'
        Attributes = [paNullable]
        DataType = ftBCD
        Precision = 10
        Value = Null
      end
      item
        Name = '@in_number'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@in_time'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = Null
      end
      item
        Name = '@sign'
        Attributes = [paNullable]
        DataType = ftString
        Size = 1
        Value = Null
      end
      item
        Name = '@prod_price'
        Attributes = [paNullable]
        DataType = ftBCD
        Precision = 19
        Value = Null
      end
      item
        Name = '@prod_sort'
        Attributes = [paNullable]
        DataType = ftString
        Size = 1
        Value = Null
      end
      item
        Name = '@prod_unit'
        Attributes = [paNullable]
        DataType = ftString
        Size = 8
        Value = Null
      end
      item
        Name = '@temp1'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@temp2'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@temp3'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@temp4'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end>
    Left = 16
    Top = 160
  end
  object ADOSPDeleteStock: TADOStoredProc
    Connection = conn
    ProcedureName = 'PROC_DeleteStock'
    Parameters = <
      item
        Name = '@in_id'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@prod_id'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end
      item
        Name = '@prod_stock'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@in_number'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@temp'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@AS_REN'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 1
        Value = Null
      end>
    Left = 64
    Top = 160
  end
end