⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 inv_priceaudit_poblnc_b.dfm

📁 一个MRPII系统源代码版本
💻 DFM
字号:
inherited Frm_Inv_PriceAudit_PoBlnc_B: TFrm_Inv_PriceAudit_PoBlnc_B
  Left = 5
  Top = 19
  Caption = '采购入库核价'
  Windowstate = wsMaximized
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '采购入库核价'
  end
  inherited Pnl_Head: TPanel
    object Label1: TLabel
      Left = 16
      Top = 16
      Width = 48
      Height = 12
      Caption = '订单号:'
    end
    object lbl_Pono: TLabel
      Left = 64
      Top = 16
      Width = 6
      Height = 12
    end
    object Label2: TLabel
      Left = 160
      Top = 16
      Width = 48
      Height = 12
      Caption = '供应商:'
    end
    object lbl_Vendor: TLabel
      Left = 208
      Top = 16
      Width = 6
      Height = 12
    end
    object Label3: TLabel
      Left = 480
      Top = 16
      Width = 36
      Height = 12
      Caption = '货币:'
    end
    object lbl_Currency: TLabel
      Left = 520
      Top = 16
      Width = 6
      Height = 12
    end
    object Label4: TLabel
      Left = 616
      Top = 16
      Width = 36
      Height = 12
      Caption = '税率:'
    end
    object lbl_taxrate: TLabel
      Left = 656
      Top = 16
      Width = 6
      Height = 12
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 280
    Height = 188
    object DBGridEh1: TDBGridEh
      Left = 0
      Top = 0
      Width = 768
      Height = 188
      Align = alClient
      DataSource = DataSource1
      ReadOnly = True
      TabOrder = 0
      TitleFont.ChArset = GB2312_CHArSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      Columns = <
        Item
          FieldName = 'InvBillStkchck'
          PickList.Strings = (
            '是'
            '否')
          Title.Alignment = taCenter
          Title.Caption = '己核价'
          Width = 50
          KeyList.Strings = (
            '1'
            '0')
          Checkboxes = True
        end
        Item
          FieldName = 'InvBillfinchck'
          PickList.Strings = (
            '是'
            '否')
          Title.Alignment = taCenter
          Title.Caption = '发票匹配标志'
          Width = 80
          KeyList.Strings = (
            '1'
            '0')
          Checkboxes = True
        end
        Item
          FieldName = 'PriceAudittimes'
          Title.Alignment = taCenter
          Title.Caption = '核价次数'
          Width = 60
        end
        Item
          FieldName = 'InvBillno'
          Title.Alignment = taCenter
          Title.Caption = '单据号'
          Width = 90
        end
        Item
          FieldName = 'InvBilldate'
          Title.Alignment = taCenter
          Title.Caption = '单据日期'
          Width = 90
        end
        Item
          FieldName = 'InvBillqty'
          Title.Alignment = taCenter
          Title.Caption = '入库数量'
          Width = 90
        end
        Item
          FieldName = 'InvBillPrice'
          Title.Alignment = taCenter
          Title.Caption = '含税价'
          Width = 90
        end
        Item
          FieldName = 'InvBillAmount'
          Title.Alignment = taCenter
          Title.Caption = '含税金额'
          Width = 90
        end>
    end
  end
  inherited Pnl_Body: TPanel
    Height = 170
    inherited DBGridEh: TDBGridEh
      Height = 170
      Columns = <
        Item
          FieldName = 'polineno'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '订单行号'
          Width = 60
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料标识'
          Width = 250
          KeyList.Strings = ()
        end
        Item
          FieldName = 'poqty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '约定交货量'
          Width = 70
          KeyList.Strings = ()
        end
        Item
          Alignment = taCenter
          FieldName = 'poreferencedPrice'
          PickList.Strings = (
            '是'
            '否')
          Title.Alignment = taCenter
          Title.Caption = '暂估价'
          Width = 50
          KeyList.Strings = (
            '1'
            '0')
        end
        Item
          FieldName = 'potaxPrice'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '含税价'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'potaxAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '含税金额'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'realpotaxPrice'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '实际含税价'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'realpotaxAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '实际含税金额'
          Width = 80
          KeyList.Strings = ()
        end>
    end
  end
  inherited ActionList: TActionList
    inherited Act_New: TAction
      Visible = False
    end
    inherited Act_InsertLine: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_DeleteLine: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_Hint: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_Print: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_Preview: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_Excel: TAction
      Enabled = False
      Visible = False
    end
  end
  inherited AdoQry_Body: TAdoQuery
    AfterPost = AdoQry_BodyAfterPost
  end
  inherited DataSource: TDataSource
    OnDataChange = DataSourceDataChange
  end
  object AdoQry_Detail: TAdoQuery
    LockType = ltBatchOptimistic
    Parameters = <>
    Left = 368
    Top = 400
  end
  object DataSource1: TDataSource
    DataSet = AdoQry_Detail
    Left = 296
    Top = 400
  end
end

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -