【正文】 = 120 Width = 2055 End Begin Image1 Height = 6975 Left = 0 Picture = :2300 Top = 0 Width = 6885 End End Attribute VB_Name = frmLogin Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Public PasswordKey As String Public NameKey As String Public Try_times As Integer Private Sub Cmd_Cancel_Click() End End Sub Private Sub Cmd_Ok_Click() Dim tmpUser, tmpPwd As String Dim isexe As Boolean Dim rsusers As tmpUser = Trim() tmpPwd = Trim() UserName = tmpUser If (tmpUser, tmpPwd) True Then MsgBox 用戶(hù)名或密碼錯(cuò)誤, 48, 提示 Else Unload Me Load frmMain End If End Sub Private Sub Form_Load() = admin = 0 End Sub Private Sub Image2_Click() Unload Me End Sub （2）部門(mén)查詢(xún)BEGIN MultiUse = 1 39。True Persistable = 0 39。NotPersistable DataBindingBehavior = 0 39。vbNone DataSourceBehavior = 0 39。vbNone MTSTransactionMode = 0 39。NotAnMTSObject END Attribute VB_Name = Departments Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attribute VB_PredeclaredId = False Attribute VB_Exposed = False 39。1 DepId 數(shù)字，長(zhǎng)整型 部門(mén)編號(hào)，主鍵 39。2 DepName 文本，長(zhǎng)度為50 部門(mén)名稱(chēng)，必填字段（是），允許空字符串（否） 39。3 Describes 文本，長(zhǎng)度為255 部門(mén)職能描述，必填字段（否），允許空字符串（是） 39。4 UpperId 數(shù)字，長(zhǎng)整型 上級(jí)部門(mén)編號(hào)，必填字段（是） Public DepId As Long Public DepName As String Public Describes As String Public UpperId As Long Public Sub Init() DepId = 1 DepName = Describes = 1 UpperId = 1 End Sub 39。刪除Departments Public Sub Delete(ByVal TmpId As Long) SqlStmt = DELETE FROM Departments WHERE DepId= + Trim(Str(TmpId)) SQLExt (SqlStmt) End Sub 39。讀取當(dāng)前部門(mén)記錄 Public Sub GetInfo(ByVal TmpId As Long) Dim rs As New 39。定義結(jié)果集對(duì)象 DepId = TmpId 39。使用SELECT語(yǔ)句讀取指定部門(mén)數(shù)據(jù) SqlStmt = SELECT * FROM Departments WHERE DepId= + Trim(Str(TmpId)) Set rs = QueryExt(SqlStmt) If Not Then DepName = Trim((1)) 39。部門(mén)名稱(chēng) If IsNull((2)) Then Describes = Else Describes = Trim((2)) 39。部門(mén)描述 End If UpperId = (3) 39。上級(jí)編號(hào) Else Init End If End Sub 39。根據(jù)部門(mén)編號(hào)，讀取部門(mén)名稱(chēng) Public Function GetName(ByVal TmpId As Long) As String Dim rs As New 39。定義結(jié)果集對(duì)象 39。使用SELECT語(yǔ)句讀取指定部門(mén)名稱(chēng) SqlStmt = SELECT DepName FROM Departments WHERE DepId= _ + Trim(Str(TmpId)) Set rs = QueryExt(SqlStmt) If Not Then GetName = Trim((0)) Else GetName = End If End Function 39。返回新記錄的編號(hào)，當(dāng)前最大編號(hào)加1 Public Function GetNewId() As Long Dim TmpId As Long Dim rs As New 39。使用SELECT語(yǔ)句，讀取最大的編號(hào) SqlStmt = SELECT Max(DepId) FROM Departments Set rs = QueryExt(SqlStmt) If Then GetNewId = 1 Else GetNewId = (0) + 1 End If End Function 39。判斷指定的部門(mén)中是否存在員工記錄 Public Function HaveEmp(ByVal TmpDepid As Long) As Boolean Dim rs As New 39。使用SELECT語(yǔ)句在Employees表中讀取DepId字段等于TmpDepid的記錄 SqlStmt = SELECT * FROM Employees WHERE DepId= + Trim(Str(TmpDepid)) Set rs = QueryExt(SqlStmt) If Not Then HaveEmp = True Else HaveEmp = False End If End Function 39。判斷一個(gè)部門(mén)是否包含下級(jí)部門(mén)，在刪除部門(mén)記錄時(shí)使用 Public Function HaveSon(ByVal TmpUpperId As Long) As Boolean Dim rs As New SqlStmt = SELECT DepId FROM Departments WHERE UpperId= _ + Trim(Str(TmpUpperId)) Set rs = QueryExt(SqlStmt) If Not Then HaveSon = True Else HaveSon = False End If End Function 39。判斷部門(mén)名稱(chēng)是否存在 Public Function In_DB(ByVal DepName As String, _ ByVal DepUpper As Long) As Boolean Dim rs As New SqlStmt = SELECT DepId FROM Departments WHERE DepName=39。 + Trim(DepName) _ + 39。 and UpperId= + Trim(Str(DepUpper)) Set rs = QueryExt(SqlStmt) If Not Then In_DB = True Else In_DB = False End If End Function Public Function Insert() As Long Dim DepId As Long 39。生成新的編號(hào) DepId = GetNewId SqlStmt = INSERT INTO Departments VALUES( + Trim(Str(DepId)) + ,39。 _ + Trim(DepName) + 39。,39。 + Trim(Describes) _ + 39。, + Trim(Str(UpperId)) + ) SQLExt (SqlStmt) Insert = DepId 39。返回記錄編號(hào) End Function 39。讀取指定部門(mén)編號(hào)的所有下級(jí)部門(mén)信息 Public Sub Load_Departments_ByUpper(UpperId As Long) Dim i As Integer Dim rs As New 39。初始化部門(mén)數(shù)組 Erase Arr_DepName Erase Arr_DepDescribe Erase Arr_DepId ReDim Arr_DepName(0) ReDim Arr_DepDescribe(0) ReDim Arr_DepId(0) 39。設(shè)置SELECT語(yǔ)句 SqlStmt = SELECT DepId,DepName,Describes FROM Departments WHERE UpperId= _ + Trim(Str(UpperI