u_main.dfm

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

object Frm_Main: TFrm_Main
  Left = 330
  Top = 172
  Width = 599
  Height = 500
  BorderIcons = [biSystemMenu]
  Caption = #36827#28207#25968#25454#23457#26680
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 121
    Width = 591
    Height = 3
    Cursor = crVSplit
    Align = alTop
  end
  object Splitter2: TSplitter
    Left = 281
    Top = 124
    Height = 342
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 591
    Height = 121
    Align = alTop
    BevelInner = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 20
      Width = 153
      Height = 32
      AutoSize = False
      Caption = #25195#25551#21333#21495#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -27
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 16
      Top = 76
      Width = 153
      Height = 32
      AutoSize = False
      Caption = #26102#38388#33539#22260#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -27
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 312
      Top = 80
      Width = 25
      Height = 20
      AutoSize = False
      Caption = #21040
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object EDH: TEdit
      Left = 168
      Top = 16
      Width = 313
      Height = 40
      Color = clYellow
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -27
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnKeyPress = EDHKeyPress
    end
    object FlatButton1: TFlatButton
      Left = 496
      Top = 24
      Width = 80
      Height = 25
      Version = '4.38.0.0'
      Caption = #25968#25454#24211#35774#32622
      TabOrder = 1
      OnClick = FlatButton1Click
    end
    object FlatButton2: TFlatButton
      Left = 496
      Top = 80
      Width = 80
      Height = 25
      Version = '4.38.0.0'
      Caption = #26597#35810
      TabOrder = 2
      OnClick = FlatButton2Click
    end
    object DT1: TAdvDateTimePicker
      Left = 168
      Top = 80
      Width = 145
      Height = 21
      Date = 39830.373148148140000000
      Format = 'yy-MM-dd'
      Time = 39830.373148148140000000
      Kind = dkDateTime
      TabOrder = 3
      BorderStyle = bsSingle
      Ctl3D = True
      DateTime = 39830.373148148140000000
      TimeFormat = 'hh:mm:ss'
      Version = '1.0.0.3'
    end
    object DT2: TAdvDateTimePicker
      Left = 336
      Top = 80
      Width = 145
      Height = 21
      Date = 39830.373148148140000000
      Format = 'yy-MM-dd'
      Time = 39830.373148148140000000
      Kind = dkDateTime
      TabOrder = 4
      BorderStyle = bsSingle
      Ctl3D = True
      DateTime = 39830.373148148140000000
      TimeFormat = 'hh:mm:ss'
      Version = '1.0.0.3'
    end
    object Edit1: TEdit
      Left = 524
      Top = 54
      Width = 25
      Height = 21
      TabOrder = 5
      Text = ':'
      OnChange = Edit1Change
    end
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 124
    Width = 281
    Height = 342
    Align = alLeft
    Caption = #36890#36807#26657#39564#25968#25454
    TabOrder = 1
    object DB1: TDBGridEh
      Left = 2
      Top = 15
      Width = 277
      Height = 325
      Align = alClient
      Ctl3D = False
      DataSource = DM.DsPassData
      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]
      ParentCtl3D = False
      PopupMenu = PopupMenu1
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDrawColumnCell = DB1DrawColumnCell
      Columns = <
        item
          EditButtons = <>
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #24207#21495
        end
        item
          EditButtons = <>
          FieldName = 'VerifyTime'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #26102#38388
        end
        item
          EditButtons = <>
          FieldName = 'VerIfyODD'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #36816#21333#21495
        end>
    end
  end
  object GroupBox2: TGroupBox
    Left = 284
    Top = 124
    Width = 307
    Height = 342
    Align = alClient
    Caption = #26410#36890#36807#26657#39564#25968#25454
    TabOrder = 2
    object DB2: TDBGridEh
      Left = 2
      Top = 15
      Width = 303
      Height = 325
      Align = alClient
      Ctl3D = False
      DataSource = DM.DsFailData
      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]
      ParentCtl3D = False
      PopupMenu = PopupMenu2
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDrawColumnCell = DB2DrawColumnCell
      Columns = <
        item
          EditButtons = <>
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #24207#21495
        end
        item
          EditButtons = <>
          FieldName = 'VerifyTime'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #26102#38388
        end
        item
          EditButtons = <>
          FieldName = 'VerIfyODD'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #36816#21333#21495
        end>
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 156
    Top = 220
    object N1: TMenuItem
      Caption = #21024#38500
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #28165#31354
      OnClick = N2Click
    end
    object N5: TMenuItem
      Caption = #25171#21360
      OnClick = N5Click
    end
  end
  object PopupMenu2: TPopupMenu
    Left = 364
    Top = 204
    object N3: TMenuItem
      Caption = #21024#38500
      OnClick = N3Click
    end
    object N4: TMenuItem
      Caption = #28165#31354
      OnClick = N4Click
    end
    object N6: TMenuItem
      Caption = #25171#21360
      OnClick = N6Click
    end
  end
  object frxReport1: TfrxReport
    Version = '4.6.8'
    DotMatrixReport = False
    IniFile = '\Software\Fast Reports'
    PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
    PreviewOptions.Zoom = 1.000000000000000000
    PrintOptions.Printer = #39044#35774
    PrintOptions.PrintOnSheet = 0
    ReportOptions.CreateDate = 39830.451593414300000000
    ReportOptions.LastChange = 39830.458434606480000000
    ScriptLanguage = 'PascalScript'
    ScriptText.Strings = (
      ''
      'begin'
      ''
      'end.')
    OnGetValue = frxReport1GetValue
    Left = 200
    Top = 252
    Datasets = <
      item
        DataSet = frxDBDataset1
        DataSetName = 'frxDBDataset1'
      end>
    Variables = <
      item
        Name = ' New Category1'
        Value = Null
      end
      item
        Name = 'PTitle'
        Value = ''
      end>
    Style = <>
    object Data: TfrxDataPage
      Height = 1000.000000000000000000
      Width = 1000.000000000000000000
    end
    object Page1: TfrxReportPage
      PaperWidth = 210.000000000000000000
      PaperHeight = 297.000000000000000000
      PaperSize = 9
      LeftMargin = 10.000000000000000000
      RightMargin = 10.000000000000000000
      TopMargin = 10.000000000000000000
      BottomMargin = 10.000000000000000000
      object ReportTitle1: TfrxReportTitle
        Height = 83.149660000000000000
        Top = 18.897650000000000000
        Width = 718.110700000000000000
        object Memo3: TfrxMemoView
          Top = 51.354360000000000000
          Width = 718.110700000000000000
          Height = 30.236240000000000000
          ShowHint = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -27
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          HAlign = haCenter
          Memo.UTF8 = (
            '[PTitle]')
          ParentFont = False
        end
      end
      object MasterData1: TfrxMasterData
        Height = 18.897650000000000000
        Top = 222.992270000000000000
        Width = 718.110700000000000000
        DataSet = frxDBDataset1
        DataSetName = 'frxDBDataset1'
        RowCount = 0
        object Memo7: TfrxMemoView
          Left = 11.338590000000000000
          Width = 94.488250000000000000
          Height = 18.897650000000000000
          ShowHint = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          HAlign = haCenter
          Memo.UTF8 = (
            '[frxDBDataset1."ID"]')
          ParentFont = False
        end
        object Memo8: TfrxMemoView
          Left = 105.826840000000000000
          Width = 298.582870000000000000
          Height = 18.897650000000000000
          ShowHint = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          HAlign = haCenter
          Memo.UTF8 = (
            '[frxDBDataset1."VerifyTime"]')
          ParentFont = False
        end
        object Memo9: TfrxMemoView
          Left = 404.409710000000000000
          Width = 302.362400000000000000
          Height = 18.897650000000000000
          ShowHint = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          HAlign = haCenter
          Memo.UTF8 = (
            '[frxDBDataset1."VerIfyODD"]')
          ParentFont = False
        end
      end
      object PageFooter1: TfrxPageFooter
        Height = 22.677180000000000000
        Top = 302.362400000000000000
        Width = 718.110700000000000000
        object Memo1: TfrxMemoView
          Left = 642.520100000000000000
          Width = 75.590600000000000000
          Height = 18.897650000000000000
          ShowHint = False
          HAlign = haRight
          Memo.UTF8 = (
            '[Page#]')
        end
      end
      object Memo2: TfrxMemoView
        Top = 15.118120000000000000
        Width = 718.110700000000000000
        Height = 45.354360000000000000
        ShowHint = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -32
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        HAlign = haCenter
        Memo.UTF8 = (
          #26473#28057#33104#37813#57507#24383#37825#29256#23873#28729#8451#29299#37814#12517#24993)
        ParentFont = False
      end
      object PageHeader1: TfrxPageHeader
        Height = 37.795300000000000000
        Top = 124.724490000000000000
        Width = 718.110700000000000000
        object Memo4: TfrxMemoView
          Left = 11.338590000000000000
          Top = 10.559059999999990000
          Width = 94.488250000000000000
          Height = 26.456710000000000000
          ShowHint = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -19
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          HAlign = haCenter
          Memo.UTF8 = (
            '')
          ParentFont = False
        end
        object Memo5: TfrxMemoView
          Left = 105.826840000000000000
          Top = 10.559059999999990000
          Width = 298.582870000000000000
          Height = 26.456710000000000000
          ShowHint = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -19
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          HAlign = haCenter
          Memo.UTF8 = (
            #28729#8451#29299#37813#57507#24383#37827#22549#26879)
          ParentFont = False
        end
        object Memo6: TfrxMemoView
          Left = 404.409710000000000000
          Top = 10.559059999999990000
          Width = 302.362400000000000000
          Height = 26.456710000000000000
          ShowHint = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -19
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          HAlign = haCenter
          Memo.UTF8 = (
            '')
          ParentFont = False
        end
      end
    end
  end
  object frxDBDataset1: TfrxDBDataset
    UserName = 'frxDBDataset1'
    CloseDataSource = False
    Left = 208
    Top = 292
  end
  object frxXLSExport1: TfrxXLSExport
    UseFileCache = True
    ShowProgress = True
    OverwritePrompt = False
    ExportEMF = True
    AsText = False
    Background = True
    FastExport = True
    PageBreaks = True
    EmptyLines = True
    SuppressPageHeadersFooters = False
    Left = 176
    Top = 316
  end
end