莆田学院课程设计
(2)汽车查询中部分源代码如下： Private Sub Command1_Click() If Option1.Value = True Then
Frame1.Caption = Option1.Caption
sql = \汽车表] WHERE 车牌 like'%\ End If
If Option2.Value = True Then
Frame1.Caption = Option2.Caption
sql = \汽车表] WHERE 车型 like'%\ End If
If Option3.Value = True Then
sql = \汽车表] WHERE 出租状态 like '%\ End If
If Option4.Value = True Then
Frame1.Caption = Option4.Caption
sql = \汽车表] WHERE 出租价格 like'%\ End If
Adodc1.RecordSource = sql Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1 End Sub
20
莆田学院课程设计
6.1.4汽车租赁界面
（1）管理员进入系统中，进入汽车租赁界面，可以通过界面上显示的未租出汽车表格进行选择，选择符合自己所需要的汽车类型货汽车价格，然后填写完整个人信息，交压金，即可进行租车。
如图14所示：
图14
（2）汽车租赁界面相关的部分源码：
Private Sub Command1_Click() If Text2.Text = \
MsgBox \请填写客户姓名！\ Exit Sub End If
If Text3.Text = \
MsgBox \请填写联系电话！\ Exit Sub End If
If Text4.Text = \ MsgBox \请填写压金！\
21
莆田学院课程设计
Exit Sub End If
If Len(Text6.Text) <> 18 Then MsgBox \身份证没有18位！\Exit Sub End If
If Text3.Text <> \MsgBox \联系电话不可超过11位！\Exit Sub End If
If Text2.Text <> \
strsql = \用户属性] Values('\ + \ + \ SQLExt (strsql)
strsql1 = \汽车表] Set 出租状态='已出租' WHERE 车牌='\ SQLExt (strsql1) MsgBox \添加成功！\ Text1.Text = \ Text2.Text = \ Text3.Text = \ Text4.Text = \ Text5.Text = \ Text6.Text = \ Text7.Text = \ Form_Load End If End Sub
Private Sub Command2_Click() Unload Me End Sub
Private Sub DataGrid1_Click()
Text1.Text = Adodc1.Recordset.Fields(\车牌\Text7.Text = Adodc1.Recordset.Fields(\车型\End Sub
22
莆田学院课程设计
Private Sub Form_Load() DTPicker1.Value = Date time = DTPicker1.Value Adodc1.ConnectionString = cnn
strsql = \汽车表] where 出租状态= '未出租'\Adodc1.RecordSource = strsql Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1 End Sub
6.1.5汽车归还界面
（1）管理员进入系统中，进入汽车归还界面，可以通过查询用户自己的个人信息从而显示自己的租车记录，选择自己所租汽车以及归还日期，点击归还，即可完成归还，清楚租车记录。
如图15所示：
23
莆田学院课程设计
图15
（2）汽车归还界面相关的部分源码：
Private Sub DataGrid1_Click()
Text2.Text = Adodc1.Recordset.Fields(\客户姓名\Text3.Text = Adodc1.Recordset.Fields(\出租汽车\Text4.Text = Adodc1.Recordset.Fields(\身份证\Text5.Text = Adodc1.Recordset.Fields(\汽车类型\Text6.Text = Adodc1.Recordset.Fields(\出租日期\ End Sub
Private Sub Form_Load() DTPicker1.Value = Date Adodc1.ConnectionString = cnn sql = \用户属性]\Adodc1.RecordSource = sql Adodc1.Refresh
24