数据库课程设计网吧管理系统

9 Memo 备注 序号 0 1 2 3 4 5 6 7 9 中文名 userID Pwd ChkPwd DataTime Balance Discount Totaltime CountNum Memo 4.3member1表： 字段名 类型 10 10 10 2 2 2 2

4.4online表： 字段名 类型 10 字符型 字符型archar 时间日期 字符型 文本符型 文本符型 文本类型 日期时间 数字 数字 数字 数字 备注 备注 主键 序号 0 1 2 3 中文名 ID ClientID LoginTime TimeOut 备注 主键 （10，2） 10 备注 主键 序号 0 1 2 3 4 5 6 7 中文名 ID Mstate Jstate stime Endtime Time Money Ltime 4.4online表： 字段名 类型 10 （是，否） 10 10 字符型 判断 文本 日期 日期 数字 货币 数字 8 9 Userid uprice 文本 货币 三、物理设计

写索引是如何设计的：写索引是如何设计的：镞索引是行的物理顺序和索引的顺序是一致的。页级，低层等索引的各个级别上都包含实际的数据页。一个表只能是有一个镞索引。由于update,delete语句要求相对多一些的读操作，因此镞索引常常能加速这样的操作。在至少有一个索引的表中，你应该有一个镞索引

第五章 界面设计

一、主界面

单击主界面上的各个按钮，可以进入相应的界面中。

二、系统设置 对参数进行设置

功能介绍，相关控件；

三、查询上机时间等信息

功能介绍，相关控件；

第六章 代码与注释

一、窗体1代码

Option Explicit

Private Sub cmdexit_Click() Unload Me End Sub

Private Sub cmdcounter_Click() Dim cn As ADODB.Connection Dim i As Integer

Dim rst As ADODB.Recordset Dim strsql As String

Set cn = New Connection

Set rst = New ADODB.Recordset cn.Open concn 'íù history ±í?Dìí?ó????

frmManager.Adodc1.Recordset!endtime = Now()

txtmoney.Text = frmManager.Adodc1.Recordset!Time * frmManager.Adodc1.Recordset!uprice '×￠òaê±??×???μ?ìí?ó·?·¨￡?# strsql = \into history (pcid,starttime,endtime,pay) values (\frmManager.Adodc1.Recordset!Mid & \& frmManager.Adodc1.Recordset!stime & \frmManager.Adodc1.Recordset!endtime & \ Debug.Print strsql cn.Execute strsql ' ê?·?3é1|￡?êy?Y3?ê??ˉ With frmManager.Adodc1 .Recordset!mstate = 0 .Recordset![stime] = 0 .Recordset![jstate] = \′??·?\ .Recordset![Money] = 0 .Recordset![endtime] = 0 .Recordset![Time] = 0 .Recordset![lTime] = 0 .Recordset![userID] = \ On Error GoTo error_proc .Recordset.Save

End With

frmManager.Refresh 'ê1êy?Yí?2???ê? MsgBox \?·?3é1|\

& &