inv_priceaudit_h.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_PriceAudit_H: TFrm_Inv_PriceAudit_H
  Left = -18
  Top = 68
  Caption = ''
  Windowstate = wsMaximized
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Head: TPanel
    inherited Lbl_ConditionTitle: TLabel
      Visible = False
    end
    inherited Lbl_Order: TLabel
      Width = 96
      Caption = '仓库代码，单据号'
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      Columns = <
        Item
          FieldName = 'InvBillStkchck'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '己核标记'
          Width = 50
          KeyList.Strings = (
            '1'
            '0')
          Checkboxes = True
        end
        Item
          FieldName = 'PriceAuditTimes'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '己核次数'
          Width = 50
          KeyList.Strings = ()
        end
        Item
          FieldName = 'whCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '仓库'
          Width = 120
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillno'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '单据号'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBilldate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '单据日期'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BillTypeCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '单据类型'
          Width = 150
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '供应商代码'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorName'
          PickList.Strings = ()
          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.Alignment = taCenter
          Title.Caption = '仓库代码'
          Visible = False
          KeyList.Strings = ()
        end>
    end
  end
  inherited ActionList: TActionList
    inherited Act_New: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_Delete: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_Look: TAction
      Enabled = False
      Visible = False
    end
  end
  inherited AdoQry_Head: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm;Data Source=192.168.0.15' +
      '1'
    CurSorType = ctStatic
    SQL.Strings = (
      'select '
      '                    i.InvBillid,'
      '                    i.whCode, '
      '                    i.whCode+'#39' '#39'+w.whName as whCodeName,'
      '                    i.InvBillno,'
      '                    i.InvBilldate,'
      '                    i.InvBillMonth,'
      '                    i.InvBillremArk,'
      '                    i.PriceAuditTimes,'
      '                    i.InvBilltaxrate,'
      '                    i.VendorCode,'
      ' i.bluered,'
      'i.Sourceno,   '
      '                    i.currencyCode,'
      '                    i.BillTypeCode,'
      '                    b.BillTypeName, '
      
        '                    i.BillTypeCode+'#39' '#39'+b.BillTypeName as Billtyp' +
        'eCodeName,'
      '                    c.currencyName,  '
      '                    i.InvBillValuation,'
      '                                       i.BillType2Code,'
      'i.opBill,'
      '                    i.pono,'
      '                    v.VendorName,'
      '                    i.InvBillwhchck,'
      '                    i.InvBillStkchck,'
      '                                        i.realBillflag,'
      
        '                    i.WhPositionCode+'#39' '#39'+p.WhPositionName as whp' +
        'ositionCodeName,'
      '          i.VendorBillno  '
      '    from InvInBill i '
      '    left join Vendor V on i.VendorCode=V.VendorCode '
      '    left join currency c on i.currencyCode=c.currencyCode'
      '    left join Warehouse w on i.whCode=w.whCode '
      '    left join BillType b on i.BillTypeCode=b.BillTypeCode'
      '    left join WhPosition p on i.WhPositionCode=p.WhPositionCode '
      'where i.InvBillStkchck=0 and i.InvBillno='#39'-1'#39)
    object AdoQry_HeadInvBillid: TBCDField
      FieldName = 'InvBillid'
      ReadOnly = True
      Precision = 18
      Size = 0
    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_HeadInvBillremArk: TStringField
      FieldName = 'InvBillremArk'
      Size = 60
    end
    object AdoQry_HeadVendorCode: TStringField
      FieldName = 'VendorCode'
      Origin = 'InvInBill'
      Size = 12
    end
    object AdoQry_HeadInvBillValuation: TIntegerField
      FieldName = 'InvBillValuation'
    end
    object AdoQry_HeadVendorName: TStringField
      FieldName = 'VendorName'
      Origin = 'Vendor'
      Size = 60
    end
    object AdoQry_HeadInvBillwhchck: TIntegerField
      FieldName = 'InvBillwhchck'
    end
    object AdoQry_HeadWhPositionCodeName: TStringField
      FieldName = 'WhPositionCodeName'
      ReadOnly = True
      Size = 45
    end
    object AdoQry_HeadInvBilltaxrate: TFloatField
      FieldName = 'InvBilltaxrate'
    end
    object AdoQry_Headpono: TStringField
      FieldName = 'pono'
      Size = 16
    end
    object AdoQry_HeadcurrencyCode: TStringField
      FieldName = 'currencyCode'
      Size = 2
    end
    object AdoQry_HeadcurrencyName: TStringField
      FieldName = 'currencyName'
      Size = 30
    end
    object AdoQry_HeadBillTypeCode: TStringField
      FieldName = 'BillTypeCode'
      Size = 4
    end
    object AdoQry_HeadBillTypeCodeName: TStringField
      FieldName = 'BillTypeCodeName'
      ReadOnly = True
      Size = 25
    end
    object AdoQry_HeadInvBillStkchck: TIntegerField
      FieldName = 'InvBillStkchck'
      Origin = 'InvInBill'
    end
    object AdoQry_HeadInvBillMonth: TStringField
      FieldName = 'InvBillMonth'
      Origin = 'InvInBill'
      FixedChAr = True
      Size = 7
    end
    object AdoQry_HeadwhCode: TStringField
      FieldName = 'whCode'
      Origin = 'InvInBill'
      Size = 4
    end
    object AdoQry_HeadPriceAuditTimes: TIntegerField
      FieldName = 'PriceAuditTimes'
    end
    object AdoQry_HeadBillTypeName: TStringField
      FieldName = 'BillTypeName'
    end
    object AdoQry_HeadrealBillflag: TIntegerField
      FieldName = 'realBillflag'
    end
    object AdoQry_Headbluered: TStringField
      FieldName = 'bluered'
      Size = 1
    end
    object AdoQry_HeadSourceno: TStringField
      FieldName = 'Sourceno'
      Size = 16
    end
    object AdoQry_HeadVendorBillno: TStringField
      FieldName = 'VendorBillno'
      Size = 50
    end
    object AdoQry_HeadBillType2Code: TStringField
      FieldName = 'BillType2Code'
      Size = 4
    end
    object AdoQry_HeadopBill: TIntegerField
      FieldName = 'opBill'
    end
  end
end