sal_qry_saleorder.dfm

一个MRPII系统源代码版本

inherited Frm_Sal_Qry_SaleOrder: TFrm_Sal_Qry_SaleOrder
  Left = 77
  Top = 95
  Caption = '销售订单列表查询'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '销售订单列表查询'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = '全部'
    end
    inherited Lbl_Order: TLabel
      Width = 222
      Caption = '客户代码/下单日期/销售订单号/订单行号'
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      Columns = <
        Item
          FieldName = 'customerCode'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'customerName'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'customerflag'
          PickList.Strings = ()
          Width = 150
          KeyList.Strings = ()
        end
        Item
          FieldName = 'createdate'
          PickList.Strings = ()
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'slono'
          PickList.Strings = ()
          Width = 75
          KeyList.Strings = ()
        end
        Item
          FieldName = 'slolineno'
          PickList.Strings = ()
          Width = 28
          KeyList.Strings = ()
        end
        Item
          FieldName = 'slolinestatus'
          PickList.Strings = (
            '5 准备'
            '6 下达'
            '7 关闭'
            '8 结算')
          Width = 49
          KeyList.Strings = (
            '5'
            '6'
            '7'
            '8')
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Itemflag'
          PickList.Strings = ()
          Width = 188
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Uomflag'
          PickList.Strings = ()
          Width = 29
          KeyList.Strings = ()
        end
        Item
          FieldName = 'slolinedate'
          PickList.Strings = ()
          Width = 72
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Shipdays'
          PickList.Strings = ()
          Width = 37
          KeyList.Strings = ()
        end
        Item
          FieldName = 'sloqty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Shipqty'
          PickList.Strings = ()
          Width = 56
          KeyList.Strings = ()
        end
        Item
          FieldName = 'taxPrice'
          PickList.Strings = ()
          Width = 56
          KeyList.Strings = ()
        end
        Item
          FieldName = 'taxAmount'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'notaxPrice'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'notaxAmount'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'diSCountrate'
          PickList.Strings = ()
          Width = 43
          KeyList.Strings = ()
        end
        Item
          FieldName = 'diSCountAmount'
          PickList.Strings = ()
          Width = 52
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleTypeCode'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleTypeName'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleTypeflag'
          PickList.Strings = ()
          Width = 88
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleDeptCode'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptName'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Deptflag'
          PickList.Strings = ()
          Width = 94
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleEmployeeCode'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleEmployeeName'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleEmployeeflag'
          PickList.Strings = ()
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'currencyCode'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'currencyName'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'currencyflag'
          PickList.Strings = ()
          Width = 72
          KeyList.Strings = ()
        end
        Item
          FieldName = 'taxrate_Percent'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PayTermCode'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PayTermName'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PayTermflag'
          PickList.Strings = ()
          Width = 130
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipModeCode'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipModeName'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipModeflag'
          PickList.Strings = ()
          Width = 93
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipAddresSCode'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipAddressName'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipAddressflag'
          PickList.Strings = ()
          Width = 125
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotalnotaxAmount'
          PickList.Strings = ()
          Width = 81
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotaltaxAmount'
          PickList.Strings = ()
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'createEmployeeCode'
          PickList.Strings = ()
          Width = 72
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'createrName'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'createrflag'
          PickList.Strings = ()
          Width = 87
          KeyList.Strings = ()
        end
        Item
          FieldName = 'editdate'
          PickList.Strings = ()
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'edItEmployeeCode'
          PickList.Strings = ()
          Width = 77
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'edItEmployeeName'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'edItEmployeeflag'
          PickList.Strings = ()
          Width = 79
          KeyList.Strings = ()
        end
        Item
          FieldName = 'remArk'
          PickList.Strings = ()
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'remArk1'
          PickList.Strings = ()
          Width = 100
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 261
    Top = 123
  end
  inherited ActionList: TActionList
    Left = 272
    Top = 240
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_Standard;Data Source=192.1' +
      '68.0.151;Use procedure for Prepare=1;Auto Translate=True;Packet ' +
      'Size=4096;Workstation ID=XYB'
    SQL.Strings = (
      'select t1.customerCode,'
      '       customer.customerName,'
      
        '       t1.customerCode+'#39' '#39'+customer.customerName as customerflag' +
        ','
      '       t1.Createdate,'
      '       t2.slono,'
      '       t2.slolineno,'
      '       t2.ItemCode,'
      '       Item.ItemName,'
      '       t2.ItemCode+'#39' '#39'+Item.ItemName as Itemflag,'
      '       Uom.UomName as Uomflag,'
      '       t2.slolinestatus,'
      '       t2.slolinedate,'
      '       t2.sloqty,'
      '       t2.Shipdays,'
      '       t2.Shipqty,'
      '       t2.taxPrice,'
      '       t2.taxAmount,'
      '       t2.notaxPrice,'
      '       t2.notaxAmount,'
      '       t2.diSCountrate,'
      '       t2.diSCountAmount,'
      '       t1.SaleTypeCode,'
      '       SaleType.SaleTypeName,'
      
        '       t1.SaleTypeCode+'#39' '#39'+SaleType.SaleTypeName as SaleTypeflag' +
        ','
      '       t1.SaleDeptCode,'
      '       Dept.DeptName,'