自行车系统代码

..-优选登录页面的代码Publica,b,c,d,eAsStringPrivateSubmand1_Click()a=Trim(Text1.Text)b=Trim(Text2.Text)c=Trim(Text3.Text)Ifa=""Orb=""Orc=""ThenMsgBox"请输入所 要求 对教师党员的评价套管和固井爆破片与爆破装置仓库管理基本要求三甲医院都需要复审吗 的信息再登录！",vbOKCancel+48,"登录"ElseIfa=""ThenMsgBox"账号不能为空，请输入！",vbOKCancel+48,"登录"Text1.SetFocusElseIfb=""ThenMsgBox"密码不能为空，请输入！",vbOKCancel+48,"登录"Text2.SetFocusElseIfc=""ThenMsgBox"请再次输一次密码！",vbOKCancel+48,"登录"Text3.SetFocusElseIfa<>"农大111自行车"ThenMsgBox"账号错误！请确认输入",vbOKCancel+48,"登录"Text1.Text=""Text1.SetFocusElseIfb<>"fafu111"ThenMsgBox"密码错误！请确认输入",vbOKCancel+48,"登录"Text2.Text=""Text2.SetFocusElseIfc<>bThenMsgBox"密码不一致！请确认输入",vbOKCancel+48,"登录"Text2.Text=""Text3.Text=""Text2.SetFocusElseIfa="农大111自行车"Andb="fafu111"Thene=MsgBox("登录成功！！！",vbOKCancel+64,"登陆成功")Ife=vbOKThenForm1.HideForm2.ShowElseText1.Text=""Text2.Text=""Text3.Text=""EndIfEndIfEndSubPrivateSubmand2_Click()EndEndSubPrivateSubTimer1_Timer()Label1.Left=Label1.Left+20IfLabel1.Left>Me.WidthThenLabel1.Left=4440:Timer1.Enabled=FalseEndSub主窗体代码PrivateSubcheliang1_Click()Form5.ShowEndSubPrivateSubcheliang2_Click()Form6.ShowEndSubPrivateSubchuzu_Click()Form4.ShowEndSubPrivateSubkehuguanli1_Click()Form7.ShowEndSubPrivateSubtongji_Click()Form8.ShowEndSubPrivateSubxitong2_Click()Form3.ShowEndSubPrivateSubxitong3_Click()j=MsgBox("确定要退出吗？",vbOKCancel+32,"警告")Ifj=vbOKThenEndEndIfEndSub初始化窗体代码PrivateSubmand1_Click()SelectCasebo1.ListIndexCase0IfMsgBox("真的要进展初始化吗？",vbYesNo,"确认初始化操作")=vbYesThenCalldeldata("bike")bo1.ListIndex=-1Elsebo1.ListIndex=-1EndIfCase1IfMsgBox("真的要进展初始化吗？",vbYesNo,"确认初始化操作")=vbYesThenCalldeldata("users")bo1.ListIndex=-1Elsebo1.ListIndex=-1EndIfCase2IfMsgBox("真的要进展初始化吗？",vbYesNo,"确认初始化操作")=vbYesThenCalldeldata("book")bo1.ListIndex=-1Elsebo1.ListIndex=-1EndIfCase3IfMsgBox("真的要进展系统初始化吗？",vbYesNo,"确认初始化操作")=vbYesThenCalldeldata("bike")Calldeldata("users")Calldeldata("book")bo1.ListIndex=-1Elsebo1.ListIndex=-1EndIfEndSelectEndSubPrivateSubmand2_Click()Form3.HideEndSubPrivateSubForm_Load()EndSub出租处理代码PrivateSubmand1_Click()DimrsAsADODB.RecordsetIfTrim(Text1.Text)=""ThenMsgBox"请先输入客户编号！"mand1.Enabled=TrueElsesql="select*fromuserswhere客户编号="&"'"&Trim(Text1.Text)&"'"Setrs=exesql(sql)Ifrs.RecordCount=0ThenMsgBox"没有该客户"Text1.Text=""Text1.SetFocusExitSubElseAdodc1.RecordSource=sqlrs.UpdateText1.Text=rs.Fields("客户编号").ValueText2.Text=rs.Fields("").ValueIfrs.Fields("号").Value<>""ThenText4.Text=rs.Fields("号").ValueIfrs.Fields("学生证号").Value<>""ThenText4.Text=rs.Fields("学生证号").ValueText3.Text=rs.Fields("性别").ValueText5.Text=rs.Fields("手机").Valuers.CloseSetrs=NothingSetconn=NothingEndIfEndIfmand1.Enabled=FalseEndSubPrivateSubmand10_Click()i=MsgBox("确认信息没有错了吗？",vbOKCancel+32,警告)Ifi=vbOKThenmand10.Enabled=FalseElsemand10.Enabled=TrueEndIfEndSubPrivateSubmand11_Click()Frame4.Visible=FalseEndSubPrivateSubmand12_Click()DimmeyAsStringIfText14.Text<>""Thenmey=Str(Val(Text15.Text)*Val(bo3.Text)+Val(Text14.Text))Elsemey=Str(Val(Text15.Text)*Val(bo3.Text))EndIfText9.Text=Format(mey,"##0.0")&"元"EndSubPrivateSubmand13_Click()DimrsAsADODB.Recordsetw=MsgBox("确定要删除吗？删除后不可恢复",vbOKCancel+32,警告)Ifw=vbOKThenIfTrim(Text17.Text)<>""Thensql="select*frombookwhere订单号="&"'"&Trim(Text17.Text)&"'"Setrs=exesql(sql)rs.DeleteAdodc3.RefreshDataGrid1.RefreshMsgBox"删除成功"'清空数据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.CloseEndIfEndIfEndSubPrivateSubmand14_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""mand1.Enabled=TrueEndSubPrivateSubmand15_Click()Text6.Text=""Text7.Text=""Text8.Text=""mand2.Enabled=TrueEndSubPrivateSubmand2_Click()DimrsAsADODB.RecordsetIfTrim(Text6.Text)=""ThenMsgBox"请先输入车辆编号！"mand2.Enabled=TrueElsesql="select*frombikewhere车辆编号="&"'"&Trim(Text6.Text)&"'"Setrs=exesql(sql)Ifrs.RecordCount=0ThenMsgBox"车库并没有该车辆"Text6.Text=""Text6.SetFocusExitSubElseAdodc2.RecordSource=sqlrs.UpdateText7.Text=rs.Fields("车辆型号").ValueText8.Text=rs.Fields("颜色").Valuers.CloseSetrs=NothingSetconn=NothingEndIfEndIfmand2.Enabled=FalseEndSubPrivateSubmand3_Click()Text11.Text=Now()EndSubPrivateSubmand4_Click()Text13.Text=Now()EndSubPrivateSubmand5_Click()IfText11.Text<>""Andbo3.Text<>""ThenDimsqlAsStringDimrsAsADODB.RecordsetDimconnAsNewADODB.ConnectionSetrs=NewADODB.RecordsetSetconn=NewADODB.Connectionconn.ConnectionString="Provider=SQLOLEDB.1;PersistSecurityInfo=False;UserID=sa;InitialCatalog=bbu;DataSource="&GetName()conn.OpenIfmand1.Enabled<>FalseOrmand2.Enabled<>FalseOrmand10.Enabled<>FalseThenMsgBox"有 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 单信息漏填或忘了点击“确定〞"ElseIfTrim(Text17.Text)<>""Thensql="select*frombookwhere订单号="&"'"&Trim(Text17.Text)&"'"rs.Opensql,conn,1,1Ifrs.RecordCount<>0Then'判断是否重复MsgBox"该订单编号已存在！请重新填写"Text17.Text=""Text17.SetFocusrs.CloseElsers.Closesql="select*frombook"rs.Opensql,conn,3,2rs.AddNewrs.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)Ifbo3.Text<>""Thenrs.Fields("单价").Value=Trim(bo3.Text)IfTrim(Text10.Text)<>""Thenrs.Fields("押金").Value=Trim(Text10.Text)rs.Fields("是否已入库").Value="否"rs.UpdateMsgBox"出租成功"'清空数据Adodc3.RefreshDataGrid1.Refreshrs.CloseSetrs=NothingSetconn=Nothingmand4.Enabled=TrueText15.Enabled=TrueText9.Enabled=Truebo1.Enabled=TrueText14.Enabled=TrueEndIfEndIfmand1.Enabled=Truemand2.Enabled=Truemand10.Enabled=TrueElseMsgBox"出租时间和单价不能为空！！！"mand10.Enabled=TrueExitSubEndIfEndSubPrivateSubmand6_Click()Frame4.Visible=TrueEndSubPrivateSubmand7_Click()DimrsAsADODB.RecordsetIfTrim(Text17.Text)<>""Thensql="select*frombookwhere订单号="&"'"&Trim(Text17.Text)&"'"Setrs=exesql(sql)Ifrs.RecordCount=0ThenMsgBox"并没有该订单，请确认"Text17.Text=""Text17.SetFocusExitSubEndIf'以可写方式翻开 记录 混凝土 养护记录下载土方回填监理旁站记录免费下载集备记录下载集备记录下载集备记录下载 集rs.UpdateIfOption1.Value=TrueThenrs.Fields("状态").Value="出租"Elsers.Fields("状态").Value="归还"EndIfIfTrim(Text13.Text)<>""Thenrs.Fields("归还时间").Value=Trim(Text13.Text)Ifbo1.Text<>""Thenrs.Fields("是否损坏").Value=bo1.TextIfbo4.Text<>""Thenrs.Fields("是否已入库").Value=bo4.TextIfText4.Text<>""Thenrs.Fields("罚金").Value=Trim(Text14.Text)rs.Fields("出租款").Value=Text9.Textrs.UpdateAdodc3.RefreshDataGrid1.RefreshMsgBox"归还成功"'清空数据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.CloseEndIfEndSubPrivateSubmand8_Click()IfTrim(Text16.Text)<>""ThenDimrsAsADODB.RecordsetSelectCasebo2.ListIndexDimsqlAsStringCase0sql="select*frombookwhere订单号="&"'"&Trim(Text16.Text)&"'"Case1sql="select*frombookwhere客户编号="&"'"&Trim(Text16.Text)&"'"Case2sql="select*frombookwhere车辆编号="&"'"&Trim(Text16.Text)&"'"EndSelectSetrs=exesql(sql)Ifrs.EOF=TrueThenMsgBox"不存在满足此条件的订单！，请确认"Text16.Text=""Text16.SetFocusrs.CloseExitSubElsers.UpdateAdodc3.RecordSource=sqlAdodc3.RefreshDataGrid1.Refreshrs.CloseSetrs=NothingSetconn=NothingEndIfElseMsgBox"请先填写条件"ExitSubEndIfEndSubPrivateSubmand9_Click()bo2.Text=""Text16.Text=""EndSubPrivateSubDataGrid1_Click()CallDataGrid1_GotFocusEndSubPrivateSubDataGrid1_GotFocus()DimrsAsADODB.RecordsetIfDataGrid1.Columns("订单号").Value<>""ThenText17.Text=DataGrid1.Columns("订单号").ValueIfTrim(Text17.Text)<>""Thensql="select*frombookwhere订单号="&"'"&Trim(Text17.Text)&"'"Setrs=exesql(sql)rs.UpdateAdodc3.RefreshDataGrid1.RefreshText1.Text=rs.Fields("客户编号").ValueText2.Text=rs.Fields("").ValueText4.Text=rs.Fields("证件号").ValueText5.Text=rs.Fields("手机").ValueIfrs.Fields("性别").Value<>""ThenText3.Text=rs.Fields("性别").ValueText7.Text=rs.Fields("车辆型号").ValueIfrs.Fields("押金").Value<>""ThenText10.Text=rs.Fields("押金").ValueText6.Text=rs.Fields("车辆编号").ValueText8.Text=rs.Fields("颜色").Valuebo3.Text=rs.Fields("单价").ValueIfrs.Fields("出租时间").Value<>""ThenText11.Text=rs.Fields("出租时间").ValueIfrs.Fields("是否已入库").Value<>""Thenbo4.Text=rs.Fields("是否已入库").ValueIfrs.Fields("归还时间").Value<>""ThenText13.Text=rs.Fields("归还时间").ValueIfrs.Fields("罚金").Value<>""ThenText14.Text=rs.Fields("罚金").ValueIfrs.Fields("出租款").Value<>""ThenText9.Text=rs.Fields("出租款")Ifrs.Fields("状态").Value="出租"ThenOption1.Value=TrueElseOption2.Value=TrueEndIfIfrs.Fields("是否损坏").Value<>""Thenbo1.Text=rs.Fields("是否损坏").Valuers.Closemand4.Enabled=TrueText15.Enabled=TrueText9.Enabled=Truebo1.Enabled=TrueText14.Enabled=TrueEndIfEndIfEndSubPrivateSubForm_Load()mand4.Enabled=FalseText15.Enabled=FalseText9.Enabled=Falsebo1.Enabled=FalseText14.Enabled=FalseEndSub车辆管理代码PrivateSubmand4_Click()DimrsAsADODB.RecordsetIfTrim(Text1.Text)<>""AndText1.Text=DataGrid1.Columns("车辆编号").ValueThensql="select*frombikewhere车辆编号="&"'"&Trim(Text1.Text)&"'"Setrs=exesql(sql)ElseMsgBox"原车辆编号要填写且不能更改！"Text1.Text=""Text1.SetFocusExitSubEndIfIfText2.Text<>""AndText3.Text<>""AndText4.Text<>""Andbo1.Text<>""Thensql="select*frombike"'以可写方式翻开记录集rs.Updaters("车辆编号")=Trim(Text1.Text)rs("车辆型号")=Trim(bo1.Text)rs("颜色")=Trim(Text2.Text)rs("原价")=Trim(Text3.Text)rs("投入时间")=Trim(Text4.Text)rs("是否已入库")=Trim(bo2.Text)rs("是否可借")=Trim(bo3.Text)rs("是否损坏")=Trim(bo4.Text)IfTrim(Text5.Text)<>""Thenrs("入库时间")=Trim(Text5.Text)IfTrim(Text6.Text)<>""Thenrs("报废时间")=Trim(Text6.Text)rs.UpdateAdodc1.RefreshDataGrid1.RefreshMsgBox"修改成功"'清空数据Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""rs.CloseElseMsgBox"信息不对，请把必填信息填写完整！"ExitSubEndIfEndSubPrivateSubmand5_Click()DimrsAsADODB.Recordsetw=MsgBox("确定要删除吗？删除后不可恢复",vbOKCancel+32,警告)Ifw=vbOKThenIfTrim(Text1.Text)<>""Thensql="select*frombikewhere车辆编号="&"'"&Trim(Text1.Text)&"'"Setrs=exesql(sql)rs.DeleteAdodc1.RefreshDataGrid1.RefreshMsgBox"删除成功"'清空数据Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""rs.CloseEndIfEndIfEndSubPrivateSubmand6_Click()IfText7.Text<>""ThenDimrsAsADODB.RecordsetSelectCasebo5.ListIndexDimsqlAsStringCase0sql="select*frombikewhere车辆编号="&"'"&Trim(Text7.Text)&"'"Case1sql="select*frombikewhere车辆型号="&"'"&Trim(Text7.Text)&"'"Case2sql="select*frombikewhere是否已入库="&"'"&Trim(Text7.Text)&"'"Case3sql="select*frombikewhere是否可借="&"'"&Trim(Text7.Text)&"'"Case4sql="select*frombikewhere是否损坏="&"'"&Trim(Text7.Text)&"'"EndSelectSetrs=exesql(sql)Ifrs.EOF=TrueThen'判断是否重复MsgBox"不存在满足此条件的车！请确认"Text7.Text=""Text7.SetFocusrs.CloseExitSubElsers.UpdateAdodc1.RecordSource=sqlAdodc1.RefreshDataGrid1.RefreshText1.Text=rs.Fields("车辆编号").ValueText2.Text=rs.Fields("颜色").ValueIfrs.Fields("是否可借").Value<>""Thenbo3.Text=rs.Fields("是否可借").ValueIfrs.Fields("是否已入库").Value<>""Thenbo2.Text=rs.Fields("是否已入库").ValueText3.Text=rs.Fields("原价").ValueText4.Text=rs.Fields("投入时间").ValueIfrs.Fields("是否损坏").Value<>""Thenbo4.Text=rs.Fields("是否损坏").ValueIfrs.Fields("入库时间").Value<>""ThenText5.Text=rs.Fields("入库时间").ValueIfrs.Fields("报废时间").Value<>""ThenText6.Text=rs.Fields("报废时间").Valuers.CloseSetrs=NothingSetconn=NothingEndIfElseMsgBox"请先填写条件"ExitSubEndIfEndSubPrivateSubmand1_Click()DimsqlAsStringDimrsAsADODB.RecordsetDimconnAsNewADODB.ConnectionSetrs=NewADODB.RecordsetSetconn=NewADODB.Connectionconn.ConnectionString="Provider=SQLOLEDB.1;PersistSecurityInfo=False;UserID=sa;InitialCatalog=bbu;DataSource="&GetName()conn.OpenIfText2.Text<>""AndText3.Text<>""AndText4.Text<>""Andbo1.Text<>""ThenIfTrim(Text1.Text)<>""AndLen(Trim(Text1.Text))=10Thensql="select*frombikewhere车辆编号="&"'"&Trim(Text1.Text)&"'"rs.Opensql,conn,1,1Ifrs.EOF<>TrueThen'判断是否重复MsgBox"该车编号已存在！请确认"Text1.Text=""rs.CloseElsers.Closesql="select*frombike"rs.Opensql,conn,3,2'以可写方式翻开记录集rs.AddNewrs("车辆编号")=Trim(Text1.Text)rs("车辆型号")=Trim(bo1.Text)rs("颜色")=Trim(Text2.Text)rs("原价")=Trim(Text3.Text)rs("投入时间")=Trim(Text4.Text)Ifbo3.Text<>""Thenrs.Fields("是否可借").Value=bo3.TextIfbo2.Text<>""Thenrs.Fields("是否已入库").Value=bo2.TextIfText4.Text<>""Thenrs.Fields("投入时间").Value=Text4.TextIfbo4.Text<>""Thenrs.Fields("是否损坏").Value=bo4.TextIfText5.Text<>""Thenrs.Fields("入库时间").Value=Text5.TextIfText6.Text<>""Thenrs.Fields("报废时间").Value=Text6.Textrs.UpdateMsgBox"录入成功"Adodc1.RefreshDataGrid1.Refresh'清空数据Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""rs.CloseSetrs=NothingSetconn=NothingEndIfElseb=MsgBox("请先填写正确的车辆编号",vbOKCancel+48,"警告")Ifb=vbOKThenText1.Text=""Text1.SetFocusEndIfEndIfElseMsgBox"有信息漏填写，请先填写！",vbOKCancel+48,"警告"EndIfEndSubPrivateSubmand2_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""bo1.Text=""bo2.Text=""bo3.Text=""bo4.Text=""EndSubPrivateSubmand7_Click()sql="select*frombike"Setrs=exesql(sql)Adodc1.RefreshDataGrid1.Refreshrs.CloseEndSubPrivateSubDataGrid1_Click()CallDataGrid1_GotFocusEndSubPrivateSubDataGrid1_GotFocus()DimrsAsADODB.RecordsetText1.Text=DataGrid1.Columns("车辆编号").ValueIfTrim(Text1.Text)<>""Thensql="select*frombikewhere车辆编号="&"'"&Trim(Text1.Text)&"'"Setrs=exesql(sql)EndIfrs.UpdateText1.Text=rs.Fields("车辆编号").ValueText2.Text=rs.Fields("颜色").ValueIfrs.Fields("是否可借").Value<>""Thenbo3.Text=rs.Fields("是否可借").ValueIfrs.Fields("是否已入库").Value<>""Thenbo2.Text=rs.Fields("是否已入库").ValueText3.Text=rs.Fields("原价").ValueText4.Text=rs.Fields("投入时间").ValueIfrs.Fields("是否损坏").Value<>""Thenbo4.Text=rs.Fields("是否损坏").ValueIfrs.Fields("入库时间").Value<>""ThenText5.Text=rs.Fields("入库时间").ValueIfrs.Fields("报废时间").Value<>""ThenText6.Text=rs.Fields("报废时间").Valuers.CloseEndSub客户管理代码PrivateSubbo3_Click()Text5.Enabled=TrueEndSubPrivateSubmand2_Click()IfLen(Trim(Text4.Text))=11ThenIfbo1.Text="公民"AndLen(Trim(Text3.Text))<>18Thenm=MsgBox("号不对，请重新填写",vbOKCancel+48,"警告")Ifm=vbOKThenText3.Text=""Text3.SetFocusExitSubEndIfEndIfDimrsAsADODB.RecordsetIfTrim(Text1.Text)<>""AndText1.Text=DataGrid1.Columns("客户编号").ValueThensql="select*fromuserswhere客户编号="&"'"&Trim(Text1.Text)&"'"Setrs=exesql(sql)ElseMsgBox"原客户编号要填写且不能更改！"Text1.Text=""Text1.SetFocusExitSubEndIfIfText2.Text<>""AndText3.Text<>""AndText4.Text<>""Andbo1.Text<>""Thensql="select*fromusers"'以可写方式翻开记录集rs.Updaters("客户编号")=Trim(Text1.Text)rs("")=Trim(Text2.Text)Ifbo1.Text="公民"Thenrs("号")=Trim(Text3.Text)rs("学生证号")=""Elsers("学生证号")=Trim(Text3.Text)rs("号")=""EndIfIfbo2.ListIndex=0Thenrs("性别")="男"Elsers("性别")="女"EndIfrs("手机")=Trim(Text4.Text)rs.UpdateAdodc1.RefreshDataGrid1.RefreshMsgBox"修改成功"'清空数据Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""ElseMsgBox"标星号是必填的，请按要求填写！"EndIfrs.CloseElseh=MsgBox("手机不对，请重新填写",vbOKCancel+48,"警告")Ifh=vbOKThenText4.Text=""Text4.SetFocusEndIfEndIfEndSubPrivateSubmand3_Click()DimrsAsADODB.Recordsetw=MsgBox("确定要删除吗？删除后不可恢复",vbOKCancel+32,警告)Ifw=vbOKThenIfTrim(Text1.Text)<>""AndLen(Trim(Text1.Text))=10Thensql="select*fromuserswhere客户编号="&"'"&Trim(Text1.Text)&"'"Setrs=exesql(sql)rs.DeleteAdodc1.RefreshDataGrid1.RefreshMsgBox"删除成功"'清空数据Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""rs.CloseElseb=MsgBox("请按要求填写客户编号",vbOKCancel+48,"警告")Ifb=vbOKThenText1.Text=""Text1.SetFocusExitSubEndIfEndIfEndIfEndSubPrivateSubmand5_Click()DimrsAsADODB.RecordsetIfTrim(Text5.Text)<>""ThenSelectCasebo3.ListIndexCase0sql="select*fromuserswhere客户编号="&"'"&Trim(Text5.Text)&"'"Case1sql="select*fromuserswhere号="&"'"&Trim(Text5.Text)&"'"Case2sql="select*fromuserswhere学生证号="&"'"&Trim(Text5.Text)&"'"EndSelectSetrs=exesql(sql)Ifrs.EOF=TrueThenMsgBox"不存在满足此条件的客户！请确认"Text5.Text=""Text5.SetFocusrs.CloseExitSubElsers.UpdateAdodc1.RecordSource=sqlAdodc1.RefreshDataGrid1.RefreshText1.Text=rs.Fields("客户编号").ValueText2.Text=rs.Fields("").ValueIfrs.Fields("号").Value<>""Thenbo1.Text="公民":Text3.Text=rs.Fields("号").ValueIfrs.Fields("学生证号").Value<>""Thenbo1.Text="学生证":Text3.Text=rs.Fields("学生证号").Valuebo2.Text=rs.Fields("性别").ValueText4.Text=rs.Fields("手机").Valuers.CloseSetrs=NothingSetconn=NothingEndIfElseMsgBox"请先填写条件"ExitSubEndIfEndSubPrivateSubmand1_Click()IfLen(Trim(Text4.Text))=11ThenIfbo1.Text="公民"AndLen(Trim(Text3.Text))<>18Thent=MsgBox("号不对，请重新填写",vbOKCancel+48,"警告")Ift=vbOKThenText3.Text=""Text3.SetFocusExitSubEndIfEndIfDimsqlAsStringDimrsAsADODB.RecordsetDimconnAsNewADODB.ConnectionSetrs=NewADODB.RecordsetSetconn=NewADODB.Connectionconn.ConnectionString="Provider=SQLOLEDB.1;PersistSecurityInfo=False;UserID=sa;InitialCatalog=bbu;DataSource="&GetName()conn.OpenIfTrim(Text1.Text)<>""AndLen(Trim((Text1.Text)))=10Thensql="select*fromuserswhere客户编号="&"'"&Trim(Text1.Text)&"'"rs.Opensql,conn,1,1Ifrs.EOF<>TrueThen'判断是否重复MsgBox"该客户编号已存在！请重新填写"Text1.Text=""rs.CloseElsers.Closesql="select*fromusers"rs.Opensql,conn,3,2'以可写方式翻开记录集rs.AddNewrs("客户编号")=Trim(Text1.Text)rs("")=Trim$(Text2.Text)Ifbo1.ListIndex=0Orbo1.Text="公民"Thenrs("号")=Trim(Text3.Text)rs("学生证号")=""Elsers("学生证号")=Trim(Text3.Text)rs("号")=""EndIfIfbo2.ListIndex=0Thenrs("性别")="男"Elsers("性别")="女"EndIfrs("手机")=Trim(Text4.Text)rs.UpdateAdodc1.RefreshDataGrid1.RefreshMsgBox"添加成功"'清空数据Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""rs.CloseSetrs=NothingSetconn=NothingEndIfEndIfElseh=MsgBox("手机不对，请重新填写",vbOKCancel+48,"警告")Ifh=vbOKThenText4.Text=""Text4.SetFocusEndIfEndIfEndSubPrivateSubmand4_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""EndSubPrivateSubDataGrid1_Click()CallDataGrid1_GotFocusEndSubPrivateSubDataGrid1_GotFocus()DimrsAsADODB.RecordsetText1.Text=DataGrid1.Columns("客户编号").ValueIfTrim(Text1.Text)<>""Thensql="select*fromuserswhere客户编号="&"'"&Trim(Text1.Text)&"'"Setrs=exesql(sql)EndIfrs.UpdateText1.Text=rs.Fields("客户编号").ValueText2.Text=rs.Fields("").ValueIfrs.Fields("号").Value<>""Thenbo1.Text="公民":Text3.Text=rs.Fields("号").ValueIfrs.Fields("学生证号").Value<>""Thenbo1.Text="学生证":Text3.Text=rs.Fields("学生证号").Valuebo2.Text=rs.Fields("性别").ValueText4.Text=rs.Fields("手机").Valuers.CloseEndSub数据管理代码PublicsqlAsStringDimrsAsADODB.RecordsetPrivateSubmand1_Click()IfOption1.Value=TrueThenIfText1.Text<>""AndLen(Trim(Text1.Text))=10Thensql="select*frombookwhere客户编号="&"'"&Trim(Text1.Text)&"'"ElseMsgBox"请输入客户编号"Text1.SetFocusEndIfElseIfOption2.Value=TrueThenIfText2.Text<>""Thensql="select*frombookwhere订单号="&"'"&Trim(Text2.Text)&"'"ElseMsgBox"请输入订单号"Text2.SetFocusEndIfElseMsgBox"请先选择查询条件",48,"提示信息"EndIfSetrs=exesql(sql)Ifrs.EOF=TrueThenMsgBox"不存在满足此条件的订单！请确认"Text1.Text=""Text2.Text=""Option1.Value=FalseOption2.Value=Falsers.CloseExitSubElsers.UpdateAdodc1.RecordSource=sqlAdodc1.RefreshDataGrid1.RefreshEndIfrs.CloseSetrs=NothingSetconn=NothingEndSubPrivateSubmand2_Click()DimsqAsStringsq="deletetmp"Setconn=NewADODB.Connectionconn.ConnectionString="Provider=SQLOLEDB.1;PersistSecurityInfo=False;UserID=sa;InitialCatalog=bbu;DataSource="&GetName()conn.Openconn.ExecutesqIfOption1.Value=TrueThensq="insertintotmpselect*frombookwhere客户编号="&"'"&Trim(Text1.Text)&"'"Elsesq="insertintotmpselect*frombookwhere订单号="&"'"&Trim(Text2.Text)&"'"EndIfconn.Executesqconn.CloseDataEnvironment1.mand1DataEnvironment1.rsmand1.RequeryDataReport2.ShowvbModalDataEnvironment1.rsmand1.CloseEndSubPrivateSubForm_Activate()DataGrid1.SetFocusEndSub模块代码PublicflagAsIntegerPubliccondstrAsStringPublicrecsAsIntegerPublicselAsBooleanPublicDeclareFunctionGetputerNameLib"kernel32"Alias"GetputerNameA"(ByVallpBufferAsString,nSizeAsLong)AsLong'----------------------------------FunctionGetName()AsString'获得电脑名称DimnAsString*255GetputerNamen,255GetName=Trim(n)EndFunctionPublicFunctionexesql(ByValsqlAsString)AsADODB.RecordsetDimconnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetSetrs=NewADODB.RecordsetSetconn=NewADODB.Connectionconn.ConnectionString="Provider=SQLOLEDB.1;PersistSecurityInfo=False;UserID=sa;InitialCatalog=bbu;DataSource="&GetName()conn.OpenSetrs.ActiveConnection=connrs.LockType=adLockOptimisticrs.CursorType=adOpenKeysetrs.OpensqlSetexesql=rsSetrs=NothingSetconn=NothingEndFunctionPublicSubdeldata(ByValtnAsString)DimsqlAsStringsql="deletefrom"&Trim$(tn)Setconn=NewADODB.Connectionconn.ConnectionString="Provider=SQLOLEDB.1;PersistSecurityInfo=False;UserID=sa;InitialCatalog=bbu;DataSource="&GetName()conn.Openconn.Executesqlconn.CloseEndSub设计器代码PrivateSubDataEnvironment_Initialize()DataEnvironment1.mand1DataEnvironment1.rsmand1.RequeryDataEnvironment1.rsmand1.CloseEndSub