; "年" & Yue & "月" & Ri & "日" & Shi & "时" & Fen & "分" & "备份数据库吗?", vbExclamation + vbYesNo, "警告")
If I <> vbYes Then
Exit Sub
Else
strSource = App.Path & "\bat\sever_copy.mdb"
strDestination = App.Path & "\sever.mdb"
CopyFile strSource, strDestination, False
MsgBox "本地数据库已被成功恢复!", vbInformation + vbOKOnly, "系统提示"
End If
End Sub
对话框如图6-9和6-10:
图6.9本地数据库还原的界面图
图6.10还原成功界面图
6.2.4 查看服务器信息
作为服务器需要对服务器本身运行的信息有准确的掌握,而且还记录用户注册和登陆的信息。点击文件菜单的查看服务器信息按钮就可以显示以下的窗口,如图6.11:
图6.11 服务器信息界面图
关键代码如下:
Text1.SelText = "本机IP地址是:" & Form1.Winsock1(0).LocalIP & vbCrLf
Text1.SelText = "程序是" & formtime & "启动的" & vbCrLf
Text1.SelText = Form1.StatusBar1.Panels(3).Text & vbCrLf
Text1.SelText = "当前" & Form1.StatusBar1.Panels(1).Text & "人" & vbCrLf
Text1.SelText = "当前" & Form1.StatusBar1.Panels(2).Text & "人" & vbCrLf
Text1.SelText = "用户登陆最多时达" & CStr(maxconnext) & "人" & vbCrLf
6.2.5 保存记录以及查看记录
对于保存的聊天和日志信息,服务器必须能够很方便的显示出任意一天的信息,实现快速查看。
其中"选择日期"是command1,"日志信息"是command2,"聊天信息"是command3。
选择日期的界面在类模块已经定义了Dim Calendar As Class1
关键代码如下:
Private Sub Command1_Click()
c1 = Not c1
If c1 Then
Calendar.cshow
Else
Calendar.chide
End If
End Sub
Private Sub Command2_Click()
On Error GoTo 30
Dim t, str As String
c1 = False
Calendar.chide
Open App.Path & "\data\" & Label1.Caption & Command2.Caption & ".txt" For Input As #1
Do Until EOF(1)
Input #1, str
t = t & str
DoEvents
Loop
Close #1
If t = "" Then Text1 = "这一天没有任何日志信息" Else Text1 = t
Exit Sub
30:
Close #1
Text1 = "这一天的日志信息不存在,或文件已丢失"
End Sub
Private Sub Command3_Click()
On Error GoTo 30
Dim t, str As String
c1 = False
Calendar.chide
Open App.Path & "\data\" & Label1.Caption & Command3.Caption & ".txt" For Input As #1
Do Until EOF(1)
Input #1, str
t = t & str
DoEvents
Loop
Close #1
If t = "" Then Text1 = "这一天没有任何聊天信息" Else Text1 = t
Exit Sub
30:
Close #1
Text1 = "这一天的聊天信息不存在,或文件已丢失"
End Sub
在选择日期的界面点击任意的一天,会在Label1.Caption显示选中的日期。
相关代码如下:
Public Sub ProcMsg(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long, Result As Long)
Dim hdrX As NMHDR
On Error Resume Next
Select Case uMsg
Case WM_NOTIFY
CopyMemory hdrX, ByVal lParam, Len(hdrX)
If hdrX.hwndFrom = Calendar.hWnd Or hdrX.code = DTN_DATET