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

Private Sub Command3_Click() frmClientIP.Show vbModal End Sub

七、窗体7代码

Option Explicit

Private Sub cmdcancel_Click() Unload Me End Sub

Private Sub cmdok_Click() 'á??óêy?Y?a3?ê??ˉ

Dim cn As ADODB.Connection Dim rst As ADODB.Recordset Set cn = New Connection

Set rst = New ADODB.Recordset

cn.Open concn

frmManager.Adodc1.Recordset!mstate = 1

frmManager.Adodc1.Recordset![stime] = Now() frmManager.Adodc1.Recordset![jstate] = \??D\ frmManager.Adodc1.Recordset.Save Unload Me End Sub