udate.dfm

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

object fdate: Tfdate
  OldCreateOrder = False
  Left = 501
  Top = 449
  Height = 296
  Width = 399
  object qrydep: TADOQuery
    Connection = con1
    Parameters = <>
    SQL.Strings = (
      'select * from tbdep order by dename;')
    Left = 39
    Top = 3
    object qrydepdeID: TAutoIncField
      DisplayLabel = #32534#21495
      FieldName = 'deID'
      ReadOnly = True
    end
    object qrydepdename: TStringField
      DisplayLabel = #37096#38376#21517#31216
      FieldName = 'dename'
      Size = 32
    end
    object qrydepdememo: TStringField
      DisplayLabel = #22791#27880#20449#24687
      DisplayWidth = 30
      FieldName = 'dememo'
      Size = 255
    end
  end
  object qryempty: TADOQuery
    Connection = con1
    Parameters = <>
    SQL.Strings = (
      'select * from view_empdep order by dename;')
    Left = 81
    Top = 3
    object qryemptyemid: TAutoIncField
      DisplayLabel = #32534#21495
      FieldName = 'emid'
      ReadOnly = True
    end
    object qryemptyemname: TStringField
      DisplayLabel = #22995#21517
      DisplayWidth = 15
      FieldName = 'emname'
      Size = 50
    end
    object qryemptyemsex: TBooleanField
      DisplayLabel = #24615#21035
      DisplayWidth = 8
      FieldName = 'emsex'
      DisplayValues = #30007';'#22899
    end
    object qryemptydeid: TIntegerField
      FieldName = 'deid'
    end
    object qryemptydename: TStringField
      DisplayLabel = #37096#38376
      DisplayWidth = 15
      FieldName = 'dename'
      Size = 32
    end
    object qryemptyemmemo: TStringField
      DisplayLabel = #22791#27880#20449#24687
      DisplayWidth = 30
      FieldName = 'emmemo'
      Size = 255
    end
    object qryemptyempass: TStringField
      DisplayLabel = #23494#30721
      FieldName = 'empass'
      Size = 50
    end
    object qryemptyemlogin: TBooleanField
      DisplayLabel = #30331#24405#29366#24577
      DisplayWidth = 10
      FieldName = 'emlogin'
      DisplayValues = #30331#24405';'#26410#30331#24405
    end
  end
  object qryclass: TADOQuery
    Connection = con1
    Parameters = <>
    SQL.Strings = (
      'select * from tbclass;')
    Left = 130
    Top = 7
    object qryclassclid: TAutoIncField
      DisplayLabel = #32534#21495
      FieldName = 'clid'
      ReadOnly = True
    end
    object qryclassclname: TStringField
      DisplayLabel = #21517#31216
      DisplayWidth = 30
      FieldName = 'clname'
      Size = 50
    end
    object qryclassclmemo: TStringField
      DisplayLabel = #22791#27880#20449#24687
      DisplayWidth = 30
      FieldName = 'clmemo'
      Size = 255
    end
  end
  object qry_gooin: TADOQuery
    Connection = con1
    Parameters = <>
    SQL.Strings = (
      'select * from  view_gooin order by clname;')
    Left = 19
    Top = 55
    object qry_gooinbwname: TStringField
      DisplayLabel = #29289#21697#21517#31216
      DisplayWidth = 20
      FieldName = 'bwname'
      Size = 50
    end
    object qry_gooinbyid: TAutoIncField
      FieldName = 'byid'
      ReadOnly = True
    end
    object qry_gooinbwid: TIntegerField
      FieldName = 'bwid'
    end
    object qry_gooinbyquanty: TIntegerField
      DisplayLabel = #25968#37327
      DisplayWidth = 8
      FieldName = 'byquanty'
    end
    object qry_gooinbytotal: TBCDField
      DisplayLabel = #24635#20215
      DisplayWidth = 10
      FieldName = 'bytotal'
      Precision = 19
    end
    object qry_gooinbyrkdate: TDateTimeField
      DisplayLabel = #20837#24211#26102#38388
      DisplayWidth = 12
      FieldName = 'byrkdate'
      DisplayFormat = 'yyyy-mm-dd'
    end
    object qry_gooinrkid: TIntegerField
      FieldName = 'rkid'
    end
    object qry_gooinbymemo: TStringField
      DisplayLabel = #22791#27880#20449#24687
      DisplayWidth = 40
      FieldName = 'bymemo'
      Size = 255
    end
    object qry_gooinrkname: TStringField
      DisplayLabel = #20837#24211#21592
      DisplayWidth = 10
      FieldName = 'rkname'
      Size = 50
    end
    object qry_gooinclid: TIntegerField
      FieldName = 'clid'
    end
    object qry_gooinclname: TStringField
      DisplayLabel = #31867#22411
      DisplayWidth = 20
      FieldName = 'clname'
      Size = 50
    end
  end
  object qryview_sell: TADOQuery
    Connection = con1
    Parameters = <>
    SQL.Strings = (
      'select * from view_sell; ')
    Left = 20
    Top = 130
    object qryview_sellseid: TAutoIncField
      DisplayLabel = #32534#21495
      FieldName = 'seid'
      ReadOnly = True
    end
    object qryview_sellbwname: TStringField
      DisplayLabel = #29289#21697#21517#31216
      DisplayWidth = 20
      FieldName = 'bwname'
      Size = 50
    end
    object qryview_sellbwunit: TStringField
      DisplayLabel = #21333#20301
      DisplayWidth = 10
      FieldName = 'bwunit'
    end
    object qryview_sellbwprice: TBCDField
      DisplayLabel = #21333#20215
      DisplayWidth = 10
      FieldName = 'bwprice'
      Precision = 19
    end
    object qryview_sellbwid: TIntegerField
      FieldName = 'bwid'
    end
    object qryview_sellsedate: TDateTimeField
      DisplayLabel = #39046#26009#26085#26399
      DisplayWidth = 12
      FieldName = 'sedate'
      DisplayFormat = 'yyyy-mm-dd'
    end
    object qryview_sellczid: TIntegerField
      FieldName = 'czid'
    end
    object qryview_sellllid: TIntegerField
      FieldName = 'llid'
    end
    object qryview_sellsequanty: TIntegerField
      DisplayLabel = #25968#37327
      FieldName = 'sequanty'
    end
    object qryview_sellsememo: TStringField
      DisplayLabel = #22791#27880#20449#24687
      DisplayWidth = 40
      FieldName = 'sememo'
      Size = 255
    end
    object qryview_sellllname: TStringField
      DisplayLabel = #39046#26009#20154
      DisplayWidth = 10
      FieldName = 'llname'
      Size = 50
    end
    object qryview_sellczname: TStringField
      DisplayLabel = #25805#20316#20154
      DisplayWidth = 10
      FieldName = 'czname'
      Size = 50
    end
    object qryview_sellclname: TStringField
      DisplayLabel = #31867#22411
      DisplayWidth = 20
      FieldName = 'clname'
      Size = 50
    end
    object qryview_sellclid: TIntegerField
      FieldName = 'clid'
    end
    object qryview_selldeid: TIntegerField
      FieldName = 'deid'
    end
    object qryview_selldename: TStringField
      DisplayLabel = #39046#26009#20154#37096#38376
      DisplayWidth = 20
      FieldName = 'dename'
      Size = 32
    end
    object qryview_sellsetotal: TBCDField
      DisplayLabel = #24635#20215
      DisplayWidth = 10
      FieldName = 'setotal'
      Precision = 19
    end
  end
  object qrytbsystem: TADOQuery
    Connection = con1
    Parameters = <>
    SQL.Strings = (
      'select * from tbsystem')
    Left = 86
    Top = 194
    object qrytbsystemsyid: TAutoIncField
      FieldName = 'syid'
      ReadOnly = True
    end
    object qrytbsystemsyname: TStringField
      DisplayLabel = #21517#31216
      DisplayWidth = 20
      FieldName = 'syname'
      Size = 100
    end
    object qrytbsystemsyoption: TStringField
      DisplayLabel = #25805#20316
      DisplayWidth = 20
      FieldName = 'syoption'
      Size = 255
    end
    object qrytbsystemsydate: TDateTimeField
      DisplayLabel = #26085#26399
      DisplayWidth = 12
      FieldName = 'sydate'
      DisplayFormat = 'yyyy-mm-dd'
    end
    object qrytbsystemsymemo: TStringField
      DisplayLabel = #22791#27880#20449#24687
      DisplayWidth = 30
      FieldName = 'symemo'
      Size = 255
    end
  end
  object qrytbagenda: TADOQuery
    Connection = con1
    Parameters = <>
    SQL.Strings = (
      'select * from tbagenda;')
    Left = 23
    Top = 194
    object qrytbagendaagid: TAutoIncField
      FieldName = 'agid'
      ReadOnly = True
    end
    object qrytbagendaagname: TStringField
      DisplayLabel = #21517#31216
      DisplayWidth = 12
      FieldName = 'agname'
      Size = 50
    end
    object qrytbagendaagdate: TDateTimeField
      DisplayLabel = #26085#26399
      DisplayWidth = 18
      FieldName = 'agdate'
    end
    object qrytbagendaagContents: TStringField
      DisplayLabel = #25552#37266#20869#23481
      DisplayWidth = 20
      FieldName = 'agContents'
      Size = 255
    end
    object qrytbagendaagcs: TIntegerField
      FieldName = 'agcs'
    end
    object qrytbagendaagtime: TDateTimeField
      DisplayLabel = #26102#38388
      DisplayWidth = 15
      FieldName = 'agtime'
      DisplayFormat = 'hh:nn:ss am/pm'
    end
    object qrytbagendaaglb1: TBooleanField
      DisplayLabel = #21608#19968
      FieldName = 'aglb1'
    end
    object qrytbagendaaglb2: TBooleanField
      DisplayLabel = #21608#20108
      FieldName = 'aglb2'
    end
    object qrytbagendaaglb3: TBooleanField
      DisplayLabel = #21608#19977
      FieldName = 'aglb3'
    end
    object qrytbagendaaglb4: TBooleanField
      DisplayLabel = #21608#22235
      FieldName = 'aglb4'
    end
    object qrytbagendaaglb5: TBooleanField
      DisplayLabel = #21608#20116
      FieldName = 'aglb5'
    end
    object qrytbagendaaglb6: TBooleanField
      DisplayLabel = #21608#20845
      FieldName = 'aglb6'
    end
    object qrytbagendaaglb7: TBooleanField
      DisplayLabel = #21608#19971
      FieldName = 'aglb7'
    end
  end
  object spingoogin: TADOStoredProc
    Connection = con1
    ProcedureName = 'spingoogin'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@bwid'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@bydizhi'
        Attributes = [paNullable]
        DataType = ftString
        Size = 100
        Value = Null
      end
      item
        Name = '@byquanty'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@cgid'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@rkid'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@bycgdate'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = Null
      end
      item
        Name = '@bymemo'
        Attributes = [paNullable]
        DataType = ftString
        Size = 255
        Value = Null
      end
      item
        Name = '@msg'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 255
        Value = Null
      end>
    Left = 72
    Top = 54
  end
  object returpage: TADOStoredProc
    Connection = con1
    ProcedureName = 'returpage'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@sql'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end
      item
        Name = '@findzd'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@findstr'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@pagesize'
        Attributes = [paNullable]