unit1.~dfm

关于DELPHI下面使用ODBC 连接FIREBIRD数据库 采用C/S结构,此程序运用于CLIENT端,连接主机数据库,需要安装FIREBIRD ODBC连接程序

      Top = 24
      Width = 116
      Height = 20
      Caption = #26102#38388#21306#38388
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 10
      OnClick = CB_TimeAreaClick
    end
    object Edit4: TEdit
      Left = 130
      Top = 123
      Width = 151
      Height = 21
      Enabled = False
      MaxLength = 20
      TabOrder = 9
    end
    object DateTimePicker1: TDateTimePicker
      Left = 423
      Top = 43
      Width = 90
      Height = 21
      CalAlignment = dtaLeft
      Date = 39083
      Format = 'yyyy-MM-dd'
      Time = 39083
      Checked = False
      DateFormat = dfLong
      DateMode = dmComboBox
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Kind = dtkDate
      ParseInput = True
      ParentFont = False
      TabOrder = 11
    end
    object DateTimePicker2: TDateTimePicker
      Left = 423
      Top = 74
      Width = 90
      Height = 21
      CalAlignment = dtaLeft
      Date = 39343
      Format = 'yyyy-MM-dd'
      Time = 39343
      DateFormat = dfShort
      DateMode = dmComboBox
      Enabled = False
      Kind = dtkDate
      ParseInput = False
      TabOrder = 13
    end
    object DateTimePicker3: TDateTimePicker
      Left = 515
      Top = 42
      Width = 92
      Height = 21
      CalAlignment = dtaLeft
      Date = 39344
      Format = 'HH:mm:ss'
      Time = 39344
      DateFormat = dfShort
      DateMode = dmComboBox
      Enabled = False
      Kind = dtkTime
      ParseInput = False
      TabOrder = 12
    end
    object DateTimePicker4: TDateTimePicker
      Left = 514
      Top = 73
      Width = 94
      Height = 21
      CalAlignment = dtaLeft
      Date = 39344.9999884259
      Format = 'HH:mm:ss'
      Time = 39344.9999884259
      DateFormat = dfShort
      DateMode = dmComboBox
      Enabled = False
      Kind = dtkTime
      ParseInput = False
      TabOrder = 14
    end
    object CB_RecordLength: TCheckBox
      Left = 309
      Top = 100
      Width = 97
      Height = 17
      Caption = #24405#38899#26102#38271
      TabOrder = 15
      OnClick = CB_RecordLengthClick
    end
    object RBB: TRadioButton
      Left = 421
      Top = 100
      Width = 46
      Height = 17
      Caption = #22823#20110
      Checked = True
      Enabled = False
      TabOrder = 16
      TabStop = True
    end
    object RBE: TRadioButton
      Left = 471
      Top = 100
      Width = 49
      Height = 17
      Caption = #31561#20110
      Enabled = False
      TabOrder = 17
    end
    object RBS: TRadioButton
      Left = 521
      Top = 100
      Width = 47
      Height = 17
      Caption = #23567#20110
      Enabled = False
      TabOrder = 18
    end
    object Edit5: TEdit
      Left = 570
      Top = 96
      Width = 37
      Height = 21
      Enabled = False
      TabOrder = 19
    end
    object CB_Channel: TCheckBox
      Left = 20
      Top = 101
      Width = 96
      Height = 17
      Caption = #36712#36947#32534#21495
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      OnClick = CB_ChannelClick
    end
    object Edit6: TEdit
      Left = 130
      Top = 96
      Width = 150
      Height = 21
      Enabled = False
      TabOrder = 7
    end
  end
  object GroupBox5: TGroupBox
    Left = 659
    Top = 1
    Width = 127
    Height = 158
    TabOrder = 1
    object Btn_Close: TBitBtn
      Left = 9
      Top = 120
      Width = 106
      Height = 30
      Caption = #20851#38381'(&C)'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = Btn_CloseClick
      Kind = bkCancel
    end
    object Btn_Query: TBitBtn
      Left = 10
      Top = 81
      Width = 105
      Height = 32
      Caption = #26597#35810'(&Q)'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = Btn_QueryClick
      Kind = bkOK
    end
    object RBAccess: TRadioButton
      Left = 16
      Top = 24
      Width = 87
      Height = 17
      Caption = 'Access'
      TabOrder = 2
      Visible = False
    end
    object RBFireBird: TRadioButton
      Left = 16
      Top = 48
      Width = 80
      Height = 17
      Caption = 'FireBird'
      TabOrder = 3
      Visible = False
    end
    object ComboBox1: TComboBox
      Left = 9
      Top = 44
      Width = 108
      Height = 21
      ItemHeight = 13
      TabOrder = 4
      Text = '1'
      Items.Strings = (
        '1'
        '2'
        '3'
        '4'
        '5'
        '6'
        '7'
        '8'
        '9'
        '10')
    end
    object CheckBox1: TCheckBox
      Left = 8
      Top = 24
      Width = 97
      Height = 17
      Caption = 'Monitor'
      TabOrder = 5
      OnClick = CheckBox1Click
    end
  end
  object DBEdit4: TDBEdit
    Left = 264
    Top = 656
    Width = 121
    Height = 21
    DataField = 'keep'
    DataSource = DataSource1
    TabOrder = 9
    Visible = False
  end
  object MonitorClient1: TMonitorClient
    Left = 712
    Top = 536
    Width = 100
    Height = 50
    TabOrder = 10
    OnMonitorPlay = MonitorClient1MonitorPlay
    ControlData = {00000100560A00002B0500000000000000}
  end
  object ADOConnection1: TADOConnection
    LoginPrompt = False
    Provider = 'MSDASQL.1'
    Left = 584
    Top = 632
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    Left = 616
    Top = 632
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 648
    Top = 632
  end
  object PopupMenu1: TPopupMenu
    AutoHotkeys = maManual
    Left = 680
    Top = 632
    object N1: TMenuItem
      Caption = 'N1'
      OnClick = N1Click
    end
  end
  object PopupMenu2: TPopupMenu
    AutoHotkeys = maManual
    Left = 528
    Top = 632
    object N2: TMenuItem
      Caption = #26631#27880#20026#37325#35201#25968#25454
      OnClick = N2Click
    end
    object N4: TMenuItem
      Action = saveas
      Caption = #21478#23384#20026'...'
    end
  end
  object PopupMenu3: TPopupMenu
    AutoHotkeys = maManual
    Left = 552
    Top = 632
    object N3: TMenuItem
      Caption = #21462#28040#26631#27880
      OnClick = N3Click
    end
    object N5: TMenuItem
      Action = saveas
      Caption = #21478#23384#20026'...'
    end
  end
  object ADOQuery2: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 496
    Top = 632
  end
  object ActionList1: TActionList
    Left = 856
    Top = 544
    object saveas: TAction
      Caption = 'saveas'
      OnExecute = saveasExecute
    end
  end
  object SaveDialog1: TSaveDialog
    Filter = '*.wav|*.wav'
    Options = [ofHideReadOnly, ofPathMustExist, ofDontAddToRecent]
    Title = #21478#23384#20026'...'
    Left = 888
    Top = 544
  end
end