发布时间 : 星期一 文章数据库课程设计网吧管理系统更新完毕开始阅读
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|\
& &