inv_cancelvaluation.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_CancelValuation: TFrm_Inv_CancelValuation
  Left = 11
  Top = 66
  Caption = '暂估价处理取消'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '暂估价处理取消'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Condition: TLabel
      Width = 84
      Caption = '行状态：己审核'
    end
    inherited Lbl_Order: TLabel
      Width = 66
      Caption = '仓库/单据号'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 415
    Height = 26
    inherited Image4: TImage
      Height = 26
    end
    object Label1: TLabel
      Left = 8
      Top = 8
      Width = 72
      Height = 12
      Caption = '当前供应商：'
    end
    object DBText1: TDBText
      Left = 79
      Top = 8
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'VendorName'
      DataSource = DataSource
    end
  end
  inherited Pnl_Body: TPanel
    Height = 318
    inherited Image3: TImage
      Height = 318
    end
    inherited DBGridEh: TDBGridEh
      Height = 318
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = False
      OnDblClick = DBGridEhDblClick
      Columns = <
        Item
          FieldName = 'InvBilltmpflag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '己核标记'
          Width = 50
          KeyList.Strings = (
            '1'
            '0')
          Checkboxes = True
        end
        Item
          FieldName = 'whCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '仓库'
          Width = 120
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillno'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '单据号'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBilldate'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '单据日期'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BillTypeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '单据类型'
          Width = 150
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorCode'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '供应商代码'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorName'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '供应商名称'
          Width = 230
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WhPositionCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货位'
          Width = 150
          KeyList.Strings = ()
        end
        Item
          FieldName = 'whCode'
          PickList.Strings = ()
          Title.Caption = '仓库代码'
          Visible = False
          KeyList.Strings = ()
        end>
    end
  end
  inherited ActionList: TActionList
    inherited Act_CancelCheck: TAction
      OnExecute = Act_CancelCheckExecute
    end
    inherited Act_Look: TAction
      Enabled = True
      Visible = True
      OnExecute = Act_LookExecute
    end
    inherited Act_Check: TAction
      OnExecute = Act_CheckExecute
    end
  end
  inherited AdoQry_Head: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm_B;Data Source=192.168.0.' +
      '151;Use procedure for Prepare=1;Auto Translate=True;Packet Size=' +
      '4096;Workstation ID=XYB'
    SQL.Strings = (
      '           select '
      '          InvInBill.InvBillid,'
      '          InvInBill.InvBilltmpflag,'
      '          InvInBill.whCode+'#39' '#39'+w.whName as whCodeName,'
      '          InvInBill.InvBillno,'
      '          InvInBill.whCode,'
      '          InvInBill.InvBilldate,'
      '          InvInBill.InvBillMonth,'
      '          InvInBill.InvBillremArk,'
      '          InvInBill.InvBilltaxrate,'
      '          InvInBill.InvBillValuation,'
      '          InvInBill.currencyCode,'
      '          InvInBill.BillTypeCode,'
      
        '          InvInBill.BillTypeCode+'#39' '#39'+b.BillTypeName as BillTypen' +
        'ame,'
      '          InvInBill.pono,'
      '          c.currencyName,'
      '          InvInBill.VendorCode,'
      '          v.VendorName,'
      '          InvInBill.InvBillwhchck,'
      '          InvInBill.InvBillStkchck,'
      
        '          InvInBill.WhPositionCode+'#39' '#39'+p.WhPositionName as whpos' +
        'itionCodeName '
      '    from InvInBill  '
      '    left join Vendor V on InvInBill.VendorCode=V.VendorCode '
      '    left join Warehouse w on InvInBill.whCode=w.whCode '
      
        '    left join BillType b on InvInBill.BillTypeCode=b.BillTypecod' +
        'e '
      
        '    left join WhPosition p on InvInBill.whCode=p.whCode and InvI' +
        'nBill.WhPositionCode=p.WhPositionCode '
      
        '    left join currency c on InvInBill.currencyCode=c.currencycod' +
        'e ')
    object AdoQry_HeadInvBillid: TFloatField
      FieldName = 'InvBillid'
      ReadOnly = True
    end
    object AdoQry_HeadInvBilltmpflag: TIntegerField
      FieldName = 'InvBilltmpflag'
    end
    object AdoQry_HeadwhCodeName: TStringField
      FieldName = 'whCodeName'
      ReadOnly = True
      Size = 45
    end
    object AdoQry_HeadInvBillno: TStringField
      FieldName = 'InvBillno'
      Origin = 'InvInBill'
      Size = 10
    end
    object AdoQry_HeadInvBilldate: TDateTimeField
      FieldName = 'InvBilldate'
      Origin = 'InvInBill'
    end
    object AdoQry_HeadInvBillMonth: TStringField
      FieldName = 'InvBillMonth'
      FixedChAr = True
      Size = 7
    end
    object AdoQry_HeadInvBillremArk: TStringField
      FieldName = 'InvBillremArk'
      Size = 250
    end
    object AdoQry_HeadInvBilltaxrate: TFloatField
      FieldName = 'InvBilltaxrate'
    end
    object AdoQry_HeadInvBillValuation: TIntegerField
      FieldName = 'InvBillValuation'
    end
    object AdoQry_HeadcurrencyCode: TStringField
      FieldName = 'currencyCode'
      Size = 2
    end
    object AdoQry_HeadBillTypeCode: TStringField
      FieldName = 'BillTypeCode'
      Origin = 'InvInBill'
      Size = 4
    end
    object AdoQry_Headpono: TStringField
      FieldName = 'pono'
      Size = 16
    end
    object AdoQry_HeadcurrencyName: TStringField
      FieldName = 'currencyName'
      Size = 30
    end
    object AdoQry_HeadVendorCode: TStringField
      FieldName = 'VendorCode'
      Origin = 'InvInBill'
      Size = 12
    end
    object AdoQry_HeadVendorName: TStringField
      FieldName = 'VendorName'
      Size = 60
    end
    object AdoQry_HeadInvBillwhchck: TIntegerField
      FieldName = 'InvBillwhchck'
    end
    object AdoQry_HeadInvBillStkchck: TIntegerField
      FieldName = 'InvBillStkchck'
    end
    object AdoQry_HeadWhPositionCodeName: TStringField
      FieldName = 'WhPositionCodeName'
      ReadOnly = True
      Size = 45
    end
    object AdoQry_HeadwhCode: TStringField
      FieldName = 'whCode'
      Origin = 'InvInBill'
      Size = 4
    end
    object AdoQry_HeadBillTypeName: TStringField
      FieldName = 'BillTypeName'
      ReadOnly = True
      Size = 25
    end
  end
end