主题：用户登录

用户登录_AfterLoad

Dim cpid As String = ComputerID

Dim hdid As String = HardDiskID

Dim nm As String = ComputerName

Dim cmd1 As New SQLCommand

Dim dt1 As DataTable

cmd1.C

cmd1.CommandText = "Select * Fr om {Users} Where [电脑ID] = '" & cpid & "'"

dt1 = cmd1.ExecuteReader

Dim cmd2 As New SQLCommand

Dim dt2 As DataTable

cmd2.C

cmd2.CommandText = "Select * Fr om {Users} Where [硬盘ID] = '" & hdid & "'"

dt2 = cmd2.ExecuteReader

If dt1.DataRows.Count = 0 AndAlso dt2.DataRows.Count = 0 Then

 Messagebox.show("PC没有备案,请联系管理员!" & Chr(13) & Chr(10) &  "用户名:【" & nm & "】" & Chr(13) & Chr(10) &  "PCID:【"  & cpid & "】" & Chr(13) & Chr(10) &  "HDID:【"  & hdid & "】","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    Syscmd.Project.Exit() '退出系统

End If

Dim cmd As New SQLCommand

Dim dt As DataTable

Dim cmb As WinForm.ComboBox = e.Form.Controls("UserName")

cmd.C

cmd.CommandText = "SELECT DISTINCT Name Fr om {Users} Where [Group] Not Like '管理员' "

dt = cmd.ExecuteReader()

For Each dr As DataRow In dt.Datarows

    cmb.Items.Add(dr("Name"))

Next

cmb.SelectedIndex = 0

LogCount  = LogCount  + 1  '登陆一次将记录登陆次数

If dt1.DataRows.Count = 0 AndAlso dt2.DataRows.Count = 0 Then

 Messagebox.show("PC没有备案,请联系管理员!" & Chr(13) & Chr(10) &  "用户名:【" & nm & "】" & Chr(13) & Chr(10) &  "PCID:【"  & cpid & "】" & Chr(13) & Chr(10) &  "HDID:【"  & hdid & "】","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

 vars("退出") = true

return

End If

打开登录窗口的地方：

forms("用户登录").open

if vars("退出") then

    Syscmd.Project.Exit() '退出系统

return

end if