通话费用查询.frm

利用VB开发的作品!包括宾馆系统的开发,名片管理系统,查询系统及字库查询 希望大家喜欢

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "通话费用查询"
   ClientHeight    =   4530
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   7710
   ForeColor       =   &H8000000D&
   LinkTopic       =   "Form1"
   ScaleHeight     =   4530
   ScaleWidth      =   7710
   StartUpPosition =   3  '窗口缺省
   Begin VB.Frame Frame1 
      BackColor       =   &H80000001&
      Caption         =   "Frame1"
      ForeColor       =   &H8000000D&
      Height          =   4575
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   7695
      Begin VB.TextBox Text11 
         Height          =   400
         Left            =   3480
         TabIndex        =   18
         Text            =   "Text11"
         Top             =   3360
         Width           =   1000
      End
      Begin VB.TextBox Text10 
         Height          =   400
         Left            =   2280
         TabIndex        =   17
         Text            =   "Text10"
         Top             =   3360
         Width           =   1200
      End
      Begin VB.TextBox Text9 
         Height          =   400
         Left            =   3480
         TabIndex        =   16
         Text            =   "Text9"
         Top             =   3000
         Width           =   1000
      End
      Begin VB.TextBox Text8 
         Height          =   400
         Left            =   2280
         TabIndex        =   15
         Text            =   "Text8"
         Top             =   3000
         Width           =   1200
      End
      Begin VB.TextBox Text7 
         Height          =   400
         Left            =   3480
         TabIndex        =   14
         Text            =   "Text7"
         Top             =   2640
         Width           =   1000
      End
      Begin VB.TextBox Text6 
         Height          =   400
         Left            =   2280
         TabIndex        =   13
         Text            =   "Text6"
         Top             =   2640
         Width           =   1215
      End
      Begin VB.TextBox Text5 
         Height          =   400
         Left            =   3480
         TabIndex        =   12
         Text            =   "Text5"
         Top             =   2280
         Width           =   1000
      End
      Begin VB.TextBox Text4 
         Height          =   400
         Left            =   2280
         TabIndex        =   11
         Text            =   "Text4"
         Top             =   2280
         Width           =   1200
      End
      Begin VB.CommandButton Command3 
         Caption         =   "清  空"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   400
         Left            =   480
         TabIndex        =   10
         Top             =   2640
         Width           =   1400
      End
      Begin VB.TextBox Text3 
         Height          =   400
         Left            =   3480
         TabIndex        =   9
         Text            =   "Text3"
         Top             =   1920
         Width           =   1000
      End
      Begin VB.TextBox Text2 
         Height          =   400
         Left            =   2280
         TabIndex        =   8
         Text            =   "Text2"
         Top             =   1920
         Width           =   1200
      End
      Begin VB.CommandButton Command2 
         Caption         =   "点击查询"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   400
         Left            =   480
         TabIndex        =   7
         Top             =   1920
         Width           =   1400
      End
      Begin VB.CommandButton Command1 
         Caption         =   "退出"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   400
         Left            =   6240
         TabIndex        =   6
         Top             =   2640
         Width           =   1200
      End
      Begin VB.TextBox Text1 
         Height          =   400
         Left            =   3840
         TabIndex        =   5
         Text            =   "Text1"
         Top             =   480
         Width           =   2000
      End
      Begin VB.Label Label4 
         Caption         =   "请输入您要查询国家代号"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   300
         Left            =   480
         TabIndex        =   4
         Top             =   480
         Width           =   3300
      End
      Begin VB.Label Label3 
         Caption         =   "元/分钟"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H8000000D&
         Height          =   300
         Left            =   4560
         TabIndex        =   3
         Top             =   2520
         Width           =   855
      End
      Begin VB.Label Label2 
         Caption         =   "通话费用"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H8000000D&
         Height          =   300
         Left            =   3360
         TabIndex        =   2
         Top             =   1560
         Width           =   1200
      End
      Begin VB.Label Label1 
         Caption         =   "国家"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H8000000D&
         Height          =   300
         Left            =   2520
         TabIndex        =   1
         Top             =   1560
         Width           =   645
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Dim I As String
I = Text1.Text



If I = "gnct" Then
Text2.Text = "国内长途"
Text3.Text = 0.3

