sal_qry_salecontract.dfm

一个MRPII系统源代码版本

inherited Frm_Sal_Qry_SaleContract: TFrm_Sal_Qry_SaleContract
  Left = 171
  Top = 203
  Caption = '销售价格列表查询'
  ClientHeight = 444
  ClientWidth = 780
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 780
  end
  inherited Pnl_Title: TPanel
    Width = 780
    Caption = '销售合同列表查询'
    inherited Image2: TImage
      Width = 780
    end
  end
  inherited Pnl_Head: TPanel
    Width = 780
    inherited Image1: TImage
      Width = 780
    end
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = '全部'
    end
    inherited Lbl_Order: TLabel
      Width = 48
      Caption = '客户代码'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 418
    Width = 780
    inherited Image4: TImage
      Width = 780
    end
  end
  inherited Pnl_Body: TPanel
    Width = 780
    Height = 321
    inherited Image3: TImage
      Width = 780
      Height = 321
    end
    inherited DBGridEh: TDBGridEh
      Width = 780
      Height = 321
      FrozenCols = 3
      UseMultiTitle = False
      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 = 160
          KeyList.Strings = ()
        end
        Item
          FieldName = 'slclineno'
          PickList.Strings = ()
          Title.Caption = '价格表行号'
          Width = 52
          KeyList.Strings = ()
        end
        Item
          FieldName = 'linestatus'
          PickList.Strings = (
            '0 未批准'
            '1 已批准')
          Width = 54
          KeyList.Strings = (
            '0'
            '1')
        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 = 200
          KeyList.Strings = ()
        end
        Item
          FieldName = 'stArtdate'
          PickList.Strings = ()
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'enddate'
          PickList.Strings = ()
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'stArtqty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'endqty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'notaxPrice'
          PickList.Strings = ()
          Width = 51
          KeyList.Strings = ()
        end
        Item
          FieldName = 'taxPrice'
          PickList.Strings = ()
          Width = 48
          KeyList.Strings = ()
        end
        Item
          FieldName = 'referencedPrice'
          PickList.Strings = (
            '0 非标准'
            '1 标准')
          Width = 59
          KeyList.Strings = (
            '0'
            '1')
        end
        Item
          FieldName = 'taxrate'
          PickList.Strings = ()
          Width = 37
          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 = 67
          KeyList.Strings = ()
        end
        Item
          FieldName = 'slclineremArk'
          PickList.Strings = ()
          Width = 150
          KeyList.Strings = ()
        end
        Item
          FieldName = 'slcdate'
          PickList.Strings = ()
          Title.Caption = '建表日期'
          Width = 70
          KeyList.Strings = ()
        end>
    end
  end
  inherited ActionList: TActionList
    Top = 216
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdysjmrm;Data Source=192.168.0.1' +
      '51;Use procedure for Prepare=1;Auto Translate=True;Packet Size=4' +
      '096;Workstation ID=XYB'
    SQL.Strings = (
      'select t1.customerCode,'
      '       customer.customerName,'
      
        '       t1.customerCode+'#39' '#39'+customer.customerName as customerflag' +
        ','
      '       t2.slcno,'
      '       t2.slclineno,'
      '       t1.slcdate,'
      '       t2.linestatus,'
      '       t2.ItemCode,'
      '       Item.ItemName,'
      '       t2.ItemCode+'#39' '#39'+Item.ItemName as Itemflag,'
      '       t2.stArtdate,'
      '       t2.enddate,'
      '       t2.stArtqty,'
      '       t2.endqty,'
      '       t2.notaxPrice,'
      '       t2.taxPrice,'
      '       t2.referencedPrice,'
      '       taxrate=convert(varchAr,t1.taxrate_Percent),'
      '       t1.currencyCode,'
      '       currency.currencyName,'
      
        '       t1.currencyCode+'#39' '#39'+currency.currencyName as currencyflag' +
        ','
      '       t1.PayTermCode,'
      '       PayTerm.PayTermName,'
      '       t1.PayTermCode+'#39' '#39'+PayTerm.PayTermName as PayTermflag,'
      '       t1.SaleEmployeeCode,'
      '       Employee.EmployeeName,'
      
        '       t1.SaleEmployeeCode+'#39' '#39'+Employee.EmployeeName as Employee' +
        'flag,'
      '       t1.DeptCode,'
      '       Dept.DeptName,'
      '       t1.DeptCode+'#39' '#39'+Dept.DeptName as Deptflag,'
      '       t1.SaleType,'
      '       SaleType.SaleTypeName,'
      '       t1.SaleType+SaleTypeName as SaleTypeflag,'
      '       t2.slclineremArk'
      'from  sa_SaleContractline t2'
      'join  sa_SaleContract t1 on t2.slcno=t1.slcno'
      
        'left outer join  customer on t1.customerCode=customer.customerco' +
        'de'
      'left outer join  Item on t2.ItemCode=Item.ItemCode'
      
        'left outer join  currency on t1.currencyCode=currency.currencyco' +
        'de'
      'left outer join PayTerm on t1.PayTermCode=PayTerm.PayTermCode'
      
        'left outer join Employee on t1.SaleEmployeeCode=Employee.employe' +
        'eCode'
      'left outer join Dept on t1.DeptCode=Dept.DeptCode'
      'left outer join SaleType on t1.SaleType=SaleType.SaleTypeCode'
      ''
      '')
    Left = 168
    Top = 185
    object AdoQry_MaincustomerCode: TStringField
      DisplayLabel = '客户代码'
      FieldName = 'customerCode'
      Origin = '#tMpslclineQry'
      Size = 12
    end
    object AdoQry_MaincustomerName: TStringField
      DisplayLabel = '客户名称'
      FieldName = 'customerName'
      Origin = '#tMpslclineQry'
      Size = 60
    end
    object AdoQry_Maincustomerflag: TStringField
      DisplayLabel = '客户标识'
      FieldName = 'customerflag'
      Origin = '#tMpslclineQry'
      ReadOnly = True
      Size = 73
    end
    object AdoQry_Mainslcno: TStringField
      DisplayLabel = '销售合同号'
      FieldName = 'slcno'
      Origin = '#tMpslclineQry'
      Size = 16
    end
    object AdoQry_Mainslclineno: TIntegerField
      DisplayLabel = '合同行号'
      FieldName = 'slclineno'
      Origin = '#tMpslclineQry'
    end
    object AdoQry_Mainslcdate: TDateTimeField
      DisplayLabel = '合同日期'
      FieldName = 'slcdate'
      Origin = '#tMpslclineQry'
    end
    object AdoQry_Mainlinestatus: TIntegerField
      DisplayLabel = '行状态'
      FieldName = 'linestatus'
      Origin = '#tMpslclineQry'
    end
    object AdoQry_MainItemCode: TStringField
      DisplayLabel = '物料代码'
      FieldName = 'ItemCode'
      Origin = '#tMpslclineQry'
      Size = 16
    end
    object AdoQry_MainItemName: TStringField
      DisplayLabel = '物料描述'
      FieldName = 'ItemName'
      Origin = '#tMpslclineQry'
      Size = 80
    end
    object AdoQry_MainItemflag: TStringField
      DisplayLabel = '物料标识'
      FieldName = 'Itemflag'
      Origin = '#tMpslclineQry'
      ReadOnly = True
      Size = 97
    end
    object AdoQry_MainstArtdate: TDateTimeField
      DisplayLabel = '起始日期'
      FieldName = 'stArtdate'
      Origin = '#tMpslclineQry'
    end
    object AdoQry_Mainenddate: TDateTimeField
      DisplayLabel = '终止日期'
      FieldName = 'enddate'
      Origin = '#tMpslclineQry'
    end
    object AdoQry_MainstArtqty: TFloatField
      DisplayLabel = '起始数量'
      FieldName = 'stArtqty'
      Origin = '#tMpslclineQry'
    end
    object AdoQry_Mainendqty: TFloatField
      DisplayLabel = '终止数量'
      FieldName = 'endqty'
      Origin = '#tMpslclineQry'
    end
    object AdoQry_MainnotaxPrice: TFloatField
      DisplayLabel = '未税价'
      FieldName = 'notaxPrice'
      Origin = '#tMpslclineQry'
    end
    object AdoQry_MaintaxPrice: TFloatField
      DisplayLabel = '含税价'
      FieldName = 'taxPrice'
      Origin = '#tMpslclineQry'
    end
    object AdoQry_MainreferencedPrice: TIntegerField
      DisplayLabel = '价格类型'
      FieldName = 'referencedPrice'
      Origin = '#tMpslclineQry'
    end
    object AdoQry_Maintaxrate: TStringField
      DisplayLabel = '税率'
      FieldName = 'taxrate'
      Origin = '#tMpslclineQry'
      ReadOnly = True
      Size = 30
    end
    object AdoQry_MaincurrencyCode: TStringField
      DisplayLabel = '货币代码'
      FieldName = 'currencyCode'
      Origin = '#tMpslclineQry'
      Size = 2
    end
    object AdoQry_MaincurrencyName: TStringField
      DisplayLabel = '货币名称'
      FieldName = 'currencyName'
      Origin = '#tMpslclineQry'
      Size = 30
    end
    object AdoQry_Maincurrencyflag: TStringField
      DisplayLabel = '货币标识'
      FieldName = 'currencyflag'
      Origin = '#tMpslclineQry'
      ReadOnly = True
      Size = 33
    end
    object AdoQry_MainslclineremArk: TStringField
      DisplayLabel = '备注'
      FieldName = 'slclineremArk'
      Origin = '#tMpslclineQry'
      Size = 60
    end
  end
  inherited DataSource: TDataSource
    Left = 312
    Top = 161
  end
end