telecom.frm

IBM 开发的easy cics通讯相关的源代码

VERSION 5.00
Begin VB.Form frmTest 
   Caption         =   "查询话费"
   ClientHeight    =   4605
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9705
   LinkTopic       =   "Form1"
   ScaleHeight     =   4605
   ScaleWidth      =   9705
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox txtNo 
      BeginProperty Font 
         Name            =   "System"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   1500
      TabIndex        =   3
      Top             =   3960
      Width           =   3735
   End
   Begin VB.CommandButton btnAbout 
      Caption         =   "关于EasyCics"
      BeginProperty Font 
         Name            =   "System"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   7500
      TabIndex        =   2
      Top             =   3900
      Width           =   1935
   End
   Begin VB.CommandButton btnQuery 
      Caption         =   "查询："
      BeginProperty Font 
         Name            =   "System"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   180
      TabIndex        =   1
      Top             =   3900
      Width           =   1155
   End
   Begin VB.ListBox lstTest 
      BeginProperty Font 
         Name            =   "System"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   3420
      Left            =   120
      TabIndex        =   0
      Top             =   240
      Width           =   9435
   End
End
Attribute VB_Name = "frmTest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim oEc As Object

Private Sub btnAbout_Click()
        oEc.About
End Sub

Private Sub btnQuery_Click()
Dim r%, s$, i%, j%, rc%, cc%


        lstTest.Clear

        oEc.BeginWrite
        s = txtNo.Text
        oEc.SetValue "NO", s
        
        oEc.CallProgramAndCommit "TELECOM"
        s = oEc.GetErr
If s <> "" Then
        MsgBox "Got an error when call CICS Server program:" + Chr(13) + Chr(10) + s
        Exit Sub
End If

'''''''''''''''''''''''''''''''''''''
        oEc.RsOpen
        rc = oEc.RsGetRowNum
        cc = oEc.RsGetColNum
        
        s = ""
For i = 1 To rc
        oEc.RsFetchRow
 For j = 1 To cc
        s = s + oEc.RsGetCol(j) + ","
 Next
        lstTest.AddItem s
        s = ""
Next
        
End Sub

Private Sub Form_Load()
Dim r%

        Set oEc = CreateObject("EasyCics.App")
        r = oEc.ConnectServer("CICSNT01", "TEST", "TEST")
If r <> 0 Then
        MsgBox "Can't connect to CICS Server"
        btnQuery.Enabled = False
        Exit Sub
End If

End Sub

Private Sub Form_Unload(Cancel As Integer)
        Set oEc = Nothing
End Sub