Trim(MSH(0).TextMatrix(i, 0)) & \到 \& ArrS(m) & \换乘 \& Trim(MSH(1).TextMatrix(j, 0)) & vbCrLf
Text1.Text = Text1.Text & intFA & \strFA
intFA = intFA + 1 strFA = \ End If Next Next Else rs.Close End If End If Next Else rs.Close End If Next
Set rs = Nothing End Sub
5.3 VB与SQLSERVER数据库连接使用
本系统中VB主要做前台界面设计和查询算法，SQL主要做后台数据。在两者设计完成后需要实现VB和SQl的连接，这样才能使得系统成为一个有前台有后台完整的系统。
PrivateSubCommand1_Click() On Error GoTo ErrH Cnn.ConnectionString
=
\
Security=SSPI;Persist Security Info=False;Initial Catalog=公交查询车系统;Data Source=HACGUOYS17\
Cnn.CursorLocation = adUseClient Cnn.Open FrmLogin.Show Exit Sub ErrH:
MsgBox Err.Description END SUB
首先声明一个数据库连接对象CNN，然后设置数据库连接对象的连接字符串，接着调用open方法，建立与数据库的连接。
5.4 系统的实现
? 系统登陆模块设计
在本模块中主要实现管理员和用户的登录任务，用户输入姓名和密码，系统根据不同的名称自动判断是管理员还是普通用户，输入结束后点击登录，在用户名和密码正确的情况下会进入系统主界面，当用户输入错误的时候点击取消可清除输入的姓名和密码，等待用户再次输入。当用户输入次数超过三次，系统会自动关闭，用户无再次输入权限。
? 系统主界面设计
进入主界面后系统会根据用户身份（管理员或普通用户）显示不同的菜单栏，为用户提供不同的功能。管理员进入系统后可对系统进行维护管理，
用户只能实现查询，留言功能。
系统管理：系统管理中包密码修改和用户管理。
用户管理：
实现对用户的管理，如添加，修改用户信息，删除用户信息和对用户权限进行设置。
密码修改：
用户登录后输入原始密码，并输入新密码，在再次输完新密码后点击确定便可实现密码修改。点击取消返回到主视图。
公交信息管理
公交信息管理是由管理员来实现的，其中包括站点信息管理，线路信息管理,线路站点管理。主要是对信息的录入，删除，和修改这三个操作。 站点信息管理：
主要实现对站点信息的录入，在以后线路，站点，乘车方案查询的时候提
供基本站点信息。
线路信息管理：
线路管理主要是管理员对线路信息进行操作，如添加信的公交信息，删除，修改当前改变线路的公交信息。为查询实现准确性提供可靠保证。