unit1.~dfm

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

object Form1: TForm1
  Left = 144
  Top = 122
  Align = alClient
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  ClientHeight = 535
  ClientWidth = 792
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PopupMenu = PopupMenu1
  Position = poDesktopCenter
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox2: TGroupBox
    Left = 7
    Top = 161
    Width = 779
    Height = 264
    TabOrder = 2
    object DBGrid1: TDBGrid
      Left = 2
      Top = 15
      Width = 775
      Height = 247
      Align = alClient
      DataSource = DataSource1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnCellClick = DBGrid1CellClick
      OnDrawColumnCell = DBGrid1DrawColumnCell
      OnDblClick = DBGrid1DblClick
      OnTitleClick = DBGrid1TitleClick
      Columns = <
        item
          Expanded = False
          FieldName = 'ID'
          Title.Alignment = taCenter
          Title.Caption = #32534#21495
          Width = 56
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CHANNEL'
          Title.Alignment = taCenter
          Title.Caption = #36712#36947#21495
          Width = 61
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CallerID'
          Title.Alignment = taCenter
          Title.Caption = #26469#30005#21495#30721
          Width = 90
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Username'
          Title.Alignment = taCenter
          Title.Caption = #22352#24109#21517#31216
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PhoneNumber'
          Title.Alignment = taCenter
          Title.Caption = #20998#26426#21495#30721
          Width = 84
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DTMF'
          Title.Alignment = taCenter
          Title.Caption = #30005#35805#25353#38190
          Width = 98
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'STARTTIME'
          Title.Alignment = taCenter
          Title.Caption = #24320#22987#26102#38388
          Width = 107
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'STOPTIME'
          Title.Alignment = taCenter
          Title.Caption = #32467#26463#26102#38388
          Width = 105
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'RecordLength'
          Title.Alignment = taCenter
          Title.Caption = #24405#38899#24635#38271
          Width = 63
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FILENAME'
          Title.Alignment = taCenter
          Title.Caption = #25991#20214#21517
          Width = 306
          Visible = True
        end>
    end
  end
  object GroupBox3: TGroupBox
    Left = 5
    Top = 424
    Width = 783
    Height = 89
    TabOrder = 3
    object WindowsMediaPlayer1: TWindowsMediaPlayer
      Left = 2
      Top = 15
      Width = 779
      Height = 72
      TabStop = False
      Align = alClient
      ParentShowHint = False
      ShowHint = False
      TabOrder = 0
      OnPlayStateChange = WindowsMediaPlayer1PlayStateChange
      ControlData = {
        000300000800000000000500000000000000F03F030000000000050000000000
        0000000008000200000000000300010000000B00FFFF0300000000000B00FFFF
        08000200000000000300320000000B00000008000A000000660075006C006C00
        00000B0000000B0000000B00FFFF0B00FFFF0B00000008000200000000000800
        020000000000080002000000000008000200000000000B000000835000007107
        0000}
    end
  end
  object PlayClient1: TPlayClient
    Left = 712
    Top = 600
    Width = 100
    Height = 50
    TabOrder = 4
    Visible = False
    OnConnectHost = PlayClient1ConnectHost
    OnVocFileLength = PlayClient1VocFileLength
    OnLoadFileComplete = PlayClient1LoadFileComplete
    OnQueryRecordCount = PlayClient1QueryRecordCount
    ControlData = {00000100560A00002B05000000000000}
  end
  object DBEdit1: TDBEdit
    Left = 392
    Top = 656
    Width = 513
    Height = 21
    DataField = 'FileName'
    DataSource = DataSource1
    ReadOnly = True
    TabOrder = 5
    Visible = False
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 516
    Width = 792
    Height = 19
    Panels = <
      item
        Width = 180
      end
      item
        Width = 200
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object DBEdit2: TDBEdit
    Left = 8
    Top = 648
    Width = 121
    Height = 21
    DataField = 'ID'
    DataSource = DataSource1
    TabOrder = 7
    Visible = False
  end
  object DBEdit3: TDBEdit
    Left = 144
    Top = 656
    Width = 121
    Height = 21
    DataSource = DataSource1
    TabOrder = 8
    Visible = False
  end
  object GroupBox4: TGroupBox
    Left = 8
    Top = 0
    Width = 649
    Height = 161
    Caption = #35831#36755#20837#26597#35810#26465#20214
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Lb_StartTime: TLabel
      Left = 328
      Top = 47
      Width = 73
      Height = 16
      AutoSize = False
      Caption = #24320#22987#26102#38388':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Lb_EndTime: TLabel
      Left = 328
      Top = 75
      Width = 79
      Height = 20
      AutoSize = False
      Caption = #32467#26463#26102#38388':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Edit1: TEdit
      Left = 130
      Top = 18
      Width = 151
      Height = 21
      Enabled = False
      MaxLength = 20
      TabOrder = 1
    end
    object Edit2: TEdit
      Left = 130
      Top = 44
      Width = 151
      Height = 21
      Enabled = False
      MaxLength = 20
      TabOrder = 3
    end
    object Edit3: TEdit
      Left = 130
      Top = 71
      Width = 151
      Height = 21
      Enabled = False
      MaxLength = 20
      TabOrder = 5
    end
    object CB_Agent: TCheckBox
      Left = 21
      Top = 24
      Width = 89
      Height = 17
      Caption = #22352#24109#21517#31216
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = CB_AgentClick
    end
    object CB_CallerID: TCheckBox
      Left = 20
      Top = 51
      Width = 99
      Height = 17
      Caption = #26469#30005#21495#30721
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = CB_CallerIDClick
    end
    object CB_DTMF: TCheckBox
      Left = 20
      Top = 77
      Width = 101
      Height = 17
      Caption = #30005#35805#25353#38190
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = CB_DTMFClick
    end
    object CB_PhoneNum: TCheckBox
      Left = 20
      Top = 128
      Width = 98
      Height = 17
      Caption = #20998#26426#21495#30721
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 8
      OnClick = CB_PhoneNumClick
    end
    object CB_TimeArea: TCheckBox
      Left = 309