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