usel_kh.dfm

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

inherited frmSel_Kh: TfrmSel_Kh
  Left = 203
  Caption = '客户选择'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  inherited Panel2: TPanel
    inherited DBGridEh1: TDBGridEh
      Columns = <
        item
          FieldName = 'Code'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '编号'
          Width = 105
          KeyList.Strings = ()
          Footers = <>
        end
        item
          FieldName = 'Name'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '名称'
          Width = 204
          KeyList.Strings = ()
          Footers = <>
        end>
    end
  end
  inherited ADOQry: TADOQuery
    SQL.Strings = (
      'SELECT nACode AS Code, nATCode AS TCode, nAName AS Name'
      'FROM s_ADDrClass'
      'ORDER BY nATCode'
      '')
  end
  inherited QrySel: TADOQuery
    CursorType = ctStatic
    SQL.Strings = (
      'Select Code,Name,TCode from V_Customer')
  end
end