u_datasetup.dfm

本程序主要实现了动态获取多个共享ACCESS数据库数据的功能

object Frm_DataSetup: TFrm_DataSetup
  Left = 379
  Top = 176
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #25968#25454#24211#35774#32622
  ClientHeight = 397
  ClientWidth = 394
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 20
    Width = 41
    Height = 13
    AutoSize = False
    Caption = #36335#24452#65306
  end
  object BitBtn1: TBitBtn
    Left = 352
    Top = 14
    Width = 25
    Height = 25
    Caption = #8757
    TabOrder = 0
    OnClick = BitBtn1Click
  end
  object DB1: TDBGridEh
    Left = 0
    Top = 50
    Width = 394
    Height = 347
    Align = alBottom
    DataSource = DsPath
    ShowSerialNo = False
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    PopupMenu = PopupMenu1
    ReadOnly = True
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = DB1CellClick
    OnDrawColumnCell = DB1DrawColumnCell
    Columns = <
      item
        EditButtons = <>
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #24207#21495
      end
      item
        EditButtons = <>
        FieldName = 'path'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #36335#24452
      end>
  end
  object EPATH: TAdvFileNameEdit
    Left = 51
    Top = 16
    Width = 297
    Height = 21
    Flat = False
    FocusColor = clBtnFace
    LabelFont.Charset = DEFAULT_CHARSET
    LabelFont.Color = clWindowText
    LabelFont.Height = -11
    LabelFont.Name = 'MS Sans Serif'
    LabelFont.Style = []
    Lookup.Separator = ';'
    Color = clWindow
    Enabled = True
    ReadOnly = False
    TabOrder = 2
    Visible = True
    Version = '1.3.2.3'
    ButtonStyle = bsButton
    ButtonWidth = 18
    Etched = False
    Glyph.Data = {
      CE000000424DCE0000000000000076000000280000000C0000000B0000000100
      0400000000005800000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00D00000000DDD
      00000077777770DD00000F077777770D00000FF07777777000000FFF00000000
      00000FFFFFFF0DDD00000FFF00000DDD0000D000DDDDD0000000DDDDDDDDDD00
      0000DDDDD0DDD0D00000DDDDDD000DDD0000}
    Filter = '(Access'#25968#25454#24211#25991#20214')*.mdb|*.mdb'
    FilterIndex = 0
    DialogOptions = []
    DialogKind = fdOpen
  end
  object ADOTPath: TADOTable
    Connection = DM.ADOConnLocal
    TableName = 'DataBaseSetup'
    Left = 88
    Top = 120
  end
  object DsPath: TDataSource
    DataSet = ADOTPath
    Left = 152
    Top = 152
  end
  object PopupMenu1: TPopupMenu
    Left = 144
    Top = 256
    object N1: TMenuItem
      Caption = #21024#38500
      OnClick = N1Click
    end
  end
end