frmnote.frm

VB税控的源代码 主要用于地方税务局的税控引用 有完整的控件和代码

VERSION 5.00
Begin VB.Form frmNote 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "作废原因"
   ClientHeight    =   1800
   ClientLeft      =   45
   ClientTop       =   270
   ClientWidth     =   5505
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   9
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1800
   ScaleWidth      =   5505
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton cmdCancel 
      Caption         =   "取消"
      Height          =   345
      Left            =   90
      TabIndex        =   6
      Top             =   1320
      Visible         =   0   'False
      Width           =   1035
   End
   Begin VB.CommandButton cmdDial 
      Caption         =   "拨号(&D)"
      Height          =   375
      Left            =   1980
      TabIndex        =   4
      Top             =   1320
      Width           =   1065
   End
   Begin VB.TextBox txtDialCode 
      Height          =   270
      Left            =   1380
      TabIndex        =   3
      Top             =   1350
      Width           =   435
   End
   Begin VB.CommandButton cmdExit 
      Cancel          =   -1  'True
      Caption         =   "退出(&E)"
      Height          =   375
      Left            =   4350
      TabIndex        =   2
      Top             =   1320
      Width           =   1065
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定(&O)"
      Default         =   -1  'True
      Height          =   375
      Left            =   3165
      TabIndex        =   1
      Top             =   1320
      Width           =   1065
   End
   Begin VB.TextBox txtNote 
      Height          =   1065
      Left            =   90
      MultiLine       =   -1  'True
      TabIndex        =   0
      Top             =   120
      Width           =   5325
   End
   Begin VB.Label lblDial 
      Caption         =   "拨外线的号码："
      Height          =   225
      Left            =   60
      TabIndex        =   5
      Top             =   1380
      Width           =   1335
   End
End
Attribute VB_Name = "frmNote"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdCancel_Click()
    gsBlankOutNote = "取消作废"
    Unload Me
End Sub

Private Sub cmdDial_Click()
On Error GoTo err
    Dim objConn As clsRasConnect
    Dim iRet As Integer
    Dim sDial As String
    
    If Trim(txtDialCode.Text) <> "" Then
        If Not IsNumeric(Trim(txtDialCode.Text)) Then
            MsgBox "拨外线的号码必须为数字，请确认！", vbOKOnly + vbInformation, "提示信息"
            Exit Sub
        Else
            sDial = Trim(txtDialCode.Text)
        End If
    End If
    
    If glDialConn = 0 Then
        iRet = MsgBox("是否要进行电话拨号？", vbYesNo + vbInformation, "提示信息")
        If iRet = vbNo Then Exit Sub
        
        Set objConn = New clsRasConnect
        glDialConn = objConn.lAddConnect(sDial)
        If glDialConn = 0 Then
            MsgBox "连接服务器失败，请稍后再试！", vbOKOnly + vbInformation, "提示信息"
            Exit Sub
        Else
            MsgBox "您已经拨通了服务器，请确认！", vbOKOnly + vbInformation, "提示信息"
            cmdDial.Caption = "挂断(&U)"
        End If
    Else
        iRet = MsgBox("是否要挂断电话？", vbYesNo + vbInformation, "提示信息")
        If iRet = vbNo Then Exit Sub
        
        Set objConn = New clsRasConnect
        If objConn.bRemoveConnect(glDialConn) Then glDialConn = 0
        
        If glDialConn <> 0 Then
            MsgBox "不能挂断电话,请手工进行挂断！", vbOKOnly + vbInformation, "提示信息"
            Exit Sub
        Else
            MsgBox "您已经挂断了电话，请确认！", vbOKOnly + vbInformation, "提示信息"
            cmdDial.Caption = "拨号(&D)"
        End If
    End If
    
    Set objConn = Nothing
    Exit Sub
err:
    MsgBox "连接服务器失败，请稍后再试！", vbOKOnly + vbInformation, "提示信息"

End Sub

Private Sub cmdExit_Click()
    gsBlankOutNote = ""
    Unload Me
End Sub

Private Sub cmdOK_Click()
    If Trim(txtNote.Text) = "" Then
        MsgBox "请输入作废原因！", vbOKOnly + vbInformation, "提示信息"
        Exit Sub
    End If
    
    If gbChequeLine = True And glDialConn = 0 And gsChequeType <> "C" Then
        MsgBox "请先拨号，再作废发票！", vbOKOnly + vbInformation, "提示信息"
        Exit Sub
    End If
    
    gsBlankOutNote = "作废原因：" + CStr(txtNote.Text)
    Unload Me
End Sub

Private Sub Form_Load()
    gsBlankOutNote = ""
    
    If gsUserName = "isa" Then cmdCancel.Visible = True
    
    If gbChequeLine = False Then
        cmdDial.Visible = False
        txtDialCode.Visible = False
        lblDial.Visible = False
    End If
End Sub