自行车系统代码.docx
《自行车系统代码.docx》由会员分享，可在线阅读，更多相关《自行车系统代码.docx（42页珍藏版）》请在冰点文库上搜索。
自行车系统代码
登录页面的代码
Publica,b,c,d,eAsString
PrivateSubCommand1_Click（）
a=Trim（Text1.Text）
b=Trim（Text2.Text）
c=Trim（Text3.Text）
Ifa=""Orb=""Orc=""Then
MsgBox"请输入所要求的信息再登录！
",vbOKCancel+48,"登录"
ElseIfa=""Then
MsgBox"账号不能为空，请输入！
",vbOKCancel+48,"登录"
Text1.SetFocus
ElseIfb=""Then
MsgBox"密码不能为空，请输入！
",vbOKCancel+48,"登录"
Text2.SetFocus
ElseIfc=""Then
MsgBox"请再次输一次密码！
",vbOKCancel+48,"登录"
Text3.SetFocus
ElseIfa<>"农大111自行车"Then
MsgBox"账号错误！
请确认输入",vbOKCancel+48,"登录"
Text1.Text=""
Text1.SetFocus
ElseIfb<>"fafu111"Then
MsgBox"密码错误！
请确认输入",vbOKCancel+48,"登录"
Text2.Text=""
Text2.SetFocus
ElseIfc<>bThen
MsgBox"密码不一致！
请确认输入",vbOKCancel+48,"登录"
Text2.Text=""
Text3.Text=""
Text2.SetFocus
ElseIfa="农大111自行车"Andb="fafu111"Then
e=MsgBox（"登录成功！
！
！
",vbOKCancel+64,"登陆成功"）
Ife=vbOKThen
Form1.Hide
Form2.Show
Else
Text1.Text=""
Text2.Text=""
Text3.Text=""
EndIf
EndIf
EndSub
PrivateSubCommand2_Click（）
End
EndSub
PrivateSubTimer1_Timer（）
Label1.Left=Label1.Left+20
IfLabel1.Left>Me.WidthThenLabel1.Left=4440:
Timer1.Enabled=False
EndSub
主窗体代码
PrivateSubcheliang1_Click（）
Form5.Show
EndSub
PrivateSubcheliang2_Click（）
Form6.Show
EndSub
PrivateSubchuzu_Click（）
Form4.Show
EndSub
PrivateSubkehuguanli1_Click（）
Form7.Show
EndSub
PrivateSubtongji_Click（）
Form8.Show
EndSub
PrivateSubxitong2_Click（）
Form3.Show
EndSub
PrivateSubxitong3_Click（）
j=MsgBox（"确定要退出吗？
",vbOKCancel+32,"警告"）
Ifj=vbOKThen
End
EndIf
EndSub
初始化窗体代码
PrivateSubCommand1_Click（）
SelectCaseCombo1.ListIndex
Case0
IfMsgBox（"真的要进行初始化吗？
",vbYesNo,"确认初始化操作"）=vbYesThen
Calldeldata（"bike"）
Combo1.ListIndex=-1
Else
Combo1.ListIndex=-1
EndIf
Case1
IfMsgBox（"真的要进行初始化吗？
",vbYesNo,"确认初始化操作"）=vbYesThen
Calldeldata（"users"）
Combo1.ListIndex=-1
Else
Combo1.ListIndex=-1
EndIf
Case2
IfMsgBox（"真的要进行初始化吗？
",vbYesNo,"确认初始化操作"）=vbYesThen
Calldeldata（"book"）
Combo1.ListIndex=-1
Else
Combo1.ListIndex=-1
EndIf
Case3
IfMsgBox（"真的要进行系统初始化吗？
",vbYesNo,"确认初始化操作"）=vbYesThen
Calldeldata（"bike"）
Calldeldata（"users"）
Calldeldata（"book"）
Combo1.ListIndex=-1
Else
Combo1.ListIndex=-1
EndIf
EndSelect
EndSub
PrivateSubCommand2_Click（）
Form3.Hide
EndSub
PrivateSubForm_Load（）
EndSub
出租处理代码
PrivateSubCommand1_Click（）
DimrsAsADODB.Recordset
IfTrim（Text1.Text）=""Then
MsgBox"请先输入客户编号！
"
Command1.Enabled=True
Else
sql="select*fromuserswhere客户编号="&"'"&Trim（Text1.Text）&"'"
Setrs=exesql（sql）
Ifrs.RecordCount=0Then
MsgBox"没有该客户"
Text1.Text=""
Text1.SetFocus
ExitSub
Else
Adodc1.RecordSource=sql
rs.Update
Text1.Text=rs.Fields（"客户编号"）.Value
Text2.Text=rs.Fields（"姓名"）.Value
Ifrs.Fields（"身份证号"）.Value<>""ThenText4.Text=rs.Fields（"身份证号"）.Value
Ifrs.Fields（"学生证号"）.Value<>""ThenText4.Text=rs.Fields（"学生证号"）.Value
Text3.Text=rs.Fields（"性别"）.Value
Text5.Text=rs.Fields（"手机号码"）.Value
rs.Close
Setrs=Nothing
Setconn=Nothing
EndIf
EndIf
Command1.Enabled=False
EndSub
PrivateSubCommand10_Click（）
i=MsgBox（"确认信息没有错了吗？
",vbOKCancel+32,警告）
Ifi=vbOKThen
Command10.Enabled=False
Else
Command10.Enabled=True
EndIf
EndSub
PrivateSubCommand11_Click（）
Frame4.Visible=False
EndSub
PrivateSubCommand12_Click（）
DimmeyAsString
IfText14.Text<>""Then
mey=Str（Val（Text15.Text）*Val（Combo3.Text）+Val（Text14.Text））
Else
mey=Str（Val（Text15.Text）*Val（Combo3.Text））
EndIf
Text9.Text=Format（mey,"##0.0"）&"元"
EndSub
PrivateSubCommand13_Click（）
DimrsAsADODB.Recordset
w=MsgBox（"确定要删除吗？
删除后不可恢复",vbOKCancel+32,警告）
Ifw=vbOKThen
IfTrim（Text17.Text）<>""Then
sql="select*frombookwhere订单号="&"'"&Trim（Text17.Text）&"'"
Setrs=exesql（sql）
rs.Delete
Adodc3.Refresh
DataGrid1.Refresh
MsgBox"删除成功"
'清空数据
Text17.Text=""
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text5.Text=""
Text6.Text=""
Text7.Text=""
Text8.Text=""
Text9.Text=""
Text10.Text=""
Text11.Text=""
Text13.Text=""
Text14.Text=""
Text15.Text=""
rs.Close
EndIf
EndIf
EndSub
PrivateSubCommand14_Click（）
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text5.Text=""
Command1.Enabled=True
EndSub
PrivateSubCommand15_Click（）
Text6.Text=""
Text7.Text=""
Text8.Text=""
Command2.Enabled=True
EndSub
PrivateSubCommand2_Click（）
DimrsAsADODB.Recordset
IfTrim（Text6.Text）=""Then
MsgBox"请先输入车辆编号！
"
Command2.Enabled=True
Else
sql="select*frombikewhere车辆编号="&"'"&Trim（Text6.Text）&"'"
Setrs=exesql（sql）
Ifrs.RecordCount=0Then
MsgBox"车库并没有该车辆"
Text6.Text=""
Text6.SetFocus
ExitSub
Else
Adodc2.RecordSource=sql
rs.Update
Text7.Text=rs.Fields（"车辆型号"）.Value
Text8.Text=rs.Fields（"颜色"）.Value
rs.Close
Setrs=Nothing
Setconn=Nothing
EndIf
EndIf
Command2.Enabled=False
EndSub
PrivateSubCommand3_Click（）
Text11.Text=Now（）
EndSub
PrivateSubCommand4_Click（）
Text13.Text=Now（）
EndSub
PrivateSubCommand5_Click（）
IfText11.Text<>""AndCombo3.Text<>""Then
DimsqlAsString
DimrsAsADODB.Recordset
DimconnAsNewADODB.Connection
Setrs=NewADODB.Recordset
Setconn=NewADODB.Connection
conn.ConnectionString="Provider=SQLOLEDB.1;PersistSecurityInfo=False;UserID=sa;InitialCatalog=bbu;DataSource="&GetName（）
conn.Open
IfCommand1.Enabled<>FalseOrCommand2.Enabled<>FalseOrCommand10.Enabled<>FalseThen
MsgBox"有表单信息漏填或忘了点击“确定”"
ElseIfTrim（Text17.Text）<>""Then
sql="select*frombookwhere订单号="&"'"&Trim（Text17.Text）&"'"
rs.Opensql,conn,1,1
Ifrs.RecordCount<>0Then
'判断是否重复
MsgBox"该订单编号已存在！
请重新填写"
Text17.Text=""
Text17.SetFocus
rs.Close
Else
rs.Close
sql="select*frombook"
rs.Opensql,conn,3,2
rs.AddNew
rs.Fields（"订单号"）.Value=Trim（Text17.Text）
rs.Fields（"客户编号"）.Value=Trim$（Text1.Text）
rs.Fields（"证件号"）.Value=Trim（Text4.Text）
rs.Fields（"姓名"）.Value=Trim（Text2.Text）
rs.Fields（"性别"）.Value=Trim（Text3.Text）
rs.Fields（"手机号码"）.Value=Trim（Text5.Text）
rs.Fields（"车辆编号"）.Value=Trim（Text6.Text）
rs.Fields（"车辆型号"）.Value=Trim（Text7.Text）
rs.Fields（"颜色"）.Value=Trim（Text8.Text）
rs.Fields（"状态"）.Value="出租"
rs.Fields（"出租时间"）.Value=Trim（Text11.Text）
IfCombo3.Text<>""Thenrs.Fields（"单价"）.Value=Trim（Combo3.Text）
IfTrim（Text10.Text）<>""Thenrs.Fields（"押金"）.Value=Trim（Text10.Text）
rs.Fields（"是否已入库"）.Value="否"
rs.Update
MsgBox"出租成功"
'清空数据
Adodc3.Refresh
DataGrid1.Refresh
rs.Close
Setrs=Nothing
Setconn=Nothing
Command4.Enabled=True
Text15.Enabled=True
Text9.Enabled=True
Combo1.Enabled=True
Text14.Enabled=True
EndIf
EndIf
Command1.Enabled=True
Command2.Enabled=True
Command10.Enabled=True
Else
MsgBox"出租时间和单价不能为空！
！
！
"
Command10.Enabled=True
ExitSub
EndIf
EndSub
PrivateSubCommand6_Click（）
Frame4.Visible=True
EndSub
PrivateSubCommand7_Click（）
DimrsAsADODB.Recordset
IfTrim（Text17.Text）<>""Then
sql="select*frombookwhere订单号="&"'"&Trim（Text17.Text）&"'"
Setrs=exesql（sql）
Ifrs.RecordCount=0Then
MsgBox"并没有该订单，请确认"
Text17.Text=""
Text17.SetFocus
ExitSub
EndIf
'以可写方式打开记录集
rs.Update
IfOption1.Value=TrueThen
rs.Fields（"状态"）.Value="出租"
Else
rs.Fields（"状态"）.Value="归还"
EndIf
IfTrim（Text13.Text）<>""Thenrs.Fields（"归还时间"）.Value=Trim（Text13.Text）
IfCombo1.Text<>""Thenrs.Fields（"是否损坏"）.Value=Combo1.Text
IfCombo4.Text<>""Thenrs.Fields（"是否已入库"）.Value=Combo4.Text
IfText4.Text<>""Thenrs.Fields（"罚金"）.Value=Trim（Text14.Text）
rs.Fields（"出租款"）.Value=Text9.Text
rs.Update
Adodc3.Refresh
DataGrid1.Refresh
MsgBox"归还成功"
'清空数据
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text5.Text=""
Text6.Text=""
Text7.Text=""
Text8.Text=""
Text9.Text=""
Text10.Text=""
Text11.Text=""
Text13.Text=""
rs.Close
EndIf
EndSub
PrivateSubCommand8_Click（）
IfTrim（Text16.Text）<>""Then
DimrsAsADODB.Recordset
SelectCaseCombo2.ListIndex
DimsqlAsString
Case0
sql="select*frombookwhere订单号="&"'"&Trim（Text16.Text）&"'"
Case1
sql="select*frombookwhere客户编号="&"'"&Trim（Text16.Text）&"'"
Case2
sql="select*frombookwhere车辆编号="&"'"&Trim（Text16.Text）&"'"
EndSelect
Setrs=exesql（sql）
Ifrs.EOF=TrueThen
MsgBox"不存在满足此条件的订单！
，请确认"
Text16.Text=""
Text16.SetFocus
rs.Close
ExitSub
Else
rs.Update
Adodc3.RecordSource=sql
Adodc3.Refresh
DataGrid1.Refresh
rs.Close
Setrs=Nothing
Setconn=Nothing
EndIf
Else
MsgBox"请先填写条件"
ExitSub
EndIf
EndSub
PrivateSubCommand9_Click（）
Combo2.Text=""
Text16.Text=""
EndSub
PrivateSubDataGrid1_Click（）
CallDataGrid1_GotFocus
EndSub
PrivateSubDataGrid1_GotFocus（）
DimrsAsADODB.Recordset
IfDataGrid1.Columns（"订单号"）.Value<>""Then
Text17.Text=DataGrid1.Columns（"订单号"）.Value
IfTrim（Text17.Text）<>""Then
sql="select*frombookwhere订单号="&"'"&Trim（Text17.Text）&"'"
Setrs=exesql（sql）
rs.Update
Adodc3.Refresh
DataGrid1.Refresh
Text1.Text=rs.Fields（"客户编号"）.Value
Text2.Text=rs.Fields（"姓名"）.Value
Text4.Text=rs.Fields（"证件号"）.Value
Text5.Text=rs.Fields（"手机号码"）.Value
Ifrs.Fields（"性别"）.Value<>""ThenText3.Text=rs.Fields（"性别"）.Value
Text7.Text=rs.Fields（"车辆型号"）.Value
Ifrs.Fields（"押金"）.Value<>""ThenText10.Text=rs.Fields（"押金"）.Value
Text6.Text=rs.Fiel
升级会员 