⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 umakesales.~dfm

📁 是分布式粮库程序,是采用Delphi实现的
💻 ~DFM
📖 第 1 页 / 共 3 页
字号:
🔍
123 
  end
  object saleitemlistquery: TQuery
    AfterScroll = saleitemlistqueryAfterScroll
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select * '
      'from ent_sale_item'
      'where sale_id=:salelistid')
    Left = 344
    Top = 496
    ParamData = <
      item
        DataType = ftString
        Name = 'salelistid'
        ParamType = ptUnknown
      end>
  end
  object saleitemlistDataSource: TDataSource
    DataSet = saleitemlistquery
    Left = 376
    Top = 496
  end
  object saleitemQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select *'
      'from ent_sale_item'
      'where sale_id=:salelistid and saleitem_id=:itemlistid')
    Left = 432
    Top = 496
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'salelistid'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'itemlistid'
        ParamType = ptUnknown
      end>
  end
  object newQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select *'
      'from ent_sale'
      'where sale_id=:saleid')
    Left = 584
    Top = 16
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'saleid'
        ParamType = ptUnknown
      end>
  end
  object newsaleQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'insert ent_sale  (sale_id,datetime,unit_id,'
      '                  reciever,manager,clerk,operter,memo,status)'
      '       values(:saleid,:datetime,:unit_id,'
      '              :reciever,:manager,:clerk,:operter,:memo,:status)'
      '')
    Left = 904
    Top = 56
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'saleid'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'datetime'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'unit_id'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'reciever'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'manager'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'clerk'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'operter'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'memo'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'status'
        ParamType = ptUnknown
      end>
  end
  object updatesaleQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'update ent_sale'
      'set sale_id=:saleid ,datetime=:datetime ,unit_id=:unit_id,'
      '    reciever=:reciever ,memo=:memo ,manager=:manager,'
      '    clerk=:clerk ,operter=:operter'
      'where sale_id=:salelistid')
    Left = 936
    Top = 56
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'saleid'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'datetime'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'unit_id'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'reciever'
        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 = 'operter'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'salelistid'
        ParamType = ptUnknown
      end>
  end
  object newsaleitemQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'insert ent_sale_item'
      '        (sale_id,saleitem_id,food_type,quantity,price,'
      '         sitename,depotname,foodposition,remain,status,memo)'
      'values  (:salelistid,:saleitemid,:food_type,:quantity,:price,'
      
        '         :sitename,:depotname,:foodposition,:remain,:status,:mem' +
        'o)')
    Left = 896
    Top = 264
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'salelistid'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'saleitemid'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'food_type'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'quantity'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'price'
        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 = 'remain'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'status'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'memo'
        ParamType = ptUnknown
      end>
  end
  object updatesaleitemQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'update ent_sale_item'
      'set    saleitem_id=:saleitemid ,food_type=:food_type,'
      '       quantity=:quantity, price=:price,memo=:memo ,'
      '       remain=:remain,sitename=:sitename,depotname=:depotname,'
      '       foodposition=:foodposition'
      'where  sale_id=:salelistid and saleitem_id=:saleitemlistid')
    Left = 928
    Top = 264
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'saleitemid'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'food_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 = 'remain'
        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 = 'salelistid'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'saleitemlistid'
        ParamType = ptUnknown
      end>
  end
  object deletesaleitemonequery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'delete'
      'from ent_sale_item'
      'where sale_id=:saleListId and saleitem_id=:itemlistid')
    Left = 872
    Top = 320
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'saleListId'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'itemlistid'
        ParamType = ptUnknown
      end>
  end
  object kudianQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select *'
      'from  ent_site'
      'where unit_id=:unit_id')
    Left = 744
    Top = 536
    ParamData = <
      item
        DataType = ftInteger
        Name = 'unit_id'
        ParamType = ptUnknown
      end>
  end
  object kudianDataSource: TDataSource
    DataSet = kudianQuery
    Left = 776
    Top = 536
  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 = 592
    Top = 528
    ParamData = <
      item
        DataType = ftInteger
        Name = 'unit_id'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'site_name'
        ParamType = ptUnknown
      end>
  end
  object changkuDataSource: TDataSource
    DataSet = changkuQuery
    Left = 624
    Top = 528
  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 = 672
    Top = 528
    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 = 704
    Top = 528
  end
end
123

⌨️ 快捷键说明

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