usel_person.dfm

来自「相关的销售服务管理行业的一个软件」· DFM 代码 · 共 43 行

inherited frmSel_Person: TfrmSel_Person
  Left = 211
  Top = 185
  Caption = '人员选择'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  inherited Panel2: TPanel
    inherited DBGridEh1: TDBGridEh
      Columns = <
        item
          FieldName = 'Code'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '编号'
          KeyList.Strings = ()
          Footers = <>
        end
        item
          FieldName = 'Name'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '名称'
          Width = 246
          KeyList.Strings = ()
          Footers = <>
        end>
    end
  end
  inherited ADOQry: TADOQuery
    SQL.Strings = (
      'SELECT nDCode AS Code, nDTCode AS TCode, nDName AS Name'
      'FROM s_Dept'
      'ORDER BY nDTCode')
  end
  inherited QrySel: TADOQuery
    CursorType = ctStatic
    SQL.Strings = (
      'Select Code,Name,TCode from V_Person'
      '')
  end
end