自行车系统代码.docx
《自行车系统代码.docx》由会员分享,可在线阅读,更多相关《自行车系统代码.docx(35页珍藏版)》请在冰豆网上搜索。
自行车系统代码
登录页面的代码
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.Fields("车辆编号").Value