📄 umakenotice.dfm

📁 是分布式粮库程序,是采用Delphi实现的
💻 DFM
📖 第 1 页 / 共 4 页
字号:
上一页 1 2 34
        ParamType = ptUnknown
      end>
  end
  object newwenhaoQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select  *'
      'from    ENT_NOTY'
      'where   NOTY_NO=:NotyNo')
    Left = 656
    Top = 8
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'NotyNo'
        ParamType = ptUnknown
      end>
  end
  object updatewenhaoQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select  *'
      'from    ENT_NOTY'
      'where   NOTY_NO=:NotyNo and  NOTY_ID<>:NotListId')
    Left = 688
    Top = 8
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'NotyNo'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'NotListId'
        ParamType = ptUnknown
      end>
  end
  object NoticeQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      
        'select      NOTY_NO,PLAN_ID,NOTY_TYPE,ent_noty.unit_id,AUTHORITY' +
        '_NO,ENT_UNIT_INFO.UNIT_NAME,'
      '            COUNTERPART,START_TIME,FINISH_TIME,MEMO,MANAGER,'
      '            CLERK,STATUS'
      'from ENT_NOTY,ENT_UNIT_INFO'
      
        'where ENT_NOTY.UNIT_ID=ENT_UNIT_INFO.UNIT_ID and NOTY_ID=:NotLis' +
        'tId')
    Left = 400
    Top = 24
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'NotListId'
        ParamType = ptUnknown
      end>
  end
  object deletequery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'delete '
      'from ent_noty'
      'where noty_id=:NotListId')
    Left = 104
    Top = 168
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'NotListId'
        ParamType = ptUnknown
      end>
  end
  object DeleteNotItemQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'delete'
      'from ent_noty_item'
      'where noty_id = :NotListId')
    Left = 104
    Top = 208
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'NotListId'
        ParamType = ptUnknown
      end>
  end
  object newnotyitemquery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'insert ENT_NOTY_ITEM '
      '       (NOTY_ID,noty_item_id,sitename,depotname,foodposition,'
      '        FOOD_TYPE, SETTLEMENT,ATTRIBUTE,ATTACHMENT,'
      '        BUSINESS_TYPE,QUANTITY,PRICE,memo,status)'
      
        'values (:notlistid,:itemlistid,:sitename,:depotname,:foodpositio' +
        'n,'
      '        :FOOD_TYPE,:SETTLEMENT,:ATTRIBUTE,:ATTACHMENT,'
      '        :BUSINESS_TYPE,:QUANTITY,:PRICE,:memo,:status)')
    Left = 896
    Top = 264
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'notlistid'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'itemlistid'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'sitename'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'depotname'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'foodposition'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'FOOD_TYPE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'SETTLEMENT'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ATTRIBUTE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ATTACHMENT'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'BUSINESS_TYPE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'QUANTITY'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PRICE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'memo'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'status'
        ParamType = ptUnknown
      end>
  end
  object deleteoneitemQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'delete'
      'from ent_noty_item'
      'where noty_id=:NotListId and noty_item_id=:itemlistid')
    Left = 888
    Top = 312
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'NotListId'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'itemlistid'
        ParamType = ptUnknown
      end>
  end
  object notyitemQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select *'
      'from ent_noty_item'
      'where noty_id=:notlistid and noty_item_id=:itemlistid')
    Left = 416
    Top = 512
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'notlistid'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'itemlistid'
        ParamType = ptUnknown
      end>
  end
  object notyitemlistQuery: TQuery
    AfterScroll = notyitemlistQueryAfterScroll
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select noty_id,noty_item_id ,'
      '       depotname,sitename,foodposition,'
      '       food_type,settlement ,'
      '       attribute,attachment,'
      '       business_type,quantity,'
      '       price,memo,'
      '       case status when 0 then '#39#26410#22788#29702#39' when 1 then '#39#24050#22788#29702#39
      '       end as status'
      'from ent_noty_item'
      'where noty_id=:notlistid')
    Left = 312
    Top = 512
    ParamData = <
      item
        DataType = ftInteger
        Name = 'notlistid'
        ParamType = ptUnknown
      end>
  end
  object notyitemlistDataSource: TDataSource
    DataSet = notyitemlistQuery
    Left = 344
    Top = 512
  end
  object updateitemQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'update ENT_NOTY_ITEM '
      
        'set noty_item_id=:itemlistid,depotname=:depotname,foodposition=:' +
        'foodposition,'
      '    sitename=:sitename,FOOD_TYPE=:FOOD_TYPE, '
      '    SETTLEMENT=:SETTLEMENT,ATTRIBUTE=:ATTRIBUTE,'
      '    ATTACHMENT=:ATTACHMENT,BUSINESS_TYPE=:BUSINESS_TYPE,'
      '    QUANTITY=:QUANTITY,PRICE=:PRICE,memo=:memo'
      'where noty_id=:notlistid and noty_item_id=:itemlistid')
    Left = 928
    Top = 264
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'itemlistid'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'depotname'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'foodposition'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'sitename'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'FOOD_TYPE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'SETTLEMENT'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ATTRIBUTE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ATTACHMENT'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'BUSINESS_TYPE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'QUANTITY'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PRICE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'memo'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'notlistid'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'itemlistid'
        ParamType = ptUnknown
      end>
  end
  object planquery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select * '
      'from ent_plan_case'
      'where plan_id = :plan_id')
    Left = 344
    Top = 56
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'plan_id'
        ParamType = ptUnknown
      end>
  end
  object kudianQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select *'
      'from  ent_site'
      'where unit_id=:unit_id')
    Left = 120
    Top = 408
    ParamData = <
      item
        DataType = ftInteger
        Name = 'unit_id'
        ParamType = ptUnknown
      end>
  end
  object changkuQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select depot_name'
      'from ent_depot_info,ent_site'
      'where ent_depot_info.unit_id=:unit_id '
      '      and ent_site.site_name=:site_name'
      '      and ent_depot_info.unit_id=ent_site.unit_id'
      '      and ent_depot_info.site_id=ent_site.site_id'
      '')
    Left = 120
    Top = 440
    ParamData = <
      item
        DataType = ftInteger
        Name = 'unit_id'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'site_name'
        ParamType = ptUnknown
      end>
  end
  object huoweiQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select name'
      'from ent_fdposition_info, ent_depot_info,ent_site'
      'where ent_fdposition_info.unit_id=:unit_id '
      '      and site_name=:site_name'
      '      and depot_name=:depot_name'
      '      and ent_fdposition_info.unit_id=ent_site.unit_id'
      '      and ent_fdposition_info.site_id=ent_site.site_id'
      '      and ent_fdposition_info.unit_id=ent_depot_info.unit_id'
      '      and ent_fdposition_info.site_id=ent_depot_info.site_id'
      '      and ent_fdposition_info.depot_id=ent_depot_info.depot_id'
      '      ')
    Left = 120
    Top = 480
    ParamData = <
      item
        DataType = ftInteger
        Name = 'unit_id'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'site_name'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'depot_name'
        ParamType = ptUnknown
      end>
  end
  object huoweiDataSource: TDataSource
    DataSet = huoweiQuery
    Left = 160
    Top = 480
  end
end
上一页 1 2 34
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -