tele.~dfm

与酒店前台系统接口的一个实用型的电话计费接口软件。可以对接各种品牌的交换机

object Form1: TForm1
  Left = 363
  Top = 247
  Width = 431
  Height = 190
  BorderIcons = [biMinimize, biMaximize]
  Caption = #21035#20851#36825#20010#31243#24207#65292#35745#36153#30340
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 48
    Top = 136
    Width = 300
    Height = 13
    Caption = #35745#12288#12288#12288#36153#12288#12288#12288#12288#12288#20013#12288#12288#12290#12290#12290#12290#12290#12290#12290#12290#12290#12290#12290#12290
    Transparent = False
  end
  object Label2: TLabel
    Left = 0
    Top = 48
    Width = 385
    Height = 33
    AutoSize = False
    Caption = #22914#26524#20986#29616#38169#35823#25552#31034#65292#35831#25226#31243#24207#20851#25481#65292#20877#24320#21551#12290
    Color = clTeal
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object BitBtn1: TBitBtn
    Left = 0
    Top = 2
    Width = 75
    Height = 25
    Caption = #35745#36153
    TabOrder = 0
    Visible = False
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 80
    Top = 2
    Width = 75
    Height = 25
    Caption = 'BitBtn2'
    TabOrder = 1
    Visible = False
    OnClick = BitBtn2Click
  end
  object DBGrid1: TDBGrid
    Left = 10
    Top = 32
    Width = 359
    Height = 97
    DataSource = DataSource1
    ImeName = #26234#33021#38472#26725#36755#20837#24179#21488'  5.5'
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Visible = False
  end
  object Edit1: TEdit
    Left = 240
    Top = 2
    Width = 113
    Height = 24
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #26234#33021#38472#26725#36755#20837#24179#21488'  5.5'
    ParentFont = False
    TabOrder = 3
    Text = 'Edit1'
    Visible = False
  end
  object DateTimePicker1: TDateTimePicker
    Left = 160
    Top = 3
    Width = 73
    Height = 21
    Date = 38409.681446388900000000
    Time = 38409.681446388900000000
    ImeName = #26234#33021#38472#26725#36755#20837#24179#21488'  5.5'
    TabOrder = 4
    Visible = False
  end
  object Query1: TQuery
    DatabaseName = 'CSDATA'
    Left = 152
    Top = 32
  end
  object Query22: TQuery
    DatabaseName = 'TELEDATA'
    Left = 184
    Top = 32
  end
  object Query3: TQuery
    DatabaseName = 'CSDATA'
    Left = 248
    Top = 48
  end
  object Query4: TQuery
    DatabaseName = 'CSDATA'
    Left = 288
    Top = 48
  end
  object Query55: TQuery
    DatabaseName = 'TELEDATA'
    Left = 192
    Top = 72
  end
  object database2: TDatabase
    AliasName = 'hotel'
    DatabaseName = 'CSDATA'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=sa'
      'PASSWORD=')
    SessionName = 'Default'
    Left = 176
    Top = 8
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 'FILE NAME=tele.udl'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 48
    Top = 72
  end
  object Query2: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 88
    Top = 72
  end
  object Query5: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 120
    Top = 72
  end
  object DataSource1: TDataSource
    DataSet = Query2
    Left = 8
    Top = 72
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 30000
    OnTimer = BitBtn1Click
    Left = 376
    Top = 2
  end
end