发布时间 : 2024/6/13 1:05:09 星期四 文章数据库课程设计网吧管理系统更新完毕开始阅读d3d875561cd9ad51f01dc281e53a580217fc504f

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