数据库系统与技术课程设计.docVIP

数据库课程设计输入输出、查询、删除等基本功能 汽车销售管理系统功能表 系统数据 1.客户基本表 2.车辆信息表 3.车辆销售表 4.登陆界面 5.主界面 6.车辆信息管理 7.客户信息管理 8.均可实现增、删、改、查 9.状态栏的设计 登录界面字体闪烁效果 Private Sub Timer1_Timer() Label3.Left = Label1.Left + 100 If Label3.Left = Me.ScaleWidth Then Label3.Left = -Label3.Width Label3.ForeColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256) Label4.Left = Label1.Left + 100 If Label4.Left = Me.ScaleWidth Then Label4.Left = -Label4.Width Label4.ForeColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256) End Sub 状态栏时间的变化语句 Private Sub Timer1_Timer() StatusBar1.Panels(3).Text = Format(Now, yyyy年mm月dd日 hh点mm分ss秒) End Sub 如何实现当鼠标移动到某选项时字体变红色，离开时字体变黑色 Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim i As Integer For i = 0 To Label1.Count - 1 Label1(i).ForeColor = RGB(0, 0, 0) Next i End Sub Private Sub Label2_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Label1(Index).ForeColor = RGB(255, 0, 0) End Sub Private Sub Command1_Click() Dim temp1 temp1 = 0 Dim sql As String sql = If Text2.Text Then If temp1 = 0 Then sql = sql + where Else sql = sql + and End If sql = sql + 车辆编号= + Text2.Text + temp1 = temp1 + 1 End If If Text1.Text Then If temp1 = 0 Then sql = sql + where Else sql = sql + and End If sql = sql + 车辆型号 = + Text1.Text + temp1 = temp1 + 1 End If If Text3.Text Then If temp1 = 0 Then sql = sql + where Else sql = sql + and End If sql = sql + 价格= + Text3.Text + temp1 = temp1 + 1 End If If Text4.Text Then If temp1 = 0 Then sql = sql + where Else sql = sql + and End If sql = sql + 库存数量= + Text4.Text + temp1 = temp1 + 1