pm_qry_freepo.dfm

来自「一个MRPII系统源代码版本」· DFM 代码 · 共 457 行

inherited Frm_Pm_Qry_FreePo: TFrm_Pm_Qry_FreePo
  Left = 80
  Top = 106
  Caption = '独立采购订单列表查询'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '独立采购订单列表查询'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Condition: TLabel
      Width = 36
      Caption = '未关闭'
    end
    inherited Lbl_Order: TLabel
      Width = 114
      Caption = '物料代码/约定交货日'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 376
    Height = 53
    object Label3: TLabel
      Left = 560
      Top = 8
      Width = 48
      Height = 12
      Caption = '行状态：'
    end
    object dbtxtFinishrate: TDBText
      Left = 604
      Top = 7
      Width = 90
      Height = 12
      AutoSize = True
      DataField = 'linestatus'
      DataSource = DataSource
    end
    object dbtxTEmployeeflag: TDBText
      Left = 85
      Top = 8
      Width = 102
      Height = 12
      AutoSize = True
      DataField = 'Employeeflag'
      DataSource = DataSource
    end
    object dbtxtVendorflag: TDBText
      Left = 85
      Top = 24
      Width = 90
      Height = 12
      AutoSize = True
      DataField = 'Vendorflag'
      DataSource = DataSource
    end
    object dbtxtItemflag: TDBText
      Left = 85
      Top = 40
      Width = 78
      Height = 12
      AutoSize = True
      DataField = 'Itemflag'
      DataSource = DataSource
    end
    object Label1: TLabel
      Left = 23
      Top = 40
      Width = 60
      Height = 12
      Caption = '物料标识：'
    end
    object Label2: TLabel
      Left = 11
      Top = 24
      Width = 72
      Height = 12
      Caption = '供应商标识：'
    end
    object Label4: TLabel
      Left = 11
      Top = 8
      Width = 72
      Height = 12
      Caption = '业务员标识：'
    end
  end
  inherited Pnl_Body: TPanel
    Height = 279
    inherited DBGridEh: TDBGridEh
      Height = 279
      FrozenCols = 4
      Columns = <
        Item
          FieldName = 'Employeeflag'
          PickList.Strings = ()
          Width = 150
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeCode'
          PickList.Strings = ()
          Width = 72
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeName'
          PickList.Strings = ()
          Width = 117
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'pcno'
          PickList.Strings = ()
          Width = 66
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PoNo'
          PickList.Strings = ()
          Width = 65
          KeyList.Strings = ()
        end
        Item
          FieldName = 'POLINENo'
          PickList.Strings = ()
          Title.Caption = '订单行号'
          Width = 50
          KeyList.Strings = ()
        end
        Item
          FieldName = 'podate'
          PickList.Strings = ()
          Width = 57
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Vendorflag'
          PickList.Strings = ()
          Width = 150
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorCode'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorName'
          PickList.Strings = ()
          Width = 134
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Itemflag'
          PickList.Strings = ()
          Width = 200
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Width = 90
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Width = 200
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'POStArtWorkDate'
          PickList.Strings = ()
          Width = 70
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'POLineDATE'
          PickList.Strings = ()
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'POQTY'
          PickList.Strings = ()
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PONoFinishQty'
          PickList.Strings = ()
          Width = 43
          KeyList.Strings = ()
        end
        Item
          FieldName = 'linestatus'
          PickList.Strings = ()
          Width = 43
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PoTaxPrice'
          PickList.Strings = ()
          Width = 42
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PoTaxAmount'
          PickList.Strings = ()
          Width = 57
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PoNoTaxPrice'
          PickList.Strings = ()
          Width = 40
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PONoTaxAmount'
          PickList.Strings = ()
          Width = 60
          KeyList.Strings = ()
        end>
    end
  end
  inherited ActionList: TActionList
    Left = 208
    Top = 152
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm_B;Data Source=192.168.0.' +
      '151'
    CurSorType = ctStatic
    SQL.Strings = (
      
        'Select Po.PoNo,po.Vendorordinal,po.podate,po.pcno,Po.Employeecod' +
        'e,'
      '       Employee.EmployeeName,'
      '       Po.VendorCode,'
      '       Po.PoType,'
      '       PoLine.*,Item.ItemCode,'
      '                 Item.ItemName,'
      '       Item.UomCode,'
      '       Uom.UomName,'
      '       Vendor.VendorName,'
      '       Vendorflag=po.VendorCode+'#39' '#39'+Vendor.VendorName,'
      '       Itemflag=Item.ItemCode+Item.ItemName,'
      '       Employeeflag=po.EmployeeCode+'#39' '#39'+Employee.EmployeeName,'
      '                 linestatus= case poline.polinestatus  '
      '                         when 5 then '#39'5 准备'#39' '
      '                         when 6 then '#39'6 下达'#39' '
      '                         when 7 then '#39'7 关闭'#39' '
      '                         when 8 then '#39'8 永久关闭'#39' '
      '                      end  '
      '             From PoLine'
      
        '                   left outer Join Item On PoLine.ItemCode=Item.' +
        'ItemCode'
      '                  Join Po On PoLine.PoNo=Po.PoNo'
      '                  and  po.PoSpecial=1'
      
        '                  left outer join Employee on Po.EmployeeCode=Em' +
        'ployee.EmployeeCode'
      
        '                  Left outer Join Vendor On Po.VendorCode=Vendor' +
        '.VendorCode'
      
        '                  Left Outer Join Uom On Item.UomCode=Uom.UomCod' +
        'e')
    Left = 352
    Top = 233
    object AdoQry_MainPoNo: TStringField
      DisplayLabel = '采购订单号'
      FieldName = 'PoNo'
      Origin = 'poline'
      Size = 16
    end
    object AdoQry_MainEmployeeCode: TStringField
      DisplayLabel = '采购员代码'
      FieldName = 'EmployeeCode'
      Origin = 'Employee'
      Size = 30
    end
    object AdoQry_MainEmployeeName: TStringField
      DisplayLabel = '采购员名称'
      FieldName = 'EmployeeName'
      Origin = 'Employee'
      Size = 60
    end
    object AdoQry_MaInvendorCode: TStringField
      DisplayLabel = '供应商编号'
      FieldName = 'VendorCode'
      Origin = 'Vendor'
      Size = 12
    end
    object AdoQry_MainPoType: TIntegerField
      FieldName = 'PoType'
    end
    object AdoQry_MainPONO_1: TStringField
      FieldName = 'PONO_1'
      Size = 16
    end
    object AdoQry_MainPOLINENo: TIntegerField
      DisplayLabel = '行号'
      FieldName = 'POLINENo'
    end
    object AdoQry_MainItemCode: TStringField
      DisplayLabel = '物料代码'
      FieldName = 'ItemCode'
      Origin = 'Item'
      Size = 16
    end
    object AdoQry_MainPOLineDATE: TDateTimeField
      DisplayLabel = '约定交货日'
      FieldName = 'POLineDATE'
      Origin = 'poline'
    end
    object AdoQry_MainPOQTY: TFloatField
      DisplayLabel = '约定交货量'
      FieldName = 'POQTY'
      Origin = 'poline'
    end
    object AdoQry_MainPONoFinishQty: TFloatField
      DisplayLabel = '未结量'
      FieldName = 'PONoFinishQty'
      Origin = 'poline'
    end
    object AdoQry_MainPOREFERENCEDPRICE: TIntegerField
      FieldName = 'POREFERENCEDPRICE'
      Origin = 'poline'
    end
    object AdoQry_MainPOLINESTATUS: TIntegerField
      DisplayLabel = '行状态'
      FieldName = 'POLINESTATUS'
      Origin = 'poline'
    end
    object AdoQry_MainPoNoTaxPrice: TFloatField
      DisplayLabel = '未税价'
      FieldName = 'PoNoTaxPrice'
      Origin = 'poline'
      DisplayFormat = '##.##'
    end
    object AdoQry_MainPONoTaxAmount: TBCDField
      DisplayLabel = '未税金额'
      FieldName = 'PONoTaxAmount'
      Origin = 'poline'
      DisplayFormat = '##.##'
      Precision = 18
      Size = 2
    end
    object AdoQry_MainPoTaxPrice: TFloatField
      DisplayLabel = '含税价'
      FieldName = 'PoTaxPrice'
      Origin = 'poline'
      DisplayFormat = '##.##'
    end
    object AdoQry_MainPoTaxAmount: TBCDField
      DisplayLabel = '含税金额'
      FieldName = 'PoTaxAmount'
      Origin = 'poline'
      DisplayFormat = '##.##'
      Precision = 18
      Size = 2
    end
    object AdoQry_MainPOStArtWorkDate: TDateTimeField
      DisplayLabel = '约定开工日'
      FieldName = 'POStArtWorkDate'
      Origin = 'poline'
    end
    object AdoQry_MainPoRealInQty: TFloatField
      FieldName = 'PoRealInQty'
    end
    object AdoQry_MainPoInQty: TFloatField
      FieldName = 'PoInQty'
    end
    object AdoQry_MainItemCode_1: TStringField
      FieldName = 'ItemCode_1'
      Size = 16
    end
    object AdoQry_MainItemName: TStringField
      DisplayLabel = '物料描述'
      FieldName = 'ItemName'
      Origin = 'Item'
      Size = 60
    end
    object AdoQry_MainUomCode: TStringField
      FieldName = 'UomCode'
      Size = 4
    end
    object AdoQry_MainUomName: TStringField
      FieldName = 'UomName'
      Size = 10
    end
    object AdoQry_MaInvendorName: TStringField
      DisplayLabel = '供应商名称'
      FieldName = 'VendorName'
      Origin = 'Vendor'
      Size = 60
    end
    object AdoQry_Mainlinestatus: TStringField
      DisplayLabel = '行状态'
      FieldName = 'linestatus'
      Origin = 'poline'
      ReadOnly = True
      Size = 10
    end
    object AdoQry_Mainpodate: TDateTimeField
      DisplayLabel = '下单日期'
      FieldName = 'podate'
    end
    object AdoQry_Mainpcno: TStringField
      DisplayLabel = '采购合同号'
      FieldName = 'pcno'
      Size = 16
    end
    object AdoQry_MaInvendorflag: TStringField
      DisplayLabel = '供应商标识'
      FieldName = 'Vendorflag'
      ReadOnly = True
      Size = 73
    end
    object AdoQry_MainItemflag: TStringField
      DisplayLabel = '物料标识'
      FieldName = 'Itemflag'
      ReadOnly = True
      Size = 76
    end
    object AdoQry_MainEmployeeflag: TStringField
      DisplayLabel = '采购员标识'
      FieldName = 'Employeeflag'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_MaInvendorordinal: TIntegerField
      DisplayLabel = '供应商订单序列号'
      FieldName = 'Vendorordinal'
      Origin = 'po'
    end
  end
  inherited DataSource: TDataSource
    Top = 161
  end
end