ElseIf I = "xg" Then
Text2.Text = "香港"
Text3.Text = 1.3

ElseIf I = "am" Then
Text2.Text = "澳门"
Text3.Text = 1.3

ElseIf I = "tw" Then
Text2.Text = "台湾"
Text3.Text = 1.3

ElseIf I = "mg" Then
Text2.Text = "美国"
Text3.Text = 2.4

ElseIf I = "jnd" Then
Text2.Text = "加拿大"
Text3.Text = 2.4

ElseIf I = "alsj" Then
Text2.Text = "阿拉斯加"
Text3.Text = 2.4

ElseIf I = "xwy" Then
Text2.Text = "夏威夷"
Text3.Text = 2.4

ElseIf I = "yg" Then
Text2.Text = "英国"
Text3.Text = 3.6


ElseIf I = "fg" Then
Text2.Text = "法国"
Text3.Text = 3.6

ElseIf I = "dg" Then
Text2.Text = "德国"
Text3.Text = 3.6
Text4.Text = "多哥"
Text5.Text = 7

ElseIf I = "ydl" Then
Text2.Text = "意大利"
Text3.Text = 3.6

ElseIf I = "xjp" Then
Text2.Text = "新加坡"
Text3.Text = 3.6

ElseIf I = "rb" Then
Text2.Text = "日本"
Text3.Text = 3.6

ElseIf I = "hg" Then
Text2.Text = "韩国"
Text3.Text = 3.6

ElseIf I = "adly" Then
Text2.Text = "澳大利亚"
Text3.Text = 3.6

ElseIf I = "xxl" Then
Text2.Text = "新西兰"
Text3.Text = 3.6

ElseIf I = "mlxy" Then
Text2.Text = "马来西亚"
Text3.Text = 3.6

ElseIf I = "flb" Then
Text2.Text = "菲律宾"
Text3.Text = 3.6

ElseIf I = "" Then
Text2.Text = "泰国"
Text3.Text = 3.6

ElseIf I = "ydnxy" Then
Text2.Text = "印度尼西亚"
Text3.Text = 3.6

ElseIf I = "els" Then
Text2.Text = "俄罗斯"
Text3.Text = 3.6

ElseIf I = "agl" Then
Text2.Text = "安哥拉"
Text3.Text = 7
Text4.Text = "安圭拉"
Text5.Text = 7

ElseIf I = "ymny" Then
Text2.Text = "亚美尼亚"
Text3.Text = 7

ElseIf I = "bels" Then
Text2.Text = "白俄罗斯"
Text3.Text = 7

ElseIf I = "bels-yd" Then
Text2.Text = "白俄罗斯-移动"
Text3.Text = 7

ElseIf I = "blwy" Then
Text2.Text = "玻利维亚"
Text3.Text = 7

ElseIf I = "blwy-yd" Then
Text2.Text = "玻利维亚-移动"
Text3.Text = 7

ElseIf I = "bsnfs-yd" Then
Text2.Text = "布塞纳法索-移动"
Text3.Text = 7

ElseIf I = "jpz" Then
Text2.Text = "柬埔寨"
Text3.Text = 7

ElseIf I = "kml" Then
Text2.Text = "喀麦隆"
Text3.Text = 7

ElseIf I = "fdj" Then
Text2.Text = "佛得角"
Text3.Text = 7

ElseIf I = "zfghg" Then
Text2.Text = "中非共和国"
Text3.Text = 7

ElseIf I = "zd" Then
Text2.Text = "乍得"
Text3.Text = 7

ElseIf I = "kml" Then
Text2.Text = "科摩洛"
Text3.Text = 7

ElseIf I = "asbj-yd" Then
Text2.Text = "阿塞拜疆-移动"
Text3.Text = 7


ElseIf I = "zbt" Then
Text2.Text = "占布提"
Text3.Text = 7

ElseIf I = "dmnjghg" Then
Text2.Text = "多米尼加共和国"
Text3.Text = 7

ElseIf I = "fj" Then
Text2.Text = "斐济"
Text3.Text = 7

ElseIf I = "fsblnxy" Then
Text2.Text = "法属波利尼西亚"
Text3.Text = 7

ElseIf I = "gby" Then
Text2.Text = "冈比亚"
Text3.Text = 7