还剩6页未读,继续阅读
文本内容:
Oracle课程设计报告设计题目库存管理系统姓名XXXXX班级XXXX学号XXXXX指导老师XXXX2011年11月
1.库存管理系统登录\注册界面及代码PrivateSubCommand1_ClickDimUserNameAsStringDimPassWordAsStringDimconnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimStrSQLAsStringconn.OpenProvider=Microsoft.Jet.OLEDB.
4.0;DataSource=C:\Users\尤远明\Desktop\库存管理\库存.mdbUserName=TrimText
1.TextPassWord=TrimText
2.TextIfUserName=OrPassWord=ThenMsgBox对不起,用户或密码不能为空!请重新输入!!vbCritical错误ElseIfUserNameEmptyAndPassWordEmptyThenStrSQL=select*from用户where用户名=UserNameand密码=PassWordrs.OpenStrSQLconnadOpenKeysetadLockPessimisticIfrs.EOF=TrueThenMsgBox对不起,无此用户或者密码不正确!请重新输入!!vbCritical错误Text
1.Text=Text
2.Text=Text
1.SetFocusrs.CloseElse登陆成功以下为权限验证Form
4.ShowUnloadMeEndIfEndIfEndSubPrivateSubCommand2_ClickEndEndSubPrivateSubCommand3_ClickForm
8.ShowEndSub库存\供应商信息添加修改删除界面及代码PrivateSubCommand1_ClickAdodc
1.Recordset.AddNewAdodc
1.Recordset.Fields用户名=Text
1.TextAdodc
1.Recordset.Fields密码=Text
2.TextAdodc
1.Recordset.UpdateEndSubPrivateSubCommand2_ClickMe.HideForm
1.ShowEndSubPrivateSubCommand1_ClickIfCommand
1.Caption=添加ThenCommand
1.Caption=更新Data
1.Recordset.AddNewText1=Text2=Text3=Text4=Text5=Text
6.Text=CStrNowText
1.SetFocusElseText
6.Text=CStrNowCommand
1.Caption=添加Data
1.Recordset货品号=Text1Data
1.Recordset货品名=Text2Data
1.Recordset供应商=Text3Data
1.Recordset单价=Text4Data
1.Recordset数量=Text5Data
1.Recordset时间=Text6Data
1.Recordset.UpdateEndIfEndSubPrivateSubCommand2_ClickData
1.Recordset.EditData
1.Recordset货品号=Text1Data
1.Recordset货品名=Text2Data
1.Recordset供应商=Text3Data
1.Recordset单价=Text4Data
1.Recordset数量=Text5Data
1.Recordset时间=Text6Data
1.Recordset.UpdateEndSubPrivateSubCommand3_ClickIfMsgBox你确定要删除Text
2.Text的信息吗?vbOKCancel+vbDefaultButton2=vbOKThenData
1.Recordset.DeleteData
1.Recordset.MoveNextEndIfEndSubPrivateSubcommand4_ClickMe.HideForm
4.ShowEndSubPrivateSubForm_LoadText
6.Text=CStrNowEndSubPrivateSubCommand1_ClickIfcommand
1.Caption=添加Thencommand
1.Caption=更新Data
1.Recordset.AddNewText1=Text2=Text3=Text4=Text5=Text
1.SetFocusElsecommand
1.Caption=添加Data
1.Recordset供应商编号=Text1Data
1.Recordset供应商名称=Text2Data
1.Recordset业务联系人=Text3Data
1.Recordset联系电话=Text4Data
1.Recordset传真=Text5Data
1.Recordset.UpdateEndIfEndSubPrivateSubCommand2_ClickIfMsgBox你确定要删除Text
1.Text的信息吗?vbOKCancel+vbDefaultButton2=vbOKThenData
1.Recordset.DeleteData
1.Recordset.MoveNextEndIfEndSubPrivateSubCmd_command3_ClickData
1.Recordset.EditData
1.Recordset供应商编号=Text1Data
1.Recordset供应商名称=Text2Data
1.Recordset业务联系人=Text3Data
1.Recordset联系电话=Text4Data
1.Recordset传真=Text5Data
1.Recordset.UpdateEndSubPrivateSubcommand4_ClickMe.HideForm
4.ShowEndSub
2.删除/修改要先进行查询需要的信息功能图及代码如下PrivateSubCommand1_ClickIfText
1.TextThenForm
2.Data
1.Recordset.MoveFirstForm
2.Data
1.Recordset.FindFirst货品名=Text1IfForm
2.Data
1.Recordset.NoMatchThenMsgBox没有匹配的记录,请重新输入Text
1.SetFocusElseForm
2.Text1=Form
2.Data
1.Recordset货品号Form
2.Text2=Form
2.Data
1.Recordset货品名Form
2.Text3=Form
2.Data
1.Recordset供应商Form
2.Text4=Form
2.Data
1.Recordset单价Form
2.Text5=Form
2.Data
1.Recordset数量Form
3.HideForm
2.ShowEndIfElseIfText
2.TextThenForm
2.Data
1.Recordset.MoveFirstForm
2.Data
1.Recordset.FindFirst供应商=Text2IfForm
2.Data
1.Recordset.NoMatchThenMsgBox没有匹配的记录,请重新输入Text
2.SetFocusElseForm
2.Text1=Form
2.Data
1.Recordset货品号Form
2.Text2=Form
2.Data
1.Recordset货品名Form
2.Text3=Form
2.Data
1.Recordset供应商Form
2.Text4=Form
2.Data
1.Recordset单价Form
2.Text5=Form
2.Data
1.Recordset数量Form
3.HideForm
2.ShowEndIfElseIfText
3.TextThenForm
2.Data
1.Recordset.MoveFirstForm
2.Data
1.Recordset.FindFirst货品号=Text3IfForm
2.Data
1.Recordset.NoMatchThenMsgBox没有匹配的记录,请重新输入Text
3.SetFocusElseForm
2.Text1=Form
2.Data
1.Recordset货品号Form
2.Text2=Form
2.Data
1.Recordset货品名Form
2.Text3=Form
2.Data
1.Recordset供应商Form
2.Text4=Form
2.Data
1.Recordset单价Form
2.Text5=Form
2.Data
1.Recordset数量Form
3.HideForm
2.ShowEndIfElseMsgBox你至少选择一种查询方式EndIfEndSubPrivateSubCommand2_ClickMe.HideForm
4.ShowEndSub
3.查询库存\供应商信息功能图及代码PrivateSubCommand1_ClickMe.HideForm
4.ShowEndSubPrivateSubCommand2_ClickDimStrSQLAsStringIfText
1.TextThenAdodc
1.Recordset.CloseIfValText
1.Text0ThenStrSQL=select*from库存where货品号=TrimText
1.TextElseStrSQL=select*from库存where货品名=TrimText
1.TextEndIfAdodc
1.CommandType=adCmdTextAdodc
1.Recordset.OpenStrSQLSetDataGrid
1.DataSource=Adodc1ElseSetDataGrid
1.DataSource=NothingEndIfEndSubPrivateSubCommand1_ClickMe.HideForm
4.ShowEndSubPrivateSubCommand2_ClickDimStrSQLAsStringIfText
1.TextThenAdodc
1.Recordset.CloseIfValText
1.Text0ThenStrSQL=select*from供应商where供应商编号=TrimText
1.TextElseStrSQL=select*from供应商where供应商名称=TrimText
1.TextEndIfAdodc
1.CommandType=adCmdTextAdodc
1.Recordset.OpenStrSQLSetDataGrid
1.DataSource=Adodc1ElseSetDataGrid
1.DataSource=NothingEndIfEndSub。