tc35_api.bas

西门子TC35源程序

Attribute VB_Name = "TC35_API"
Option Explicit

'对话框参数
Public Type dlgPara
    ID As Long  '信息ID
    LID As Long
    DepartmentID As Long
    SchoolID As Long
    GradeID As Long
    classID As Long
    Title As String
    xmlRecord As String
    isSave As Boolean
End Type

Public Declare Function timeGetTime Lib "winmm.dll" () As Long

Public dlgPara As dlgPara


Public Sub DlgInit(isChange As Boolean, xml As String)
   isChange = False
   xml = ""
End Sub

Public Sub DlgEnd(isChange As Boolean, xml As String)
   With dlgPara
       .isSave = isChange
       .xmlRecord = xml
   End With
End Sub

'显示或编辑编辑信息
Public Function ShowTC35(Optional ByVal TC35ID As Long = 0) As Boolean
        With dlgPara
             .ID = TC35ID
             frmSet.Show 1
             ShowTC35 = .isSave
        End With
End Function


Public Function getIdentity() As Long
       On Error GoTo laberr
       Dim rs As ADODB.Recordset
       Set rs = cn.Execute("select @@IDENTITY")
       If IsNull(rs(0)) Then
            getIdentity = 0
       Else
            getIdentity = rs(0)
       End If
       CloseRS rs
       Exit Function
laberr:
       getIdentity = 0
End Function