uvipcard.dfm

程序採用了无状态连接池的三层结构

inherited frmvipcard: Tfrmvipcard
  Left = 210
  Top = 157
  Height = 378
  Caption = #20250#21592#21345#35774#32622
  PixelsPerInch = 96
  TextHeight = 12
  inherited CoolBar1: TCoolBar
    Top = 317
  end
  inherited Grid: TDBGridEh
    Height = 317
    Columns = <
      item
        EditButtons = <>
        FieldName = 'fid'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #24207#21495
      end
      item
        EditButtons = <>
        FieldName = 'fcode'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21345#21495
      end
      item
        EditButtons = <>
        FieldName = 'fname'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21517#31216
        Width = 100
      end
      item
        EditButtons = <>
        FieldName = 'fserver'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #26381#21153#20248#24800
      end
      item
        EditButtons = <>
        FieldName = 'fproduce'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #20135#21697#20248#24800
      end
      item
        EditButtons = <>
        FieldName = 'fnote'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #22791#27880
        Width = 160
      end>
  end
  inherited CDSbaseinfo: TClientDataSet
    object CDSbaseinfofid: TAutoIncField
      FieldName = 'fid'
      ReadOnly = True
    end
    object CDSbaseinfofcode: TWideStringField
      FieldName = 'fcode'
      Size = 12
    end
    object CDSbaseinfofname: TWideStringField
      FieldName = 'fname'
    end
    object CDSbaseinfofserver: TBCDField
      FieldName = 'fserver'
      Precision = 9
      Size = 2
    end
    object CDSbaseinfofproduce: TBCDField
      FieldName = 'fproduce'
      Precision = 9
      Size = 2
    end
    object CDSbaseinfofnote: TWideStringField
      FieldName = 'fnote'
      Size = 50
    end
  end
  inherited frBaseinfo: TfrReport
    ReportForm = {19000000}
  end
  object ADOTable1: TADOTable
    Active = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=leaders;Data Source=LIUXIANG'
    CursorType = ctStatic
    TableName = 'vvipcard'
    Left = 184
    Top = 168
    object ADOTable1fid: TAutoIncField
      FieldName = 'fid'
      ReadOnly = True
    end
    object ADOTable1fcode: TWideStringField
      FieldName = 'fcode'
      Size = 12
    end
    object ADOTable1fname: TWideStringField
      FieldName = 'fname'
    end
    object ADOTable1fserver: TBCDField
      FieldName = 'fserver'
      Precision = 9
      Size = 2
    end
    object ADOTable1fproduce: TBCDField
      FieldName = 'fproduce'
      Precision = 9
      Size = 2
    end
    object ADOTable1fnote: TWideStringField
      FieldName = 'fnote'
      Size = 50
    end
  end
end