bas_vendor.dfm

一个MRPII系统源代码版本

inherited Frm_Bas_Vendor: TFrm_Bas_Vendor
  Left = 128
  Top = 100
  Caption = '供应商主文件'
  ClientHeight = 445
  ClientWidth = 600
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 600
    inherited ToolBar: TToolBar
      inherited ToolButton6: TToolButton
        Action = Action3
      end
    end
  end
  inherited Pnl_Title: TPanel
    Width = 600
    Caption = '供应商主文件'
    inherited Image2: TImage
      Width = 600
    end
  end
  inherited Pnl_Head: TPanel
    Width = 600
    inherited Image1: TImage
      Width = 600
    end
    inherited Lbl_Order: TLabel
      Width = 6
      Caption = ''
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 419
    Width = 600
    inherited Image4: TImage
      Width = 600
    end
    object Label1: TLabel
      Left = 27
      Top = 9
      Width = 108
      Height = 12
      Caption = '当前行供应商名称：'
    end
    object DBText1: TDBText
      Left = 136
      Top = 9
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'VendorName'
      DataSource = DataSource
    end
  end
  inherited Pnl_Body: TPanel
    Width = 600
    Height = 322
    inherited Image3: TImage
      Width = 600
      Height = 322
    end
    inherited DBGridEh: TDBGridEh
      Width = 600
      Height = 322
      FrozenCols = 2
      Columns = <
        Item
          FieldName = 'VendorCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '供应商代码'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '供应商名称'
          Width = 200
          KeyList.Strings = ()
        end
        Item
          Alignment = taCenter
          FieldName = 'VendorUsable'
          PickList.Strings = (
            '否'
            '是')
          Title.Alignment = taCenter
          Title.Caption = '是否有效'
          KeyList.Strings = (
            '0'
            '1')
        end
        Item
          FieldName = 'VendorSHORTName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '供应商简称'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'currencyCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '主控货币'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorAdDRESS'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '供应商地址'
          Width = 150
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorEMAIL'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = 'E_mail'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorWebPage'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '主页'
          Width = 150
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorTEL'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '电话'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorFAX'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '传真'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorQFund'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '质量保证金'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorCredit'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '信用额'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorBANK'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '开户银行'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorBANKACCNO'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '银行帐号'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorTAXRATE_PERCENT'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '缺省税率'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorTAXNO'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '税务登记号'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorCONTACT'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '联系人'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorOWNER'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '法人代表'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorCEO'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '负责人'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Vendordisabletime'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '无效时间'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorCREATETIME'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '建立日期'
          Width = 100
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorMODIFYTIME'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '最近修改日期'
          Width = 100
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'AreaCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '区域代码'
          Width = 55
          KeyList.Strings = ()
        end
        Item
          FieldName = 'AreaName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '区域名称'
          Width = 91
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorREMArK'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorClass1'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorClass2'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorClass3'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = 'VendorClass'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorClass4'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = 'VendorClass'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorClass5'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = 'VendorClass'