unitdm.~dfm

仓储系统

object DM: TDM
  OldCreateOrder = False
  Left = 113
  Top = 129
  Height = 471
  Width = 712
  object ADO_C: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=Stock2;Data Source=application'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 32
    Top = 16
  end
  object qry_Kf: TADOQuery
    Connection = ADO_C
    Parameters = <>
    Left = 32
    Top = 72
  end
  object qry_Pd: TADOQuery
    Connection = ADO_C
    Parameters = <>
    Left = 144
    Top = 72
  end
  object qry_Quality: TADOQuery
    Connection = ADO_C
    Parameters = <>
    Left = 196
    Top = 72
  end
  object qry_InOutClass: TADOQuery
    Connection = ADO_C
    Parameters = <>
    Left = 264
    Top = 72
  end
  object qry_StockUser: TADOQuery
    Connection = ADO_C
    Parameters = <>
    SQL.Strings = (
      'select * from stockuser')
    Left = 340
    Top = 71
  end
  object qry_JLUnit: TADOQuery
    Connection = ADO_C
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from JLunit')
    Left = 412
    Top = 71
  end
  object qry_MateBasic: TADOQuery
    Connection = ADO_C
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from mate_basic order by mate_code')
    Left = 33
    Top = 124
  end
  object sp_MateBasic: TADOStoredProc
    Connection = ADO_C
    Parameters = <>
    Left = 36
    Top = 173
  end
  object qry_CgRk: TADOQuery
    Connection = ADO_C
    Parameters = <>
    SQL.Strings = (
      'select a.Xh,a.In_Bill,a.Pr_No,a.Plan_id,                  '
      '       a.Mate_Code,b.Mate_Name,b.Mate_Type,          '
      '       a.Gys,a.Dept_id,a.In_Date,                 '
      '       a.KfNo,a.KwNo,a.In_Type,'
      '       b.Stoc_Amount,b.Mate_TotalPrice,'
      '       a.In_Amount,a.In_Price,a.In_Zj,a.In_Post,   '
      '       a.In_man,a.Exam_man,a.Oper_id,a.Rk_memo     '
      '   from Mate_CgRk a                                    '
      
        '  left outer join Mate_Basic b on a.Mate_Code=b.Mate_Code order ' +
        'by a.Xh ')
    Left = 117
    Top = 121
  end
  object sp_CgRk: TADOStoredProc
    Connection = ADO_C
    Parameters = <>
    Left = 118
    Top = 171
  end
  object qry_Dept: TADOQuery
    Connection = ADO_C
    Parameters = <>
    Left = 104
    Top = 24
  end
  object qry_Gys: TADOQuery
    Connection = ADO_C
    Parameters = <>
    Left = 168
    Top = 24
  end
  object qry_kw: TADOQuery
    Connection = ADO_C
    Parameters = <>
    Left = 88
    Top = 72
  end
  object qry_Customer: TADOQuery
    Connection = ADO_C
    Parameters = <>
    Left = 224
    Top = 24
  end
  object sp_CgRkGz: TADOStoredProc
    Connection = ADO_C
    Parameters = <>
    Left = 179
    Top = 170
  end
  object qry_CgRkGz: TADOQuery
    Connection = ADO_C
    Parameters = <>
    SQL.Strings = (
      'select * from mate_CgRk')
    Left = 176
    Top = 120
  end
  object qry_Zz: TADOQuery
    Connection = ADO_C
    Parameters = <>
    SQL.Strings = (
      'select a.Xh,a.In_Bill,a.Pr_No,a.Plan_id,             '
      '       a.Mate_Code,b.Mate_Name,b.Mate_Type,     '
      '       a.Gys,a.Dept_id,a.In_Date,            '
      '       a.KfNo,a.KwNo,a.In_Type,'
      '       b.Stoc_Amount,b.Mate_TotalPrice,'
      '       a.In_Amount,a.In_Price,a.In_Zj,a.In_Post,  '
      '       a.In_man,a.Exam_man,a.Oper_id,a.Rk_memo     '
      '   from Mate_ZzRk a                                    '
      
        '   left outer join Mate_Basic b on a.Mate_Code=b.Mate_Code order' +
        ' by a.Xh  ')
    Left = 262
    Top = 128
  end
  object sp_ZzRk: TADOStoredProc
    Connection = ADO_C
    Parameters = <>
    Left = 262
    Top = 176
  end
  object qry_ZzRkGz: TADOQuery
    Connection = ADO_C
    Parameters = <>
    Left = 318
    Top = 128
  end
  object sp_ZzRkGz: TADOStoredProc
    Connection = ADO_C
    Parameters = <>
    Left = 318
    Top = 176
  end
  object qry_ProductIn: TADOQuery
    Connection = ADO_C
    Parameters = <>
    SQL.Strings = (
      'select a.Xh,a.In_Bill,a.Plan_id,              '
      '           a.Mate_Code,b.Mate_Name,b.Mate_Type,         '
      '              a.Dept_id,a.In_Date,                '
      
        '                 a.KfNo,a.KwNo,a.In_Type,a.In_Amount,a.In_Price,' +
        'a.In_Zj,a.In_Post,  '
      
        '                      a.In_man,a.Exam_man,a.Oper_id,a.Rk_memo   ' +
        ' '
      
        '              from Product_Rk a                                 ' +
        '  '
      '         left outer join Mate_Basic b on a.Mate_Code=b.Mate_Code')
    Left = 384
    Top = 120
  end
  object qry_ProductInGz: TADOQuery
    Connection = ADO_C
    Parameters = <>
    Left = 458
    Top = 117
  end
  object sp_ProductIn: TADOStoredProc
    Connection = ADO_C
    Parameters = <>
    Left = 384
    Top = 176
  end
  object sp_ProductInGz: TADOStoredProc
    Connection = ADO_C
    Parameters = <>
    Left = 457
    Top = 180
  end
  object qry_TuiLiao: TADOQuery
    Connection = ADO_C
    Parameters = <>
    Left = 536
    Top = 136
  end
  object qry_TuiLiaoGz: TADOQuery
    Connection = ADO_C
    Parameters = <>
    Left = 603
    Top = 128
  end
  object sp_TuiLiao: TADOStoredProc
    Connection = ADO_C
    Parameters = <>
    Left = 536
    Top = 184
  end
  object sp_TuiLiaoGz: TADOStoredProc
    Connection = ADO_C
    Parameters = <>
    Left = 599
    Top = 175
  end
  object qry_ProductOut: TADOQuery
    Connection = ADO_C
    Parameters = <>
    SQL.Strings = (
      
        'select a.Xh,a.Out_Bill,a.Plan_id,                               ' +
        '   '
      
        '                a.Mate_Code,b.Mate_Name,b.Mate_Type,            ' +
        '   '
      
        '                a.Cust_id,a.Out_Date,                           ' +
        '   '
      
        '                a.KfNo,a.KwNo,a.Out_Type,                       ' +
        '   '
      
        '                c.PlanNum,c.Out_Sum,c.In_Sum,                   ' +
        '   '
      
        '                b.Stoc_Amount,b.Mate_TotalPrice,                ' +
        '   '
      
        '                a.Out_Amount,a.Out_Price,a.Out_Zj,a.Out_Post,   ' +
        '   '
      
        '                a.Out_man,a.Exam_man,a.Oper_id,a.Ck_memo        ' +
        '   '
      
        '            from Mate_Ck a                                      ' +
        '   '
      
        '            left outer join Mate_Basic b on a.Mate_Code=b.Mate_C' +
        'ode '
      
        '            left outer join PlanNum c on a.Plan_id=c.PlanNo orde' +
        'r by a.Xh')
    Left = 32
    Top = 232
  end
  object qry_ProductOutGz: TADOQuery
    Connection = ADO_C
    Parameters = <>
    Left = 121
    Top = 232
  end
  object sp_ProductOut: TADOStoredProc
    Connection = ADO_C
    Parameters = <>
    Left = 32
    Top = 288
  end
  object sp_ProductOutGz: TADOStoredProc
    Connection = ADO_C
    Parameters = <>
    Left = 121
    Top = 288
  end
  object qry_Ly: TADOQuery
    Connection = ADO_C
    Parameters = <>
    SQL.Strings = (
      'select a.Xh,a.Ly_Bill,a.Plan_id,              '
      '           a.Mate_Code,b.Mate_Name,b.Mate_Type,         '
      
        '              a.Dept_id,a.Out_Date, b.Stoc_Amount,b.Mate_TotalPr' +
        'ice,               '
      
        '                 a.KfNo,a.KwNo,a.Out_Type,a.Out_Amount,a.Out_Pri' +
        'ce,a.Out_Zj,a.Out_Post,  '
      
        '                      a.Checker,a.Out_man,a.Oper_id,a.Out_memo  ' +
        '  '
      '              from Mate_Ly a                                   '
      '         left outer join Mate_Basic b on a.Mate_Code=b.Mate_Code')
    Left = 216
    Top = 240
  end
  object qry_LyGz: TADOQuery
    Connection = ADO_C
    Parameters = <>
    Left = 260
    Top = 240
  end
  object qry_Bf: TADOQuery
    Connection = ADO_C
    Parameters = <>
    SQL.Strings = (
      'select a.Xh,a.Bf_Bill,a.Plan_id,              '
      '           a.Mate_Code,b.Mate_Name,b.Mate_Type,         '
      
        '              a.Dept_id,a.Out_Date,b.Stoc_Amount,b.Mate_TotalPri' +
        'ce,                '
      
        '                 a.KfNo,a.KwNo,a.Out_Type,a.Out_Amount,a.Out_Pri' +
        'ce,a.Out_Zj,a.Out_Post,  '
      
        '                      a.Checker,a.Exam_man,a.Oper_id,a.Bf_No,a.B' +
        'f_Reason,a.Out_memo    '
      '              from Mate_Bf a                                   '
      '         left outer join Mate_Basic b on a.Mate_Code=b.Mate_Code')
    Left = 321
    Top = 237
  end
  object qry_BfGz: TADOQuery
    Connection = ADO_C
    Parameters = <>
    Left = 364
    Top = 237
  end
  object sp_Ly: TADOStoredProc
    Connection = ADO_C
    Parameters = <>
    Left = 218
    Top = 291
  end
  object sp_LyGz: TADOStoredProc
    Connection = ADO_C
    Parameters = <>
    Left = 260
    Top = 290
  end
  object sp_Bf: TADOStoredProc
    Connection = ADO_C
    Parameters = <>
    Left = 326
    Top = 288
  end
  object sp_BfGz: TADOStoredProc
    Connection = ADO_C
    Parameters = <>
    Left = 364
    Top = 285
  end
  object qry_PyPk: TADOQuery
    Connection = ADO_C
    Parameters = <>
    SQL.Strings = (
      'select a.Pd_Bill,a.Pd_ClassNo,a.Pd_date,                     '
      '            a.mate_code,b.mate_name,b.mate_type,a.Dept_id,   '
      
        '               a.KfNo,a.KwNo,b.Stoc_Amount,a.Pd_Amount,a.Yk_Amou' +
        'nt,a.Pd_Post,a.pd_man,a.Oper_id,a.Pd_Memo   '
      
        '          from Mate_PyPk a                                      ' +
        '                   '
      
        '          left outer join mate_basic b on a.mate_code=b.mate_cod' +
        'e')
    Left = 432
    Top = 240
  end
  object sp_PyPk: TADOStoredProc
    Connection = ADO_C
    Parameters = <>
    Left = 432
    Top = 288
  end
  object qry_MateClass: TADOQuery
    Connection = ADO_C
    Parameters = <>
    Left = 296
    Top = 32
  end
  object qry_PyPkGz: TADOQuery
    Connection = ADO_C
    Parameters = <>
    Left = 490
    Top = 236
  end
  object sp_PyPkGz: TADOStoredProc
    Connection = ADO_C
    Parameters = <>
    Left = 490
    Top = 284
  end
  object qry_PlanNum: TADOQuery
    Connection = ADO_C
    Parameters = <>
    SQL.Strings = (
      'select * from PlanNum')
    Left = 376
    Top = 24
  end
end