umakenotice.dfm

是分布式粮库程序,是采用Delphi实现的

      Height = 21
      KeyField = 'FOOD_TYPE'
      ListField = 'FOOD_TYPE'
      ListSource = huowuDataSource
      TabOrder = 1
    end
    object fukuanDBLookupComboBox: TDBLookupComboBox
      Left = 112
      Top = 112
      Width = 137
      Height = 21
      KeyField = 'SETTLEMENT'
      ListField = 'SETTLEMENT'
      ListSource = fukuanDataSource
      TabOrder = 2
    end
    object chubeiDBLookupComboBox: TDBLookupComboBox
      Left = 112
      Top = 82
      Width = 137
      Height = 21
      KeyField = 'ATTRIBUTE'
      ListField = 'ATTRIBUTE'
      ListSource = chubeiDataSource
      TabOrder = 5
    end
    object guishuDBLookupComboBox: TDBLookupComboBox
      Left = 368
      Top = 110
      Width = 137
      Height = 21
      KeyField = 'ATTACHMENT'
      ListField = 'ATTACHMENT'
      ListSource = guishuDataSource
      TabOrder = 6
    end
    object yewuDBLookupComboBox: TDBLookupComboBox
      Left = 368
      Top = 139
      Width = 137
      Height = 21
      KeyField = 'BUSINES_STYPE'
      ListField = 'BUSINES_STYPE'
      ListSource = yewuDataSource
      TabOrder = 7
    end
    object Edit11: TEdit
      Left = 112
      Top = 24
      Width = 129
      Height = 21
      TabOrder = 0
    end
    object huoweiDBLookupComboBox: TDBLookupComboBox
      Left = 112
      Top = 200
      Width = 137
      Height = 21
      KeyField = 'name'
      ListField = 'name'
      ListSource = huoweiDataSource
      TabOrder = 14
    end
  end
  object Edit8: TEdit
    Left = 713
    Top = 25
    Width = 68
    Height = 21
    BevelInner = bvLowered
    BevelKind = bkSoft
    BevelOuter = bvNone
    Color = clCaptionText
    MaxLength = 4
    TabOrder = 1
    Text = 'Edit8'
  end
  object Edit9: TEdit
    Left = 848
    Top = 25
    Width = 65
    Height = 21
    BevelInner = bvLowered
    BevelOuter = bvNone
    Color = clCaptionText
    TabOrder = 2
    Text = 'Edit9'
  end
  object PopupMenu1: TPopupMenu
    Left = 224
    Top = 8
    object new: TMenuItem
      Bitmap.Data = {
        E6000000424DE60000000000000076000000280000000F0000000E0000000100
        04000000000070000000130B0000130B00001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8880888888888888888088888888888888808888880008888880888888070888
        8880888888070888888088800007000088808880777777708880888000070000
        8880888888070888888088888807088888808888880008888880888888888888
        88808888888888888880}
      Caption = #26032#24314#36890#30693
      object newruku: TMenuItem
        Bitmap.Data = {
          DE000000424DDE0000000000000076000000280000000D0000000D0000000100
          0400000000006800000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
          F000FFFFFFFFFFFFF000FFFFF000FFFFF000FFFFF0F0FFFFF000FFFFF0F0FFFF
          F000FF0000F0000FF000FF0FFFFFFF0FF000FF0000F0000FF000FFFFF0F0FFFF
          F000FFFFF0F0FFFFF000FFFFF000FFFFF000FFFFFFFFFFFFF000FFFFFFFFFFFF
          F000}
        Caption = #20837#24211#36890#30693
        OnClick = newrukuClick
      end
      object newyiku: TMenuItem
        Bitmap.Data = {
          DE000000424DDE0000000000000076000000280000000D0000000D0000000100
          0400000000006800000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
          F000FFFFFFFFFFFFF000FFFFF000FFFFF000FFFFF0F0FFFFF000FFFFF0F0FFFF
          F000FF0000F0000FF000FF0FFFFFFF0FF000FF0000F0000FF000FFFFF0F0FFFF
          F000FFFFF0F0FFFFF000FFFFF000FFFFF000FFFFFFFFFFFFF000FFFFFFFFFFFF
          F000}
        Caption = #31227#24211#36890#30693
        OnClick = newyikuClick
      end
    end
    object modifynoty: TMenuItem
      Bitmap.Data = {
        E6000000424DE60000000000000076000000280000000F0000000E0000000100
        04000000000070000000130B0000130B00001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7770777777777777777077777777777777707777777777777770777777777777
        7770770000000000077077708888888077707777088888077770777770888077
        7770777777080777777077777770777777707777777777777770777777777777
        77707777777777777770}
      Caption = #20462#25913#36890#30693
      OnClick = modifynotyClick
    end
    object delnoty: TMenuItem
      Bitmap.Data = {
        E6000000424DE60000000000000076000000280000000F0000000E0000000100
        04000000000070000000130B0000130B00001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7770777777777777777077777777777777707777777777777770777777777777
        7770777777777777777077700000000077707770888888807770777000000000
        7770777777777777777077777777777777707777777777777770777777777777
        77707777777777777770}
      Caption = #21024#38500#36890#30693
      OnClick = delnotyClick
    end
  end
  object notelistquery: TQuery
    AfterScroll = notelistqueryAfterScroll
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select NOTY_ID,NOTY_NO,'
      'case NOTY_TYPE when 1 then '#39#20837#24211#21333#39' when 2 then '#39#31227#24211#21333#39' end '
      '     as aaa,'
      
        'case status when 0 then '#39#26410#22788#29702#39' when 1 then '#39#37096#20998#22788#29702#39' when 2 then '#39#24050#22788 +
        #29702#39' end'
      '     as bbb'
      'from  ENT_NOTY'
      'order by NOTY_ID desc')
    Left = 40
    Top = 88
    object notelistqueryNOTY_ID: TIntegerField
      FieldName = 'NOTY_ID'
    end
    object notelistqueryNOTY_NO: TStringField
      FieldName = 'NOTY_NO'
      Size = 12
    end
    object notelistqueryaaa: TStringField
      FieldName = 'aaa'
      Size = 3
    end
    object notelistquerybbb: TStringField
      FieldName = 'bbb'
      Size = 8
    end
  end
  object notelistDataSource: TDataSource
    DataSet = notelistquery
    Left = 72
    Top = 88
  end
  object unittable: TTable
    DatabaseName = 'LYDB'
    Exclusive = True
    TableName = 'dbo.ENT_UNIT_INFO'
    Left = 336
    Top = 96
  end
  object unitDataSource: TDataSource
    DataSet = unittable
    Left = 368
    Top = 96
  end
  object huowuTable: TTable
    DatabaseName = 'LYDB'
    TableName = 'dbo.ENT_FOOD_TYPE'
    Left = 24
    Top = 400
  end
  object fukuanTable: TTable
    DatabaseName = 'LYDB'
    TableName = 'dbo.ENT_SETTLEMENT'
    Left = 120
    Top = 360
  end
  object chubeiTable: TTable
    DatabaseName = 'LYDB'
    TableName = 'dbo.ENT_ATTRIBUTE'
    Left = 120
    Top = 320
  end
  object guishuTable: TTable
    DatabaseName = 'LYDB'
    TableName = 'dbo.ENT_ATTACHMENT'
    Left = 24
    Top = 360
  end
  object kudianDataSource: TDataSource
    DataSet = kudianQuery
    Left = 160
    Top = 408
  end
  object changhaoDataSource: TDataSource
    DataSet = changkuQuery
    Left = 160
    Top = 440
  end
  object huowuDataSource: TDataSource
    DataSet = huowuTable
    Left = 64
    Top = 400
  end
  object fukuanDataSource: TDataSource
    DataSet = fukuanTable
    Left = 160
    Top = 360
  end
  object chubeiDataSource: TDataSource
    DataSet = chubeiTable
    Left = 160
    Top = 320
  end
  object guishuDataSource: TDataSource
    DataSet = guishuTable
    Left = 64
    Top = 360
  end
  object yewuTable: TTable
    DatabaseName = 'LYDB'
    TableName = 'dbo.ENT_BUSINESS_TYPE'
    Left = 24
    Top = 320
  end
  object yewuDataSource: TDataSource
    DataSet = yewuTable
    Left = 64
    Top = 320
  end
  object maxnotquery: TQuery
    DatabaseName = 'LYDB'
    Left = 280
    Top = 24
  end
  object newQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'insert ENT_NOTY  (NOTY_ID, NOTY_NO, NOTY_TYPE, PLAN_ID,'
      '                  AUTHORITY_NO, UNIT_ID, COUNTERPART,'
      '                  START_TIME,FINISH_TIME,MEMO,MANAGER,'
      '                  CLERK,status,input_time)'
      'values           (:MAXNOTICEID,:NOTY_NO,:NOTY_TYPE,:PLAN_ID,'
      '                  :AUTHORITY_NO,:UNIT_ID,:COUNTERPART,'
      '                  :START_TIME,:FINISH_TIME,:MEMO,:MANAGER,'
      '                  :CLERK,:status,:input_time)')
    Left = 888
    Top = 56
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'MAXNOTICEID'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'NOTY_NO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'NOTY_TYPE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PLAN_ID'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'AUTHORITY_NO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'UNIT_ID'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'COUNTERPART'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'START_TIME'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'FINISH_TIME'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'MEMO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'MANAGER'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CLERK'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'status'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'input_time'
        ParamType = ptUnknown
      end>
  end
  object updateQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'update  ENT_NOTY  '
      'set  NOTY_NO=:NOTY_NO, '
      '     PLAN_ID=:PLAN_ID, AUTHORITY_NO=:AUTHORITY_NO,'
      '     UNIT_ID=:UNIT_ID, COUNTERPART=:COUNTERPART,'
      '     START_TIME=:START_TIME, FINISH_TIME=:FINISH_TIME,'
      '     MEMO=:MEMO, MANAGER=:MANAGER, CLERK=:CLERK'
      'where NOTY_ID=:NotListId')
    Left = 920
    Top = 56
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'NOTY_NO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PLAN_ID'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'AUTHORITY_NO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'UNIT_ID'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'COUNTERPART'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'START_TIME'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'FINISH_TIME'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'MEMO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'MANAGER'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CLERK'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'NotListId'