mrp_qry_informaltotalmrp_vd.dfm

一个MRPII系统源代码版本

inherited Frm_Mrp_Qry_InformalTotalMrp_vd: TFrm_Mrp_Qry_InformalTotalMrp_vd
  Left = 211
  Top = 98
  Caption = '供应商对应表'
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    inherited ToolBar: TToolBar
      inherited TlBtn_Filter: TToolButton
        Visible = False
      end
      inherited TlBtn_Locate: TToolButton
        Visible = False
      end
      inherited TlBtn_Order: TToolButton
        Visible = False
      end
    end
  end
  inherited Pnl_Title: TPanel
    Caption = '供应商对应表'
  end
  inherited Pnl_Head: TPanel
    Height = 5
  end
  inherited Pnl_Body: TPanel
    Top = 62
    Height = 341
    inherited DBGridEh: TDBGridEh
      Height = 341
      OnDblClick = Act_LookExecute
      FrozenCols = 4
      Columns = <
        Item
          FieldName = 'Vendorflag'
          PickList.Strings = ()
          Width = 170
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorUsable'
          PickList.Strings = (
            '是'
            '否')
          Width = 55
          KeyList.Strings = (
            '1'
            '0')
        end
        Item
          FieldName = 'VendorshortName'
          PickList.Strings = ()
          Width = 67
          KeyList.Strings = ()
        end
        Item
          FieldName = 'currencyCodeName'
          PickList.Strings = ()
          Width = 63
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorAddress'
          PickList.Strings = ()
          Width = 154
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Vendoremail'
          PickList.Strings = ()
          Width = 97
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorWebPage'
          PickList.Strings = ()
          Width = 131
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Vendortel'
          PickList.Strings = ()
          Width = 66
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Vendorfax'
          PickList.Strings = ()
          Width = 52
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorQFund'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorCredit'
          PickList.Strings = ()
          Width = 47
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Vendorbank'
          PickList.Strings = ()
          Width = 56
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Vendorbankaccno'
          PickList.Strings = ()
          Width = 62
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Vendortaxrate_Percent'
          PickList.Strings = ()
          Width = 56
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Vendortaxno'
          PickList.Strings = ()
          Width = 66
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Vendorcontact'
          PickList.Strings = ()
          Width = 57
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Vendorowner'
          PickList.Strings = ()
          Width = 61
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Vendorceo'
          PickList.Strings = ()
          Width = 55
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Vendordisabletime'
          PickList.Strings = ()
          Width = 72
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorremArk'
          PickList.Strings = ()
          Width = 107
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 253
    Top = 123
  end
  inherited ActionList: TActionList
    inherited Act_Look: TAction
      Enabled = True
      Visible = True
      OnExecute = Act_LookExecute
    end
  end
  inherited AdoQry_Main: TAdoQuery
    SQL.Strings = (
      'Select Vendor.VendorCode,'
      '                        Vendor.VendorName,'
      
        '               Vendorflag=Vendor.VendorCode+'#39' '#39'+Vendor.Vendornam' +
        'e,'
      '                        Vendor.VendorshortName,'
      '                        Vendor.VendorAddress,'
      '                        Vendor.Vendoremail,'
      '                        Vendor.Vendortel,'
      '                        Vendor.Vendorfax,'
      '                        Vendor.Vendorbank,'
      '                        Vendor.VendorUsable,'
      '                        Vendor.Vendorbankaccno,'
      '                        Vendor.Vendortaxrate_Percent,'
      '                        Vendor.Vendortaxno,'
      '                        Vendor.Vendorcontact,'
      '                        Vendor.Vendorowner,'
      '                        Vendor.Vendorceo,'
      '                        Vendor.Vendorcreatetime,'
      '                        Vendor.Vendormodifytime,'
      '                        Vendor.Vendordisabletime,'
      '                        Vendor.currencyCode,'
      '                        currency.currencyName,'
      
        '                        Vendor.currencyCode+'#39' '#39'+currency.currenc' +
        'yName as currencyCodeName, '
      '                        Vendor.VendorremArk,'
      '                        Vendor.VendorQFund,'
      '                        Vendor.VendorCredit,'
      '                        Vendor.VendorWebPage,'
      '                        Vendor.VendorClass1,'
      '                        Vendor.VendorClass2,'
      '                        Vendor.VendorClass3,'
      '                        Vendor.VendorClass4,'
      '                        Vendor.VendorClass5 '
      '                 from Vendor '
      
        '                  left join currency  on Vendor.currencyCode=cur' +
        'rency.currencyCode ')
    Left = 184
    Top = 161
    object AdoQry_MaInvendorflag: TStringField
      DisplayLabel = '供应商标识'
      FieldName = 'Vendorflag'
      ReadOnly = True
      Size = 73
    end
    object AdoQry_MaInvendorCode: TStringField
      FieldName = 'VendorCode'
      Size = 12
    end
    object AdoQry_MaInvendorName: TStringField
      FieldName = 'VendorName'
      Size = 60
    end
    object AdoQry_MaInvendorshortName: TStringField
      DisplayLabel = '简称'
      FieldName = 'VendorshortName'
    end
    object AdoQry_MaInvendorAddress: TStringField
      DisplayLabel = '地址'
      FieldName = 'VendorAddress'
      Size = 60
    end
    object AdoQry_MaInvendoremail: TStringField
      DisplayLabel = 'E_mail'
      FieldName = 'Vendoremail'
      Size = 40
    end
    object AdoQry_MaInvendortel: TStringField
      DisplayLabel = '电话'
      FieldName = 'Vendortel'
      Size = 40
    end
    object AdoQry_MaInvendorfax: TStringField
      DisplayLabel = '传真'
      FieldName = 'Vendorfax'
      Size = 40
    end
    object AdoQry_MaInvendorbank: TStringField
      DisplayLabel = '开户银行'
      FieldName = 'Vendorbank'
      Size = 60
    end
    object AdoQry_MaInvendorUsable: TIntegerField
      DisplayLabel = '是否有效'
      FieldName = 'VendorUsable'
    end
    object AdoQry_MaInvendorbankaccno: TStringField
      DisplayLabel = '银行帐号'
      FieldName = 'Vendorbankaccno'
      Size = 40
    end
    object AdoQry_MaInvendortaxrate_Percent: TIntegerField
      DisplayLabel = '缺省税率'
      FieldName = 'Vendortaxrate_Percent'
    end
    object AdoQry_MaInvendortaxno: TStringField
      DisplayLabel = '税务登记号'
      FieldName = 'Vendortaxno'
      Size = 40
    end
    object AdoQry_MaInvendorcontact: TStringField
      DisplayLabel = '联系人'
      FieldName = 'Vendorcontact'
      Size = 40
    end
    object AdoQry_MaInvendorowner: TStringField
      DisplayLabel = '法人代表'
      FieldName = 'Vendorowner'
      Size = 40
    end
    object AdoQry_MaInvendorceo: TStringField
      DisplayLabel = '负责人'
      FieldName = 'Vendorceo'
      Size = 40
    end
    object AdoQry_MaInvendorcreatetime: TDateTimeField
      FieldName = 'Vendorcreatetime'
    end
    object AdoQry_MaInvendormodifytime: TDateTimeField
      FieldName = 'Vendormodifytime'
    end
    object AdoQry_MaInvendordisabletime: TDateTimeField
      DisplayLabel = '无效时间'
      FieldName = 'Vendordisabletime'
    end
    object AdoQry_MaincurrencyCode: TStringField
      FieldName = 'currencyCode'
      Size = 2
    end
    object AdoQry_MaincurrencyName: TStringField
      FieldName = 'currencyName'
      Size = 30
    end
    object AdoQry_MaincurrencyCodeName: TStringField
      DisplayLabel = '主控货币'
      FieldName = 'currencyCodeName'
      ReadOnly = True
      Size = 33
    end
    object AdoQry_MaInvendorremArk: TStringField
      DisplayLabel = '备注'
      FieldName = 'VendorremArk'
      Size = 60
    end
    object AdoQry_MaInvendorQFund: TFloatField
      DisplayLabel = '质量保证金'
      FieldName = 'VendorQFund'
    end
    object AdoQry_MaInvendorCredit: TFloatField
      DisplayLabel = '信用额'
      FieldName = 'VendorCredit'
    end
    object AdoQry_MaInvendorWebPage: TStringField
      DisplayLabel = '主页'
      FieldName = 'VendorWebPage'
      Size = 40
    end
    object AdoQry_MaInvendorClass1: TStringField
      FieldName = 'VendorClass1'
      Size = 40
    end
    object AdoQry_MaInvendorClass2: TStringField
      FieldName = 'VendorClass2'
      Size = 40
    end
    object AdoQry_MaInvendorClass3: TStringField
      FieldName = 'VendorClass3'
      Size = 40
    end
    object AdoQry_MaInvendorClass4: TStringField
      FieldName = 'VendorClass4'
      Size = 40
    end
    object AdoQry_MaInvendorClass5: TStringField
      FieldName = 'VendorClass5'
      Size = 40
    end
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 272
    Top = 193
  end
end