当前位置:跳过导航链接计算机毕业设计首页 : VB毕业设计 : 详细内容

VB公交管理系统(程序下载)(4)

来源:xiaoniu168.com 作者:本站原创 添加时间:2014-11-07 点击数:16423

计算机毕业设计介绍:

双击系统图标,运行本系统。显示如下主界面,点击登陆按钮,进入本系统。

以下是引用片段:

相关代码如下:
Private Sub btnAdd_Click()
Unload Me
FindBusWay.Show
End Sub

Private Sub Form_Resize()
'动态改变窗体的标题和样式
Call FormFace(Me, TopPicture, KKShape)
Call TopCaption(Me.TopPicture, Label2.Caption)
End Sub

进入系统查询界面,显示系统查询界面,包括按线路查询、按地点查询、两点站之间查询,以及查询结果显示界面,查询、结束程序、公交线路图按钮。

以下是引用片段:

其关键代码如下:
 Option Explicit
'--------------------窗体移动变量
Dim intOldX As Integer
Dim intOldy As Integer
Dim boolMouseFlag As Boolean

 


Private Sub btnAdd_Click()
    Dim sql As String
   
    '调用数据库连接过程
     Call OpenConn
    
    '执行查询sql语句
    sql = "SELECT * FROM route WHERE  name = '" & Text2.Text & "路'"
       
    rs.Open sql, cn
   
    Text1.Text = ""
    '读取记录集内容
    While Not rs.EOF
    '将记录输出到窗体上
    Text1.Text = Text1.Text & vbCrLf & vbCrLf & rs("name") & vbCrLf & vbCrLf & rs("content")
    rs.MoveNext
    Wend
 
    '调用数据库关闭过程
    Call CloseConn
End Sub

 


Private Sub Form_Resize()
'窗体外观
Call FormFace(Me, Me.TopPicture, Me.KKShape)
Call TopCaption(Me.TopPicture, Me.Label2(3).Caption)
End Sub

Private Sub TopPicture_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'准备窗体移动标志
intOldX = X
intOldy = Y
boolMouseFlag = True
End Sub

Private Sub TopPicture_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'存储窗提议动前的left,top
Dim intLeft, intTop As Integer
intLeft = Me.Left
intTop = Me.Top
If Me.WindowState = 2 Then Exit Sub
If boolMouseFlag = True Then
    Me.Left = intLeft + (X - intOldX)
    Me.Top = intTop + (Y - intOldy)
End If
End Sub

〖资料来源:计算机毕业论文 www.xiaoniu168.com

第5页为计算机毕业论文部分......

【联系方式】

【本站信誉】

用心做计算机毕业设计论文网
计算机毕业设计客服
计算机毕业论文客服在线 计算机毕业论文客服在线
计算机毕业论文在线,计算机毕业设计在线