VB代码(有待加入说明)

Adodc1.ConnectionString = concn Adodc1.CommandType = adCmdTable Adodc1.RecordSource = \"pc\" Adodc1.Refresh

Call DisableX(Me) '禁用关闭窗体 Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim sql As String

Set cn = New ADODB.Connection Set rs = New ADODB.Recordset cn.Open concn

sql = \"select id,ip from clientip\" rs.Open sql, cn, adOpenKeyset rs.MoveNext rs.MoveFirst

glngClientNum = rs.RecordCount ReDim gstrClientIP(glngClientNum - 1) While Not rs.EOF

On Error GoTo error_proc

gstrClientIP(rs(\"ID\") - 1) = rs(\"IP\") rs.MoveNext Wend rs.Close

Set rs = Nothing

cn.Close

Set cn = Nothing With Winsock1

.Protocol = sckUDPProtocol

.RemoteHost = gstrClientIP(glngClientNum - 1) .RemotePort = 4001 .LocalPort = 4002 .Bind End With

blnReceived = False blnOnlineOK = False Timer3.Enabled = False Exit Sub error_proc:

MsgBox Err.Description, vbCritical, \"clientip表中的计算机号一定要按顺序录入\"

Label1.Caption = \"请到系统设置--》添加修改客户端ip,重新修改，非法的计算机编号\"

Label1.Visible = True End Sub

根据以上流程，双击窗体上的“确定”按钮，打开代码编辑器，在按钮的click事件中添加如下代码：

Private Sub cmdOK_Click() Dim cn As ADODB.Connection Dim rst As ADODB.Recordset Set cn = New Connection Set rst = New ADODB.Recordset cn.Open concn '

strsql = \"select userid ,password from admi where userid='\" & Text1.Text & \"' and password='\" & Text2.Text & \"'\"

Set rst = cn.Execute(strsql)

If rst.EOF = True And rst.BOF = True Then MsgBox \"请输入正确的管理员密码\" Else

Unload Me

frmSystem.Show vbModal End If rst.Close cn.Close End Sub

单击“添加”的按钮的click事件，编写代码如下： Private Sub cmdAdd_Click() On Error GoTo AddErr

datPrimaryRS.Recordset.AddNew Exit Sub AddErr:

MsgBox Err.Description End Sub

单击“更新”按钮的click事件，具体代码如下： Private Sub cmdUpdate_Click() On Error GoTo UpdateErr

datPrimaryRS.Recordset.UpdateBatch adAffectAll Exit Sub UpdateErr:

MsgBox Err.Description

End Sub

单击“删除”按钮的click事件的具体代码如下： Private Sub cmdDelete_Click() On Error GoTo DeleteErr With datPrimaryRS.Recordset .Delete .MoveNext

If .EOF Then .MoveLast End With Exit Sub DeleteErr:

MsgBox Err.Description End Sub

客户端登录界面load事件代码如下： Private Sub Form_Load()

On Error GoTo ErrorHandler2

PcNumber = GetSetting(Appname, Section, '取得机器号

PcIPAdress = GetSetting(Appname, Section, '取得服务器的IP地层址

DisableCtrlAltDelete (True) ErrorHandler2: End Sub

登录模块代码如下：

Private Sub cmdLogin_Click() CurState = Login

\"Client_PCNumber\") \"Server_IPAdress\") ClientLogin TxtUserID.Text, TxtPassWord.Text, PcNumber End Sub

用户一旦输入错误，可以点击“取消”按钮重新输入。其代码如下： '取消刚才的错误输入

Private Sub cmdlogout_Click() TxtUserID.Text = \"\" TxtPassWord.Text = \"\" TxtUserID.SetFocus End Sub

管理员进行机器配置。其代码如下： Private Sub CmdConfig_Click()

Dim strPassword, strPassInput, strServer, strNumber strPassword = GetSetting(Appname, Section, \"Password\") If strPassword <> \"\" Then

strPassInput = InputBox(\"请输入管理员密码,然后进行机器配置！\机器配置\")

If strPassInput <> strPassword Then

MsgBox \"你的密码不正确，请重试！\ Else

frmComputerSet.Show End If Else

frmComputerSet.Show vbModal On Error GoTo ErrorHandler1 frmComputerSet.server.SetFocus ErrorHandler1:

End If

frmComputerSet.server.Text = GetSetting(Appname, Section, \"Server_IPAdress\")

frmComputerSet.number.Text = GetSetting(Appname, Section, \"Client_PCNumber\")

On Error GoTo errordispose1 errordispose1: End Sub