教学成绩管理系统的VB实现.ppt

一、模板 Public HostName As String 连接主机(服务器名)： Public UserName As String 用户名 Public LoginUserName As String 登录名 Public ConnectUserName As String 连接用户名 Public ConnectPassWord As String 连接用户口令 Public txtSQL As String SQL查询语句 Public msg_Sql As String SQL查询返回信息，返回结果：记录集(Recordset) Sub Main() HostName = (local) frmLogin.Show End Sub SQL Server 数据库 Public Function ConnectString() As String ConnectString = driver={SQL Server};SERVER= HostName _ ;DATABASE=产品系统销售表;UID= ConnectUserName ;PWD= Conn