usel_base.dfm

相关的销售服务管理行业的一个软件

object frmSel_Base: TfrmSel_Base
  Left = 153
  Top = 205
  Width = 544
  Height = 302
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSizeToolWin
  Caption = 'frmSel_Base'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnHide = FormHide
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter
    Left = 185
    Top = 0
    Width = 3
    Height = 275
    Cursor = crHSplit
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 185
    Height = 275
    Align = alLeft
    TabOrder = 0
    object Tv: TTreeView
      Left = 1
      Top = 1
      Width = 183
      Height = 273
      Align = alClient
      HideSelection = False
      Indent = 19
      PopupMenu = PmTree
      ReadOnly = True
      RowSelect = True
      SortType = stData
      TabOrder = 0
      OnClick = TvClick
      OnKeyUp = TvKeyUp
    end
  end
  object Panel2: TPanel
    Left = 188
    Top = 0
    Width = 348
    Height = 275
    Align = alClient
    TabOrder = 1
    object DBGridEh1: TDBGridEh
      Left = 1
      Top = 1
      Width = 346
      Height = 273
      LineColor = clBlack
      SelectedFontColor = clHighlightText
      Align = alClient
      DataSource = DataSource1
      ImeName = '王码五笔型输入法86版'
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      OnCellClick = DBGridEh1CellClick
      OnKeyPress = DBGridEh1KeyPress
      FooterFont.Charset = ANSI_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = '宋体'
      FooterFont.Style = []
      FooterColor = clWindow
      UseMultiTitle = True
      CurrencyStyle.CurrencyFont.Charset = DEFAULT_CHARSET
      CurrencyStyle.CurrencyFont.Color = clWindowText
      CurrencyStyle.CurrencyFont.Height = -11
      CurrencyStyle.CurrencyFont.Name = 'MS Sans Serif'
      CurrencyStyle.CurrencyFont.Style = []
      CurrencyStyle.CurrencySymbol = '￥'
      CurrencyStyle.CompartColor = clSilver
      CurrencyStyle.KilobitColor = clGreen
      CurrencyStyle.RadixColor = clRed
      CurrencyStyle.ShowMinus = True
      CurrencyStyle.ShowZero = False
      CurrencyStyle.MinusColor = clRed
      CurrencyStyle.Layout = tlCenter
      CurrencyStyle.HeadFont.Charset = DEFAULT_CHARSET
      CurrencyStyle.HeadFont.Color = clWindowText
      CurrencyStyle.HeadFont.Height = -11
      CurrencyStyle.HeadFont.Name = '楷体_GB2312'
      CurrencyStyle.HeadFont.Style = []
    end
  end
  object ADOQry: TADOQuery
    Parameters = <>
    SQL.Strings = (
      'SELECT nGcCode AS Code, nGcTCode AS TCode, nGcName AS Name'
      'FROM s_GoodClass'
      'ORDER BY nGcTCode')
    Left = 42
    Top = 82
  end
  object PmTree: TPopupMenu
    Left = 120
    Top = 276
    object N1: TMenuItem
      Caption = '全部展开'
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = '全部收缩'
      OnClick = N2Click
    end
  end
  object DataSource1: TDataSource
    DataSet = QrySel
    Left = 388
    Top = 24
  end
  object QrySel: TADOQuery
    Parameters = <>
    SQL.Strings = (
      'Select Code,Name,TCode,nGdUnit,nGdGg from V_Goods')
    Left = 420
    Top = 24
  end
end