datamodule.dfm

产品信息系统!关于产品基础信息的系统!功能强大!

object dmClient: TdmClient
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 201
  Top = 138
  Height = 597
  Width = 678
  object adocnequip_manage: TADOConnection
    Connected = True
    ConnectionString = 'FILE NAME=.\public_dbcon.udl'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 37
    Top = 9
  end
  object QCompanyInfo: TADOQuery
    Connection = adocnequip_manage
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from tCompanyInfo')
    Left = 38
    Top = 103
  end
  object spUserRight: TADOStoredProc
    Connection = adocnequip_manage
    CursorType = ctStatic
    ProcedureName = 'pGetRight;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@UserID'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end>
    Left = 30
    Top = 155
    object spUserRightfFunctionID: TIntegerField
      Alignment = taCenter
      FieldName = 'fFunctionID'
      ReadOnly = True
    end
    object spUserRightfModuleID: TIntegerField
      Alignment = taCenter
      FieldName = 'fModuleID'
      ReadOnly = True
    end
    object spUserRightfActionName: TWideStringField
      Alignment = taCenter
      FieldName = 'fActionName'
      ReadOnly = True
      Size = 50
    end
    object spUserRightfRun: TBooleanField
      Alignment = taCenter
      FieldName = 'fRun'
    end
    object spUserRightfInsert: TBooleanField
      Alignment = taCenter
      FieldName = 'fInsert'
    end
    object spUserRightfEdit: TBooleanField
      Alignment = taCenter
      FieldName = 'fEdit'
    end
    object spUserRightfDelete: TBooleanField
      Alignment = taCenter
      FieldName = 'fDelete'
    end
    object spUserRightfPrint: TBooleanField
      Alignment = taCenter
      FieldName = 'fPrint'
    end
    object spUserRightfConfirm: TBooleanField
      Alignment = taCenter
      FieldName = 'fConfirm'
    end
    object spUserRightfCancel: TBooleanField
      Alignment = taCenter
      FieldName = 'fCancel'
    end
    object spUserRightfFind: TBooleanField
      Alignment = taCenter
      FieldName = 'fFind'
    end
    object spUserRightfFilter: TBooleanField
      Alignment = taCenter
      FieldName = 'fFilter'
    end
    object spUserRightfExport: TBooleanField
      Alignment = taCenter
      FieldName = 'fExport'
    end
  end
  object tGroup: TADOTable
    Connection = adocnequip_manage
    CursorType = ctStatic
    TableName = 'tGroup'
    Left = 29
    Top = 212
  end
  object DataSource1: TDataSource
    DataSet = tGroup
    Left = 132
    Top = 240
  end
  object ADOStoredProc1: TADOStoredProc
    Connection = adocnequip_manage
    ProcedureName = 'p_tjsj;1'
    Parameters = <>
    Left = 137
    Top = 161
  end
  object ds_tuser: TDataSource
    DataSet = tUser
    Left = 109
    Top = 68
  end
  object tUser: TADOQuery
    Connection = adocnequip_manage
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select a.*, '
      
        'b.fgroupId,c.Fname fdepotname,c.fcode fdeprotcode from tuser a l' +
        'eft join tUserGroup b on a.fid=b.fUserId '
      'left join tGroup c on b.fGroupId=c.fid '
      'where a.fStatus=1')
    Left = 44
    Top = 58
    object tUserfID: TAutoIncField
      FieldName = 'fID'
      ReadOnly = True
    end
    object tUserfCode: TWideStringField
      FieldName = 'fCode'
      Size = 50
    end
    object tUserfName: TWideStringField
      FieldName = 'fName'
      Size = 50
    end
    object tUserused: TBooleanField
      FieldName = 'used'
    end
    object tUserfdepartment: TWideStringField
      FieldName = 'fdepartment'
      Size = 50
    end
    object tUserfPWD: TWideStringField
      FieldName = 'fPWD'
      Size = 50
    end
    object tUserfGroupID: TIntegerField
      FieldName = 'fGroupID'
    end
    object tUserfStatus: TBooleanField
      FieldName = 'fStatus'
    end
    object tUserfNotes: TWideStringField
      FieldName = 'fNotes'
      Size = 200
    end
    object tUserfFlag: TBooleanField
      FieldName = 'fFlag'
    end
    object tUserfgroupId_1: TIntegerField
      FieldName = 'fgroupId_1'
    end
    object tUserfdepotname: TWideStringField
      FieldName = 'fdepotname'
      Size = 50
    end
    object tUserfdeprotcode: TWideStringField
      FieldName = 'fdeprotcode'
      Size = 50
    end
  end
  object ds_cx2: TDataSource
    DataSet = qrycx2
    Left = 376
    Top = 59
  end
  object qrycx2: TADOQuery
    Connection = adocnequip_manage
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from orderform where jlh = '#39'900'#39)
    Left = 328
    Top = 60
  end
  object ds_cx4: TDataSource
    DataSet = qrycx4
    Left = 377
    Top = 180
  end
  object qry_pc: TADOQuery
    Connection = adocnequip_manage
    Parameters = <>
    SQL.Strings = (
      'select dbo.hth_tech_info('#39'04DG1486'#39','#39'04DG1487'#39')')
    Left = 315
    Top = 239
  end
  object qrycx4: TADOQuery
    Connection = adocnequip_manage
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select a.*,b.* from orderdetail b join orderform a on b.FORM_JLH' +
        '=a.JLH where b.hth = '#39'04DG1486'#39)
    Left = 320
    Top = 177
  end
  object qrycx3: TADOQuery
    Connection = adocnequip_manage
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      ''
      
        'select a.*,b.*,c.* from ordertechnicsdate c join orderdetail  b ' +
        'on c.hth=b.hth join orderform a on b.FORM_JLH=a.JLH '
      'where c.hth = '#39'04DG1486'#39)
    Left = 327
    Top = 119
  end
  object ds_pc: TDataSource
    DataSet = qry_pc
    Left = 373
    Top = 233
  end
  object ds_cx3: TDataSource
    DataSet = qrycx3
    Left = 377
    Top = 120
  end
  object ds_cx1: TDataSource
    DataSet = qrycx1
    Left = 376
    Top = 17
  end
  object ds_cx5: TDataSource
    DataSet = qrycx5
    Left = 373
    Top = 292
  end
  object dsallcx: TDataSource
    DataSet = qry_cx
    Left = 377
    Top = 349
  end
  object qry_cx: TADOQuery
    Connection = adocnequip_manage
    CursorType = ctStatic
    Parameters = <>
    Left = 319
    Top = 347
  end
  object ds_order_technics_date: TDataSource
    DataSet = qry_order_technics_date
    Left = 389
    Top = 394
  end
  object qry_order_technics_date: TADOQuery
    Connection = adocnequip_manage
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from ordertechnicsdate order by Tech_date,Tech_date_end')
    Left = 318
    Top = 397
  end
  object qry_formjlh: TADOQuery
    Connection = adocnequip_manage
    CursorType = ctStatic
    CommandTimeout = 0
    Parameters = <>
    SQL.Strings = (
      'select * from order_formjlh')
    Left = 309
    Top = 450
  end
  object ds_formjlh: TDataSource
    Left = 382
    Top = 447
  end
  object ADOQuery1: TADOQuery
    Connection = adocnequip_manage
    Parameters = <>
    Left = 265
    Top = 18
  end
  object ADOQuery2: TADOQuery
    Connection = adocnequip_manage
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select * from orderdetail where jlh in (select jlh from order_fo' +
        'rmjlh)')
    Left = 433
    Top = 16
  end
  object qry1: TADOQuery
    Connection = adocnequip_manage
    Parameters = <>
    Left = 478
    Top = 64
  end
  object ds1: TDataSource
    DataSet = qry1
    Left = 536
    Top = 69
  end
  object qry_sequ: TADOQuery
    Connection = adocnequip_manage
    Parameters = <>
    Left = 116
    Top = 299
  end
  object UpdateDate: TADOQuery
    Connection = adocnequip_manage
    Parameters = <>
    Left = 512
    Top = 234
  end
  object qrycx5: TADOQuery
    Connection = adocnequip_manage
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select * from orderform where jlh in (select jlh from order_form' +
        'jlh)')
    Left = 314
    Top = 297
  end
  object ADOQuery3: TADOQuery
    Connection = adocnequip_manage
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select * from order_detail where jlh in (select jlh from order_f' +
        'ormjlh)')
    Left = 229
    Top = 117
    object qrycx1jlh: TBCDField
      FieldName = 'jlh'
      ReadOnly = True
      Precision = 28
      Size = 0
    end
    object qrycx1form_jlh: TBCDField
      FieldName = 'form_jlh'
      Precision = 28
      Size = 0
    end
    object qrycx1cno: TStringField
      FieldName = 'cno'
      FixedChar = True
      Size = 10
    end
    object qrycx1ORDERNO: TStringField
      FieldName = 'ORDERNO'
    end
    object qrycx1hth: TStringField
      FieldName = 'hth'
      Size = 15
    end
    object qrycx1style: TStringField
      FieldName = 'style'
      Size = 15
    end
    object qrycx1xh: TStringField
      FieldName = 'xh'
      Size = 40
    end
    object qrycx1buyer_xh: TStringField
      FieldName = 'buyer_xh'
    end
    object qrycx1sizes: TStringField
      FieldName = 'sizes'
      Size = 10
    end
    object qrycx1buyer_sizes: TStringField
      FieldName = 'buyer_sizes'
      Size = 16
    end
    object qrycx1KIND: TStringField
      FieldName = 'KIND'
      FixedChar = True
      Size = 4
    end
    object qrycx1sh: TStringField
      FieldName = 'sh'
      Size = 30
    end
    object qrycx1sh_remark: TStringField
      FieldName = 'sh_remark'
    end
    object qrycx1buyer_sh: TStringField
      FieldName = 'buyer_sh'
      Size = 30
    end
    object qrycx1sh_dye: TStringField
      FieldName = 'sh_dye'
      Size = 15
    end
    object qrycx1order_amount: TBCDField
      FieldName = 'order_amount'
      Precision = 10
      Size = 2
    end
    object qrycx1price_unit: TStringField
      FieldName = 'price_unit'
      Size = 10
    end
    object qrycx1add_price: TBCDField
      FieldName = 'add_price'
      Precision = 10
      Size = 2
    end
    object qrycx1one_off_money: TBCDField
      FieldName = 'one_off_money'
      Precision = 10
      Size = 2
    end
    object qrycx1smooth: TStringField
      FieldName = 'smooth'
      Size = 10
    end
    object qrycx1quality: TStringField
      FieldName = 'quality'
      FixedChar = True
      Size = 1
    end
    object qrycx1added: TBCDField
      FieldName = 'added'
      Precision = 10
      Size = 0
    end
    object qrycx1sell_mark: TBooleanField
      FieldName = 'sell_mark'
    end
    object qrycx1tracker: TStringField
      FieldName = 'tracker'
      Size = 10
    end
    object qrycx1print_out: TBooleanField
      FieldName = 'print_out'
    end
    object qrycx1print_date: TDateTimeField
      FieldName = 'print_date'
    end
    object qrycx1saverq: TDateTimeField
      FieldName = 'saverq'
    end
    object qrycx1injlh: TIntegerField
      FieldName = 'injlh'
    end
    object qrycx1finish_date: TDateTimeField
      FieldName = 'finish_date'
    end
    object qrycx1finish_remark: TStringField
      FieldName = 'finish_remark'
      Size = 50
    end
    object qrycx1finish_sign: TStringField
      FieldName = 'finish_sign'
      Size = 1
    end
    object qrycx1one_off_money_date: TDateTimeField
      FieldName = 'one_off_money_date'
    end
  end
  object qrycx1: TADOQuery
    Connection = adocnequip_manage
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select * from orderdetail where jlhid in (select jlh from order_' +
        'formjlh)')
    Left = 331
    Top = 16
  end
  object qry2: TADOQuery
    Connection = adocnequip_manage
    Parameters = <>
    Left = 443
    Top = 139
  end
  object qry_formjlh2: TADOQuery
    Connection = adocnequip_manage
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from order_formjlh2')
    Left = 218
    Top = 439
  end
  object ds_formjlh2: TDataSource
    DataSet = qry_formjlh2
    Left = 502
    Top = 442
  end
  object qryOut: TADOQuery
    Connection = adocnequip_manage
    Parameters = <
      item
        Name = 'fcode'
        DataType = ftString
        Size = 2
        Value = Null
      end>
    SQL.Strings = (
      'delete from login_inout where spid=@@spid'
      'update tUser set Used=0 where fcode=:fcode')
    Left = 154
    Top = 5
  end
end