udate.dfm

小型企业物品管理系统,DELPHI源码+ACCESS数据库

        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@sort'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@page'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@zid'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@sqlstr'
        Attributes = [paNullable]
        DataType = ftWideString
        Direction = pdInputOutput
        Size = 1000
        Value = Null
      end>
    Left = 127
    Top = 57
  end
  object returncount: TADOStoredProc
    Connection = con1
    ProcedureName = 'returncount'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@findzd'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@findstr'
        Attributes = [paNullable]
        DataType = ftString
        Size = 100
        Value = Null
      end
      item
        Name = '@sql'
        Attributes = [paNullable]
        DataType = ftString
        Size = 100
        Value = Null
      end>
    Left = 189
    Top = 54
  end
  object retuyema: TADOStoredProc
    Connection = con1
    ProcedureName = 'retuyema;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@count'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@pagesize'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@page'
        Attributes = [paNullable]
        DataType = ftInteger
        Direction = pdInputOutput
        Precision = 10
        Value = Null
      end>
    Left = 243
    Top = 57
  end
  object dscount: TDataSource
    DataSet = returncount
    Left = 289
    Top = 55
  end
  object qryrktj: TADOQuery
    Connection = con1
    Parameters = <>
    SQL.Strings = (
      'select * from  view_rktjxx;')
    Left = 330
    Top = 56
    object qryrktjbwname: TStringField
      DisplayLabel = #21517#31216
      DisplayWidth = 18
      FieldName = 'bwname'
      Size = 50
    end
    object qryrktjclid: TIntegerField
      FieldName = 'clid'
    end
    object qryrktjbwunit: TStringField
      DisplayLabel = #21333#20301
      DisplayWidth = 18
      FieldName = 'bwunit'
    end
    object qryrktjbwprice: TBCDField
      DisplayLabel = #21333#20215
      DisplayWidth = 10
      FieldName = 'bwprice'
      Precision = 19
    end
    object qryrktjclname: TStringField
      DisplayLabel = #31867#22411
      DisplayWidth = 18
      FieldName = 'clname'
      Size = 50
    end
    object qryrktjrkzs: TIntegerField
      DisplayLabel = #24635#25968
      DisplayWidth = 10
      FieldName = 'rkzs'
    end
    object qryrktjtotal: TBCDField
      DisplayLabel = #24635#20215
      DisplayWidth = 10
      FieldName = 'total'
      ReadOnly = True
      Precision = 19
    end
    object qryrktjnumcount: TIntegerField
      DisplayLabel = #37319#36141#27425#25968
      DisplayWidth = 20
      FieldName = 'numcount'
    end
    object qryrktjbwid: TAutoIncField
      FieldName = 'bwid'
      ReadOnly = True
    end
  end
  object dsEMP: TDataSource
    DataSet = qryempty
    Left = 176
    Top = 8
  end
  object qryview_kcst: TADOQuery
    Connection = con1
    Parameters = <
      item
        Name = 'kcname'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'select * from view_kcst where kcname =:kcname;')
    Left = 88
    Top = 128
    object qryview_kcstkcname: TStringField
      FieldName = 'kcname'
      Size = 50
    end
    object qryview_kcstkcsl: TIntegerField
      FieldName = 'kcsl'
      ReadOnly = True
    end
    object qryview_kcstkcunit: TStringField
      FieldName = 'kcunit'
    end
    object qryview_kcstkcprice: TBCDField
      FieldName = 'kcprice'
      Precision = 19
    end
    object qryview_kcstkczj: TBCDField
      FieldName = 'kczj'
      ReadOnly = True
      Precision = 19
    end
  end
  object dskcsl: TDataSource
    DataSet = qryview_kcst
    Left = 150
    Top = 129
  end
  object spwpkcsl: TADOStoredProc
    Connection = con1
    ProcedureName = 'spwpkcsl'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@byname'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end
      item
        Name = '@kcsl'
        Attributes = [paNullable]
        DataType = ftInteger
        Direction = pdInputOutput
        Precision = 10
        Value = Null
      end>
    Left = 208
    Top = 128
  end
  object qrycktj: TADOQuery
    Connection = con1
    Parameters = <>
    SQL.Strings = (
      'select * from view_cktjxx;')
    Left = 263
    Top = 126
    object qrycktjbwname: TStringField
      DisplayLabel = #29289#21697#21517#31216
      DisplayWidth = 20
      FieldName = 'bwname'
      Size = 50
    end
    object qrycktjclid: TIntegerField
      FieldName = 'clid'
    end
    object qrycktjbwunit: TStringField
      DisplayLabel = #35745#37327#21333#20301
      FieldName = 'bwunit'
    end
    object qrycktjbwprice: TBCDField
      DisplayLabel = #21333#20215
      DisplayWidth = 10
      FieldName = 'bwprice'
      Precision = 19
    end
    object qrycktjclname: TStringField
      DisplayLabel = #31867#22411
      DisplayWidth = 20
      FieldName = 'clname'
      Size = 50
    end
    object qrycktjckzs: TIntegerField
      DisplayLabel = #20986#24211#24635#25968
      DisplayWidth = 20
      FieldName = 'ckzs'
    end
    object qrycktjtotal: TBCDField
      DisplayLabel = #24635#20215
      DisplayWidth = 10
      FieldName = 'total'
      ReadOnly = True
      Precision = 19
    end
    object qrycktjbwid: TAutoIncField
      FieldName = 'bwid'
      ReadOnly = True
    end
    object qrycktjnumcount: TIntegerField
      DisplayLabel = #39046#26009#27425#25968
      FieldName = 'numcount'
    end
  end
  object spcrtjxx: TADOStoredProc
    Connection = con1
    ProcedureName = 'spcrtjxx'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@emid'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@bwid'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@clid'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@crkpd'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@rqpd'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@kdate'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end
      item
        Name = '@wdate'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end>
    Left = 266
    Top = 8
  end
  object con1: TADOConnection
    ConnectionString = 'Provider=SQLOLEDB.1;Persist Security Info=False;'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    BeforeConnect = con1BeforeConnect
    AfterDisconnect = con1AfterDisconnect
    Left = 8
    Top = 8
  end
  object qryview_eabsh: TADOQuery
    Connection = con1
    Parameters = <>
    SQL.Strings = (
      'select * from view_eabsh;')
    Left = 188
    Top = 197
    object qryview_eabsheaid: TAutoIncField
      FieldName = 'eaid'
      ReadOnly = True
    end
    object qryview_eabshbwid: TIntegerField
      FieldName = 'bwid'
    end
    object qryview_eabsheaAlert: TIntegerField
      DisplayLabel = #26368#20302#24211#23384
      FieldName = 'eaAlert'
    end
    object qryview_eabsheabit: TBooleanField
      FieldName = 'eabit'
    end
    object qryview_eabsheamemo: TStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 20
      FieldName = 'eamemo'
      Size = 255
    end
    object qryview_eabshbwname: TStringField
      DisplayLabel = #21517#31216
      DisplayWidth = 20
      FieldName = 'bwname'
      Size = 50
    end
    object qryview_eabshclid: TIntegerField
      FieldName = 'clid'
    end
    object qryview_eabshclname: TStringField
      DisplayLabel = #31867#22411
      DisplayWidth = 20
      FieldName = 'clname'
      Size = 50
    end
  end
  object qryuser: TADOQuery
    Connection = con1
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'urname'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'urpass'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'select * from tbemp where emname=:urname and empass=:urpass;')
    Left = 224
    Top = 8
    object qryuseremid: TAutoIncField
      FieldName = 'emid'
      ReadOnly = True
    end
    object qryuseremname: TStringField
      FieldName = 'emname'
      Size = 50
    end
    object qryuserempass: TStringField
      FieldName = 'empass'
      Size = 50
    end
    object qryuseremsex: TBooleanField
      FieldName = 'emsex'
    end
    object qryuserdeid: TIntegerField
      FieldName = 'deid'
    end
    object qryuseremmemo: TStringField
      FieldName = 'emmemo'
      Size = 255
    end
    object qryuseremlogin: TBooleanField
      DisplayLabel = #30331#24405#29366#24577
      FieldName = 'emlogin'
      DisplayValues = #30331#24405';'#26410#30331#24405
    end
  end
end