摘要：Option ExplicitDim miCount As IntegerPrivate Sub cmbShenFen_Change()End SubPrivate Sub cmdCancel_Click() Call cancelConnection Unload MeEnd SubPrivate Sub cmdOK_Click() '定义变量 Dim txtSQL As String Dim... 阅读全文

摘要：Option Explicit'用户登录身份Public gstrShenFen As StringPublic gstrYongHuMing As String'***************************************************** '目的：执行操作数据库的功能 '输入： 'SQL：为要执行的SQL语句。 'MsgString：为提示信息。 '返回：如果执... 阅读全文