用Access 2003开发仓库管理系统

合集下载

计算机应用基础之Access2003

第七章数据库管理系统Access 2003数据库就是数据或信息的集合，相当于一个数据仓库。

具体地说，数据库是一组经过计算机整理后的数据，它由许多数据表组成。

Access 2003是一个功能强大、方便灵活的关系型数据库管理系统。

它具有完整的数据库应用程序开发工具，可用于开发适合特定数据库管理的Windows应用程序。

使用Access 2003，用户可以方便地设计、修改、浏览一个记录的数据表，可以在基本表记录的数据中进行各种查询，可以根据基本表的记录的数据设计各种报表，可以设计和使用各种窗体，可以通过设计和使用宏对基本表进行一系列特定的操作，甚至还可以使用Visual Basic语言进行更高级的程序开发。

任务1 学会数据库的创建、表的建立及字段属性设置我们通过一个小型的图书管理系统来边做边学吧。

1.数据库的创建首先启动Access 2003，出现Access 2003的启动界面，单击图7.1右下角的“新建文件”。

图7.1 Access 2003启动界面出现如图界面，单击图7.2右上角的“空数据库”图7.2 新建界面在出现的对话框中输入文件名“图书管理系统”，然后单击“创建”按钮，这样数据库就建好了。

注意记住该文件的保存位置。

这时图7.3出现的窗口是数据库窗口。

图7.3 创建数据库2. 用表设计器建立表在图7.4左边“对象”框中选择“表”，双击“使用设计器创建表”打开表设计器。

图7.4 建立表在图7.5表设计器中按照下面表格中的要求逐个输入字段的名称、类型和长度等数据。

注意，在表设计器窗口的上半部分输入字段名和类型，长度等其它内容在窗口的下半部分的“常规”页面中输入。

最后用鼠标右击“图书编号”在出现的快捷菜单中选择“主键”，将“图书编号”设为这个表的主键。

完成后关闭表设计器，系统会询问表的名称，输入表名“图书”，这样一个空的数据库表已建好了。

图7.5 表设计器在图7.4数据库窗口中就会出现刚才建立的表“图书”，双击它就会出现“图书”表窗口，接下来按照图7.6中的数据进行数据输入。

access 仓库管理

ACCESS 仓库管理系统姓名：学号：班级：一、实验目的与要求：ASSESS是一个数据库管理系统，它简单易学，一个普通的计算机用户可以很快的掌握它。

ACCESS2000的功能也十分强大，利用它可以方便的实现对信息保存、维护、查询、统计等，而且它可以十分方便地与OFFICE其他组件交流数据，这些功能对一个普通用户来说已经足够了。

本系统就是在以ACCESS2000作为后台数据库，以Visual Basic 为编程语言为中小型企业管理仓库而开发的一个数据库管理系统。

通过本实验，培养学生掌握开发Access数据库应用系统的方法。

综合运用课程中学会的知识，正确设计数据表，灵活运用各种查询方法。

设计使用性良好的窗体和报表，利用宏，VBA代码两种方式来编程，体验系统开发的过程，为开发数据库应用系统打下坚实的基础。

实验要求：1）建立一个ACCESS的数据库。

2）针对某项事务管理建立数据表结构。

3）建立用户访问机制，非管理员不能访问。

4）设计集成数据添加、浏览、更新、删除和查找等多种功能的数据表单。

5）运行程序，并用实际数据或模拟数据进行测试。

写出各项功能的测试界面和结果。

二、实验方案：1) 实验软件环境：WindwosXP中文版，Access2003中文版。

2) 项目名称：商品库存管理系统3) 实验需要实现的功能1、基本资料管理：功能：完成物品基本资料的数据录入、修改、删除。

并可对物品基本资料进行查询和统计、打印输出功能。

物品资料查询条件：按编号、名称、类别来查询。

2、物品管理：功能：完成对物品采购信息录入、修改、删除。

实现物品的入库，退货，并可对采购信息进行查询和统计、打印输出功能。

物品采购查询条件：按编号、名称、类别、日期来查询。

3、物品销售管理：功能：完成对物品销售信息管理，包括对销售信息的录入、修改、删除。

实现物品的出库，退货，并可对销售信息进行查询和统计、打印输出功能。

物品销售查询条件：按编号、名称、类别、日期来查询。

仓库管理系统(VB+Access+源代码)

仓库管理系统项目的建立这是本人利用闲暇之余在上制作的一个简陋的类库管系统，现图文结合的方式一步一步展现制作过程。

由于本人是个初学者，里面存在很多不足之处望得到高手们的指导。

此文可作供初学者们学习交流。

作者联系方式：E-mail最终运行效果打开软件出现如下登录界面输入系统预设用户名及密码（ 1 1 ）单击“登录”或单击“新用户”添加新用户进入如下主界面：建立工程1、创建标准EXE2、按“打开”3、添加MDI窗体——打开4、编辑菜单在空白处右击——点击“菜单编辑器”在“标题”里输入“系统”，在“名称”里输入“Sys”（注意此处不能为汉字）点击“下一个”再点击“”“确定”退到MDI界面点击“系统”——“退出”如下，然后编写代码。

代码如下：Private Sub Exit_Click()EndEnd Sub数据库的建立中可以创建Access数据库。

如下建立一个“用户表”的数据库，用来存放用户信息及一些出入库管理信息。

如下图单击“外接程序”再单击“可视化数据管理器”出现如图点击“文件”——“新建”——“Microsoft Access”——“Version MDB”输入数据库名，“保存”出现如下图在数据窗口中右击——“新建表”，最终如下往数据表里添加数据在这里就不罗嗦了，请查阅相关书籍。

登录界面窗口的建立最终界面如下：1、Adodc1的添加过程为：单击“工程”——“部件”出现下图所示，选择“控件”下的“Microsoft ADO Data Control （OLEDB）”单击“确定”在工具栏中会出现“”图标，单击它并拖动到相应位置即可。

其它元件不在一一说明。

2、本窗体代码如下：Private Sub Command1_Click() '“登录”、“确定”按钮 If = "确定" And = "取消" Then '如果为“确定”则添加新用户If = "" Then '提示用户输入用户名MsgBox "请输入用户名！", , "登录信息提示："Exit SubElse 'Dim usename As String '检测用户名是否已经存在Dim strS As Stringusename = TrimstrS = "select * from 用户登录信息表 where 用户名='" & usename & "'"= adCmdText= strSIf = False ThenMsgBox "您输入的用户已存在!", , "登录提示信息："= ""= ""= ""Exit SubEnd IfEnd IfIf = "" Then '提示用户密码不能为空 MsgBox "密码不能为空!", , "登录提示信息："Exit SubEnd IfIf = "" ThenMsgBox "请再次输入密码!", , "登录提示信息："Exit SubEnd IfIf <> ThenMsgBox "两次输入的密码不一致,请确认!", , "登录提示信息："= ""Exit SubElse'添加新用户"用户名") = Trim"密码") = TrimMsgBox ("添加新用户成功，现在您可以登陆系统了！")= False= False= "登录"= "退出"End IfElse '“登录”按钮，用户登录 Dim strSno As StringDim strSelect As StringstrSno = Trim '检测用户名是否存在strSelect = "select 密码 from 用户登录信息表 where 用户名 = '" & strSno & "'"= adCmdText= strSelectIf = True ThenMsgBox "用户名不存在，请重新输入！", , "登录提示信息："= ""= ""End IfIf "密码") = Trim Then '检测密码是否正确'Unload Me'MsgBox "登陆成功！", , "登录提示信息："ElseMsgBox "密码不正确，请重新输入！", , "登录提示信息："= ""End IfEnd IfEnd SubPrivate Sub Command2_Click() '“退出”或“取消”按钮 If = "取消" Then= False= False= "登录"= "退出"= ""= ""ElseEnd 'Unload MeEnd IfEnd SubPrivate Sub Command3_Click() '“新用户”按钮= True= True= ""= ""= ""= "确定"= "取消"End SubPrivate Sub Command3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)= TrueEnd SubPrivate Sub Command3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)= FalseEnd SubPrivate Sub Form_Load()= False= FalseEnd SubPrivate Sub Timer1_Timer() '时间time1控件的time事件代码，用来'显示向左移动的欢迎字幕If + > 0 Then '当标签右边位置大于0时，标签向左移- 80Else '否则标签从头开始=End IfIf + > 0 Then- 80Else=End IfEnd Sub主界面窗体如下：代码：Private Sub AddNew_Click() = True= FalseEnd SubPrivate Sub CHKPMCHX_Click()= "出库信息"Dim pm As StringDim n As Stringpm = InputBox("产品名", "请输入", 0)n = "select * from 出库表 where 品名 = '" & pm & "'" = adCmdText= nCall InitGrid1End SubPrivate Sub CHKXHCHX_Click()= "出库信息"Dim XH As StringDim n As StringXH = InputBox("产品型号", "请输入", 0)n = "select * from 出库表 where 型号 = '" & XH & "'" = adCmdText= nEnd SubPrivate Sub CKCZ_Click()'End SubPrivate Sub CKJSHR_Click()= "出库信息"Dim JSHR As StringDim n As StringJSHR = InputBox("经手人", "请输入", 0)n = "select * from 出库表 where 经手人 = '" & JSHR & "'"= adCmdText= nCall InitGrid1End SubPrivate Sub CKSHJ_Click()= "出库信息"Dim CHKRQ As StringDim n As StringCHKRQ = InputBox("出库日期，格式为：月/日/年如：12/1/2011", "请输入", 0) n = "select * from 出库表 where 出库日期 = '" & CHKRQ & "'"= adCmdText= nCall InitGrid1End SubPrivate Sub CKZCX_Click()= "出库信息"Dim ZB As StringZB = "select * from 出库表 "= adCmdText= ZBCall InitGrid1End SubPrivate Sub Command1_Click()If = "" Then '提示用户输入用户名MsgBox "请输入用户名！", , "登录信息提示："Exit SubElse 'Dim usename As String '检测用户名是否已经存在 Dim strS As Stringusename = TrimstrS = "select * from 用户登录信息表 where 用户名='" & usename & "'"= adCmdText= strSIf = False ThenMsgBox "您输入的用户已存在!", , "登录提示信息："= ""= ""= ""Exit SubEnd IfEnd IfIf = "" Then '提示用户密码不能为空MsgBox "密码不能为空!", , "登录提示信息："Exit SubEnd IfIf = "" ThenMsgBox "请再次输入密码!", , "登录提示信息："Exit SubEnd IfIf <> ThenMsgBox "两次输入的密码不一致,请确认!", , "登录提示信息："= ""= ""Exit SubElse'添加新用户"用户名") = Trim"密码") = TrimDim X As IntegerX = MsgBox("成功添加新用户，是否要重新登录!", vbYesNo + vbQuestion + vbDefaultButton1, "提示信息!") If X = vbYes ThenUnload MeEnd If'MsgBox ("成功添加新用户！")' = False' = False' = "登录"' = "退出"End If= False= True= ""= "'"= ""'End SubPrivate Sub Command2_Click() = False= TrueEnd SubPrivate Sub CXDL_Click()'Unload MeEnd SubPrivate Sub Exit_Click()EndUnload Form1Unload Form2Unload Form3Unload Form4Unload Form5Unload Form6Unload Form7Unload Form8End SubPrivate Sub Form_Load()TextUserName = Trim Unload Form1= FalseCall InitGrid0= - 1060= - 560==End SubPrivate Sub GHCZ_Click()'End SubPrivate Sub GHPMCX_Click()= "归还信息"Dim pm As StringDim n As Stringpm = InputBox("产品名", "请输入", 0)n = "select * from 归还表 where 品名 = '" & pm & "'" = adCmdText= nCall InitGrid2End SubPrivate Sub GHRCX_Click()= "归还信息"Dim JCR As StringDim n As StringJCR = InputBox("归还人", "请输入", 0)n = "select * from 归还表 where 归还人 = '" & JCR & "'"= adCmdText= nCall InitGrid2End SubPrivate Sub GHSJCX_Click()= "归还信息"Dim JCRQ As StringDim n As StringJCRQ = InputBox("归还日期，格式为：月/日/年如：12/1/2011", "请输入", 0) n = "select * from 归还表 where 归还日期 = '" & JCRQ & "'"= adCmdText= nCall InitGrid2End SubPrivate Sub GHXHCX_Click()= "归还信息"Dim XH As StringDim n As StringXH = InputBox("产品型号", "请输入", 0)n = "select * from 归还表 where 型号 = '" & XH & "'" = adCmdText= nCall InitGrid2End SubPrivate Sub GHZCX_Click()= "归还信息"Dim ZB As StringZB = "select * from 归还表 "= adCmdText= ZBCall InitGrid2End SubPrivate Sub JCCZ_Click()'End SubPrivate Sub JCHPMCHX_Click()= "借出信息"Dim pm As StringDim n As Stringpm = InputBox("产品名", "请输入", 0)n = "select * from 借出表 where 品名 = '" & pm & "'"= adCmdText= nCall InitGrid2End SubPrivate Sub JCHXHCHX_Click()= "借出信息"Dim XH As StringDim n As StringXH = InputBox("产品型号", "请输入", 0)n = "select * from 借出表 where 型号 = '" & XH & "'"= adCmdText= nCall InitGrid2End SubPrivate Sub JCRCX_Click()= "借出信息"Dim JCR As StringDim n As StringJCR = InputBox("借出人", "请输入", 0)n = "select * from 借出表 where 借出人 = '" & JCR & "'" = adCmdText= nCall InitGrid2End SubPrivate Sub JCSHJCX_Click()= "借出信息"Dim JCRQ As StringDim n As StringJCRQ = InputBox("借出日期，格式为：月/日/年如：12/1/2011", "请输入", 0) n = "select * from 借出表 where 借出日期 = '" & JCRQ & "'"= adCmdText= nCall InitGrid2End SubPrivate Sub JCZCX_Click()= "借出信息"Dim ZB As StringZB = "select * from 借出表 "= adCmdText= ZBCall InitGrid2End SubPrivate Sub JSHRCHX_Click()= "归还信息"Dim JSHR As StringDim n As StringJSHR = InputBox("经手人", "请输入", 0)n = "select * from 归还表 where 经手人 = '" & JSHR & "'" = adCmdText= nCall InitGrid2End SubPrivate Sub JSHRCX_Click()= "借出信息"Dim JSHR As StringDim n As StringJSHR = InputBox("经手人", "请输入", 0)n = "select * from 借出表 where 经手人 = '" & JSHR & "'" = adCmdText= nCall InitGrid2End SubPrivate Sub PMCX_Click()= "库存信息"Dim pm As StringDim n As Stringpm = InputBox("产品名", "请输入", 0)n = "select * from 库存表 where 品名 = '" & pm & "'"= adCmdText= nCall InitGrid0End SubPrivate Sub RKCZ_Click()'End SubPrivate Sub RKJSHR_Click()= "入库信息"Dim JSHR As StringDim n As StringJSHR = InputBox("经手人", "请输入", 0)n = "select * from 入库表 where 经手人 = '" & JSHR & "'" = adCmdText= nCall InitGrid1End SubPrivate Sub RKPMCHX_Click()= "入库信息"Dim pm As StringDim n As Stringpm = InputBox("产品名", "请输入", 0)If Len(pm) > 0 Thenn = "select * from 入库表 where 品名 = '" & pm & "'" = adCmdText= nEnd IfCall InitGrid1End SubPrivate Sub RKSHJ_Click()= "入库信息"Dim RKRQ As StringDim n As StringRKRQ = InputBox("入库日期，格式为：月/日/年如：12/1/2011", "请输入", 0) n = "select * from 入库表 where 入库日期 = '" & RKRQ & "'"= adCmdText= nCall InitGrid1End SubPrivate Sub RKXHCHX_Click()= "入库信息"Dim XH As StringDim n As StringXH = InputBox("产品型号", "请输入", 0)If Len(XH) > 0 Thenn = "select * from 入库表 where 型号 = '" & XH & "'"= adCmdText= nEnd IfCall InitGrid1End SubPrivate Sub RKZCX_Click()= "入库信息"Dim ZB As StringZB = "select * from 入库表 "= adCmdText= ZBCall InitGrid1End SubPrivate Sub Timer1_Timer()If + > 0 Then '当标签右边位置大于0时，标签向左移- 80Else '否则标签从头开始 =End IfIf + > 0 Then- 80Else=End IfIf + > 0 Then- 80Else=End IfIf + > 0 Then- 80Else=End IfEnd SubPrivate Sub XGMM_Click()'End SubPrivate Sub XHCX_Click()= "库存信息"Dim XH As StringDim n As StringXH = InputBox("产品型号", "请输入", 0)If Len(XH) > 0 Then 'And Val(XH) <> 0n = "select * from 库存表 where 型号 = '" & XH & "'" = adCmdText= nEnd IfCall InitGrid0End SubPrivate Sub ZB_Click()= "库存信息"Dim ZB As String'Dim N As String'PM = InputBox("产品名", "请输入", 0)ZB = "select * from 库存表 " 'where 品名 = '" & PM & "'" = adCmdText= ZBCall InitGrid0End SubPrivate Sub InitGrid0()With DataGrid1.Columns(0).Width = 1600.Columns(1).Width = 2200.Columns(2).Width = 2200.Columns(3).Width = 1000.Columns(4).Width = 1000.Columns(5).Width = 4000End WithEnd SubPrivate Sub InitGrid1()With DataGrid1.Columns(0).Width = 800.Columns(1).Width = 1600.Columns(2).Width = 1600.Columns(3).Width = 800.Columns(4).Width = 800.Columns(5).Width = 1000.Columns(6).Width = 800.Columns(7).Width = 4000End WithEnd SubPrivate Sub InitGrid2()With DataGrid1'.Columns(0).Caption = "学号" ' .Columns(1).Caption = "课程名" '.Columns(2).Caption = "学分" ' .Columns(3).Caption = "成绩" '设置DtgCond的列宽.Columns(0).Width = 800.Columns(1).Width = 1600.Columns(2).Width = 1600.Columns(3).Width = 800.Columns(4).Width = 800.Columns(5).Width = 800.Columns(6).Width = 1000.Columns(7).Width = 800.Columns(8).Width = 4000End WithEnd Sub用户重新登录界面代码：Private Sub Command1_Click()Dim strSno As StringDim strSelect As StringstrSno = Trim '检测用户名是否存在 strSelect = "select 密码 from 用户登录信息表 where 用户名 = '" & strSno & "'"= adCmdText= strSelectIf = True ThenMsgBox "用户名不存在，请重新输入！", , "登录提示信息："= ""= ""Exit SubEnd IfIf "密码") = Trim Then '检测密码是否正确Unload Me'MsgBox "登陆成功！", , "登录提示信息："ElseMsgBox "密码不正确，请重新输入！", , "登录提示信息：" = ""End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub修改用户密码界面代码：Private Sub Command1_Click()If Trim <> ThenMsgBox "用户名不正确，请确认！", , "信息提示！"= ""Exit SubElseDim name As StringDim names As Stringname = Trimnames = "select * from 用户登录信息表 where 用户名='" & name & "'" = adCmdText= namesIf = "" ThenMsgBox "请输入旧密码!", , "信息提示！"Exit SubEnd IfIf "密码") <> Trim ThenMsgBox "旧密码不正确，请确认!", , "信息提示！"= ""Exit SubEnd IfIf = "" ThenMsgBox "请输入新密码!", , "信息提示！"Exit SubEnd IfIf = "" ThenMsgBox "请再次输入新密码!", , "信息提示！"Exit SubEnd IfIf Trim <> Trim ThenMsgBox "两次输入的新密码不一致!", , "信息提示！" = ""= ""Exit SubElse"密码") = TrimMsgBox ("密码修改成功！")Unload Me'End IfEnd IfEnd SubPrivate Sub Command2_Click()Unload Me'End Sub入库管理代码：Private Sub Command1_Click()If = "" And = "" ThenMsgBox "“品名”和“型号”不能同时为空，必须输入其中一项!", , "提示信息!" Exit SubElseIf = "" And = "" ThenMsgBox "请输入产品“数量”或“单位”之一!", , "提示信息!"Exit SubEnd IfIf = "" ThenMsgBox "请经手人签名!", vbCritical, "提示信息!"Exit SubEnd If'添加 "品名") = Trim"型号") = Trim"数量") = Trim"单位") = Trim"经手人") = Trim"入库日期") = Date"说明") = TrimEnd IfDim pm As StringDim pms As StringDim n As StringDim m As Stringpm = Trimn = Valpms = "select * from 库存表 where 品名='" & pm & "'"= adCmdText= pmsIf ThenWith Form2. ."品名") = Trim."型号") = Trim."数量") = Trim."单位") = Trim."说明") = Trim. End WithElsem = "数量").ValueIf "型号") = Trim Then"数量") = Val(m) + Val(n)End IfEnd IfDim X As IntegerX = MsgBox("产品入库登记成功，是否继续添加产品!", vbYesNo + vbQuestion + vbDefaultButton1, "提示信息!") If X = vbNo ThenUnload Me'Else= ""= ""= ""= ""= ""= ""= ""End If= "入库信息"Dim ZB As StringZB = "select * from 入库表 " 'where 品名 = '" & PM & "'"= adCmdText= ZBSubPrivate Sub Command2_Click()= ""= ""= ""= ""= ""= ""End SubPrivate Sub Command3_Click()Unload Me'End Sub出库管理代码：Private Sub Command1_Click()If = "" And = "" Then ' = "" And = "" ThenMsgBox "“品名”和“型号”不能同时为空，必须输入其中一项!", , "提示信息!" Exit SubIf = "" And = "" Then ' = "" ThenMsgBox "请输入产品“数量”或“单位”之一!", , "提示信息!"Exit SubEnd IfIf = "" ThenMsgBox "请经手人签名!", vbCritical, "提示信息!"Exit SubEnd If'添加"品名") = Trim 'Trim"型号") = Trim 'Trim"数量") = Trim"单位") = Trim 'Trim"经手人") = Trim"出库日期") = Date"说明") = TrimEnd IfDim pm As StringDim pms As StringDim n As StringDim m As Stringpm = Trimn = Valpms = "select * from 库存表 where 品名='" & pm & "'"= adCmdText= pmsm = "数量").ValueIf "型号") = Trim Then"数量") = Val(m) - Val(n)End IfDim X As IntegerX = MsgBox("产品出库登记成功，是否继续添加产品!", vbYesNo + vbQuestion + vbDefaultButton1, "提示信息!") If X = vbNo ThenUnload Me'End If= ""= ""= ""= ""= ""= ""= ""= "出库信息"Dim ZB As StringZB = "select * from 出库表 " 'where 品名 = '" & PM & "'"= adCmdText= ZBSubPrivate Sub Command2_Click()= ""= ""= ""= ""= ""= ""= ""End SubPrivate Sub Command3_Click() Unload Me'End SubPrivate Sub Form_Load()Do Until "型号") "品名")"单位")LoopEnd Sub借出管理代码：Private Sub Command1_Click()If = "" And = "" Then ' = "" And = "" ThenMsgBox "“品名”和“型号”不能同时为空，必须输入其中一项!", , "提示信息!" Exit SubElseIf = "" And = "" Then ' = "" ThenMsgBox "请输入产品“数量”或“单位”之一!", , "提示信息!"Exit SubEnd IfIf = "" ThenMsgBox "请经手人签名!", vbCritical, "提示信息!"Exit SubEnd If'添加"品名") = Trim 'Trim"型号") = Trim 'Trim"数量") = Trim"单位") = Trim 'Trim"经手人") = Trim"借出人") = Trim"借出日期") = Date"说明") = TrimEnd IfDim pm As StringDim pms As StringDim n As StringDim m As Stringpm = Trimn = Valpms = "select * from 库存表 where 品名='" & pm & "'"= adCmdText= pmsm = "数量").ValueIf "型号") = Trim Then"数量") = Val(m) - Val(n)End IfDim X As IntegerX = MsgBox("产品借出登记成功，是否继续添加产品!", vbYesNo + vbQuestion + vbDefaultButton1, "提示信息!") If X = vbNo ThenUnload MeEnd If= ""= ""= ""= ""= ""= ""= ""= "借出信息"Dim ZB As StringZB = "select * from 借出表 " 'where 品名 = '" & PM & "'" = adCmdText= ZBSubPrivate Sub Command2_Click()= ""= ""= ""= ""= ""= ""= ""End SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Form_Load()Do Until "品名")"型号")"单位")LoopEnd Sub归还管理代码：Private Sub Command1_Click()If = "" And = "" Then ' = "" And = "" ThenMsgBox "“品名”和“型号”不能同时为空，必须输入其中一项!", , "提示信息!" Exit SubElseIf = "" And = "" Then ' = "" ThenMsgBox "请输入产品“数量”或“单位”之一!", , "提示信息!"Exit SubEnd IfIf = "" ThenMsgBox "请经手人签名!", vbCritical, "提示信息!"Exit SubEnd IfIf = "" ThenMsgBox "请输入归还人姓名!", vbCritical, "提示信息!"Exit SubEnd If'添加 "品名") = Trim 'Trim"型号") = Trim 'Trim"数量") = Trim"单位") = Trim 'Trim"经手人") = Trim"归还人") = Trim"归还日期") = Date"说明") = TrimEnd IfDim pm As StringDim pms As StringDim n As StringDim m As Stringpm = Trimn = Valpms = "select * from 库存表 where 品名='" & pm & "'"= adCmdText= pmsm = "数量").ValueIf "型号") = Trim Then"数量") = Val(m) + Val(n)End IfDim X As IntegerX = MsgBox("产品归还登记成功，是否继续添加产品!", vbYesNo + vbQuestion + vbDefaultButton1, "提示信息!") If X = vbNo ThenUnload MeEnd If= ""= ""= ""= ""= ""= ""= ""= "归还信息"Dim ZB As StringZB = "select * from 归还表 " 'where 品名 = '" & PM & "'"= adCmdText= ZBSubPrivate Sub Command2_Click()= ""= ""= ""= ""= ""= ""= ""End SubPrivate Sub Command3_Click() Unload MeEnd SubPrivate Sub Form_Load()' Dim i As String' i = 0'' ' Do Until ' "品名") ' "型号")' "单位")' ' i = i + 1' LoopCall pmEnd SubPrivate Sub pm()Dim i As VariantDim j As VariantDim k As VariantDim a As VariantDim b As VariantDim c As VariantDim s As VariantDim D As Varianti = 0j = 0Do Until a = a + "," + "品名")b = b + "," + "型号")b = b + "," + "单位")i = i + 1LoopD = Split(a, ",")If j < i Thens = D(2)s'k = 0'If k < j And D(k) <> D(j) Then'If D(k) <> D(j) Then' D(j)' k = k + 1' Else' k = k + 1'End If'End Ifj = j + 1End If= s 'a + "," + D(2) + D(1) '+ " " + Val(i) + " " + Val(j) + " " + Val(k) = j' D(1)End Sub。

Access2003教程(完整版)

Access教程第一章 Access数据库基础◆数据库基础知识及关系数据库管理系统。

◆ Access 2003 中文版介绍.数据库技术产生于60年代末、70年代初，它的出现使计算机应用进入了一个新的时期——社会的每一个领域都与计算机应用发生了联系。

数据库是计算机的最重要的技术之一，是计算机软件的一个独立分支，数据库是建立管理信息系统的核心技术，当数据库与网络通信技术、多媒体技术结合在一起时，计算机应用将无所不在，无所不能。

作为本课程学习的开始，我们首先要了解的是：什么是数据库？什么是数据库管理系统？什么是Access呢？一、数据库的基本知识1．什么是数据库数据库这个词有多种解释，简单的定义是这样的：数据库（DataBase）是结构化数据的集合。

从广义上讲,数据库就是数据或信息的集合，相当于一个数据仓库。

具体来说,数据库是一组经过计算机整理后的数据，在关系数据库中，它由许多数据表组成。

David M.Kroenke关于数据库的定义是:数据库是指自描述的完整记录的集合。

它表达了三层含义:⑴数据库是自描述的.数据库除了包含用户的源数据以外,还包含关于它本身结构的描述，这个描述称作数据词典（或数据目录、元数据）。

从这个意义上讲，数据库与作为一个自描述的书的集合的图书馆相似：除了书籍以外，图书馆还包含一个描述它们的卡片目录.⑵数据库是集成记录的集合。

数据的标准结构如下：位—> 字节 -> 域—> 记录 -〉文件，按这种模式说,文件组合成数据库是非常诱人的，但却无法深入，数据库将包含四种数据:用户数据文件、元数据、索引、应用元数据。

用户数据大多表示为表格，称之为数据表，它存放了用户的各种有用资料和数据.例如：元数据是关于用户数据的结构的描述，称之为系统表。

例如：索引数据改进了数据库的性能和可访问性，称之为概括数据。

例如：应用元数据用来存储用户表格、报表、查询、媒体数据和其它形式的应用组件。

项目七 Access2003数据库管理

任务3 窗体的操作
一、知识准备
使用窗体可以完全自定义从查询或表抽取数据的表示。窗体就像
一个对话框一样，可以一次查看记录的多个字段，同时也可以查看多条记录，它比数据表视图更直观。 • 窗体是主要用于数据输入、显示及应用程序的执行控制的对象。
• 窗体的视图类型分为5种，分别是“设计”视图、“窗体”视图、
• 添加“借还信息表”和“设备信息表”并建立两表中“仪器编号 ”字段的关联，创建名为“使用者—仪器名称” 的查询。
16
项目七 Access2003数据库管理
课后任务训练
训练3：创建窗体任务要求：
• 以“设备信息表”和“借还信息表”作为数据源，使用向导创建窗s2003数据库管理
任务2 查询的创建与操作
一、知识准备
数据集合，例如在“学生成绩信息表”中查找到英语成绩不及格 • 在数据库中，查询是用于查找一个或多个表中的符合特定准则的
的同学记录。查询和表是两个不同的概念，表是数据的集合，是
数据源；查询是一个操作的集合，是在创建过程中形成的一个动态数据集。在Access 2003中，可以使用实例图形化查询工具，也可以使用SQL语句来创建查询。 • 在Access 2003中，创建查询有两种方法：一种是使用向导创建查询；一种是在设计视图中创建查询。通过向导创建查询，可以在一个或多个表或查询中指定的字段检索数据，通过向导创建的
业和公司的数据处理业务，通过使用数据库管理软件处理日常工
作中的数据，有效地提高了工作效率。Access 2003 简单易学，基本不需要编写程序代码，只要操作正确就能完成数据的处理任
务。
2
项目七 Access2003数据库管理
任务1 数据库的创建与操作

Access 2003_第4章 Access 2003数据库管理系统

3
冶金工业出版社
高等教育“十一五” 高等教育“十一五”规划教材
• （4）Access 2003支持多媒体技术，可以通过 OLE（对象链接与嵌入）技术来保存、编辑、展示声音和图像等多媒体数据。 • （5）具有基于Web的管理功能。HTML是 Access 2003的文件保存格式之一，Access可以通过Web实现信息共享，并具有将文件发布到Web上的功能。 • （6）内置众多的宏和函数，具备完善的联机帮助。宏可以帮助用户快速便捷地完成一些数据库的常规操作；函数可以建立表达式，实现各种算术运算、逻辑运算；遇到问题时，用户可以利用联机帮助获取帮助信息。

12
冶金工业出版社
高等教育“十一五” 高等教育“十一五”规划教材
• 4.3.6 宏对象 • 宏是指一个或多个操作的集合，每个操作实现特定的功能。宏可以使某些普通的、需要多个指令连续执行的任务能够通过一条指令自动地完成。宏可以是包含一个操作序列的宏，也可以是若干个宏的集合所组成的宏组。一个宏或宏组的执行与否还可以使用一个条件表达式是否成立予以判断，即可以通过给定的条件来决定在哪些情况下运行宏。
冶金工业出Байду номын сангаас社
高等教育“十一五” 高等教育“十一五”规划教材
第4章 Access 2003数据库管章数据库管理系统
4.1 4.2 4.3 4.4 Access 2003的特点的特点 Access 2003的新增功能的新增功能 Access 2003的数据库对象的数据库对象启动和关闭Access 2003 启动和关闭

7
冶金工业出版社
高等教育“十一五” 高等教育“十一五”规划教材
• 4.3.2 查询对象 • 查询可以按照不同的方式查看、更改和分析数据，也可以使用查询作为窗体、报表和数据访问页的记录源。查询可以查找并检索符合指定条件的数据，而这些数据可能存储在多个表中，查询可以一次更新或删除多个记录。查询到的数据记录集合称为查询的结果集，结果集以二维表的形式显示出来，但它们不是基本表。每进行一次查询操作，其结果集显示的都是基本表中当前存储的实际数据。

第3章Access2003数据库管理系统概述

在数据库对象窗口中双击打开“学生”页，如图所示。
2020/1/23
数据库中的“页”对象
2020/1/23
6. 宏
宏是Access数据库中一个或多个操作（命令）的集合，它可以将若干个操作组合在一起，以简化一些经常性的操作。利用宏可以使大量的重复性操作自动完成，以方便对数据库的管理和维护。
在数据库对象窗口中双击打开“系统菜单”宏，如图所示。
Access数据库对象之间的关系示意图
2020/1/23
1．表
表是数据库的核心与基础，是数据库中最重要的基本对象，表中存放数据库中的全部数据，是整个数据库系统的数据源，一个数据库中可以建立多个表。
在数据库对象窗口中双击打开“课程”表，如图所示。
2020/1/23
数据库中的“表”对象
2020/1/23
3.2 Access 2019工作界面
Access 2019是Office 2019组件之一，具有与Word、Excel和PowerPoint等应用程序统一的操作界面和相似的操作规则，在 Office 2019正确安装完成以后就可以使用了。下面我们介绍Access的工作界面。
2020/1/23
2020/1/23
数据库中的“宏”对象
2020/1/23
7. 模块
Access中的模块是用Access支持的VBA（Visual Basic for Applications）语言编写的程序段的集合。创建模块对象的过程也就是使用VBA编写程序的过程。
在数据库对象窗口中双击打开“通用”模块，如图所示。
2020/1/23
数据库中的“模块”对象
2020/1/23
3.4 Access系统设置

ACCESS2003数据库系统开发实例

9.3 设计数据库
9.3.1 设计数据库的过程
设计数据库要完成以下几个工作：
（1）收集数据：就是将与数据库应用系统相关的数据汇集到一起。
（2）分析数据：根据数据库应用系统的需求，分析确定数据的来源，删除重复数据，删除无关数据。（3）规范数据：按“数据规范化”原则，设计数据库应该使用多少个数据表，并合理定义每个数据表的结构以及数据类型。（4）建立关联：在数据库中，确定表之间的关系。
《Access2003数据库应用技术》
习题思考
1. 数据库应用系统开发的一般过程是怎样的？ 2. 如何完成设置数据库密码？ 3. 自动启动窗体的作用是什么？如何创建自动启动窗体？ 4. 在开发数据库应用系统中，系统菜单的关键作用是什么？
《Access2003数据库应用技术》
实验13 学生学籍管理系统开发
9.5 创建学籍管理系统报表
1. 设计单表报表
《Access2003数据库应用技术》
2、设计多表报表
《Access2003数据库应用技术》
3. 设计统计汇总报表
《Access2003数据库应用技术》
9.6 实现学生学籍管理系统
1. 创建“系统登录”窗体
《Access2003数据库应用技术》
《Access2003数据库应用技术》
2．设置应用程序图标
操作步骤：（ 1 ）打开“学籍管理 ”数据库。（2）选择“工具 ”→“启动”命令，打开 “启动”对话框。（3）单击“浏览”按钮，打开“图标浏览器” 对话框。
《Access2003数据库应用技术》
9.7 维护学生学籍管理系统
9.7.1压缩和修复数据库压缩Access数据库文件关闭时自动压缩数据库文件压缩生成副本数据库文件修复Access数据库文件

用Access2003开发进销存管理系统 (PDF 33页)

进库信息
存管
t n 户
理系
ne k. 库存信息
统
k. oo 供应商信息
oo nb 客户信息
cnb w.c 报表显示
ww. ww 图 1 w et . 2 数据表的创建和设计
ok.n book 2.1 数据库的创建
bo cn 首先建立一个数据库，具体步骤如下：
cn w. （1）启动 Access 2003，进入 Access 2003 的设计界面。
w. ww （2）单击工具栏上的新建按钮，在 Access 2003 界面的右边出现“新建文件”任务窗格。
（3）在该任务窗格中选择
项，系统弹出“文件新建数据库”对话框。选择数据库的保
ww 存路径，并输入文件名为“进销存管理系统”。
et （4）单击“创建”按钮，进入数据库窗口。
.n 2.2 设计和建立数据表
w. （8）报表显示子系统。 ww 通过报表显示子系统，可以向用户提供各种报表，以便报表统计和报表打印。 et 1.3 逻辑模型设计 net k.n 根据系统分析，建立了进销存管理系统的逻辑模型，如图 1 所示。
ok. boo 产品信息
nbo .cn 订单信息
.c ww 出货信息
w t 进销
e 用
book 用 Access 2003 开发进销存管理系统 t w net 内容提要：本文介绍了进销存管理系统的整个开发设计过程。学完本文后，读者应能运用 Access e . 基本工具完成数据库应用系统的建立，设置数据库的安全机制，使数据库的使用更加安全。还能利 .n ok 用 VBA 编写驱动程序，使数据库的操作更方便、灵活。另外，本文中还介绍了可以使用切换面板 ok bo 管理器实现系统的集成和功能选择。 o cn 关键字：数据库、销存管理 . 引言：进销存管理是商业企业经营管理中的核心环节，也是一个企业能否取得效益的关键。如 ww 能做到合理生产、及时销售、库存量最小，减少积压，那么企业就能取得最佳的效益。由此可见， w t 进销存管理决策的正确与否直接影响着企业的经济效益。 e 正文： net k.n 1 系统分析与设计 ook. nboo 1.1 系统分析 nb .c 在开始设计数据库之前，需要确定数据库的目的以及如何使用，尽量多了解一些有关数据库的 .c ww 设计要求，弄清用户需要明确希望从数据库得到什么信息，经过实际的研究和分析，对目标系统形 w 成初步的说明。 et 目标是一个包括订单管理、产品管理、客户管理和供应商管理在内的管理信息系统，能及时的 et .n 为企业决策层领导、业务员、质检员以及其他的相关人员提供有关资料。 n k 目标系统必须具有可靠性、安全性、可维护性、可移植性等，对于不同的操作人员授予不同的 k. oo 操作权限，定期地进行数据备份，系统还必须为以后整个企业信息化提供了良好的接口，以备功能 oo nb 扩充。 nb .c 在创建一个数据库之前必须明确以下几点： c w （1）数据库必须能够管理、生成用户期望的输出和打印输出所有必须具备的信息。 w. ww （2）数据库中不保存不必要的信息。 w （3）弄清数据库应该为用户所做的操作和应解决的问题。 w t （4）明确用户通过什么样的界面来操作数据库中的数据和输出。 .ne ok. 1.2 功能描述 ok bo （1）产品管理子系统。 bo cn 产品管理子系统可以实现对各种产品进行管理，包括产品的型号、价格、供应商等。这个子系 cn w. 统包括：产品输入功能、产品的查询功能、产品的删除功能、产品的修改功能、产品统计报表的功 w. ww 能。 w （2）订单管理子系统。 w订单管理在产品管理中起着举足轻重的作用，该子系统把订单处理流程加以电子化，以提供对 et 订单的管理、处理和查询，提高订单处理的效率，通过该子系统可以提高管理的准确性和及时性， n 减少操作人员的工作压力，减少人为出错、降低成本，从而实现对订单的有效控制，子系统主要包 k. 括：订单输入功能、订单确认功能、订单修改功能、订单删除功能、订单查询功能、订单报表打印 boo cn 功能。 cn w. （3）出货管理子系统。 . w 出货管理子系统向用户提供了发货的时间、客户、出货数量、出货价格等信息。 w w （4）进库管理子系统。 ww 进库管理子系统向用户提供了进库号、进库数量、进库时间和负责人等信息，包括：添加进库

第7章 Access 2003数据库管理软件

第7章
Access 2003数据库管理软件
► ► ► ► ►
教学目标掌握数据库技术的基本概念掌握数据库系统的特点掌握表的概念和创建方法掌握关系的概念以及表间关系的建立熟悉基本的查询类型，了解报表的基本操作
7.1 数据库系统概述
在计算机中，数据管理指的是对数据进行分类、组织、编码、存储、检索和维护的过程。随着计算机硬件和软件技术的飞速发展，计算机数据管理技术也在不断地更新和完善之中，数据库技术就是一种非常重要而且被广泛应用的计算机数据管
理技术。
7.1 数据库系统概述
7.1.1 数据和数据处理
数据（Data）在一般意义上被认为是客观事物特征所进行的
一种抽象化、符号化的表示，本身并没有实际意义。数据可以有
不同的形式，包括数字、文字、图形、图像、视频、声音等。可以说，凡是能被计算机处理的对象都可以称为数据。数据处理是将数据转换成信息的过程，它包括对原始数据的收集、分类、存储、排序、检索、加工和传输等操作。其目的是从大量的原始数据中抽取和推导出有价值的信息。为了更好地提高信息的价值，就必须用数据库技术来管理信息。
表是与特定主题有关的数据的集合。对每
个主题使用一个单独的表。在行和列的相
交处为值。值的特点就是不唯一性，在同一个表中，值可能会重复出现，而字段和记录却是唯一识别的，字段可以用字段名来识别，记录通常通过它的某些唯一特征符号来识别。
7.4 表的基本操作
1.表的概念 2. 数据类型 3.数据表的创建 4.设置主键 5.设置字段的索引
速度。在Access中可以创建基于单个字段的索引或多个字段的索引。
7.5 建立表间关系
7.5.1 关系的概念
所谓关系，就是通常所说的二维表，表和关系在关系数据库系统中是同义词。现实世界中的实体和实体间的各种联系均以关系的形式来表示，并以二维表的形式排列数据。两个不同实体集之间的联系有三种类型：（1）一对一关系（2）一对多关系（3）多对多关系。

数据库管理系统Access 2003

目录上一页下一页结束返回
政府部门的信息系统. 政府部门的信息系统.
2010-6-7
计算机文化基础
11
数据管理三个阶段的比较
人工管理阶段应用背景背硬件背景软件背景景处理方式数据的管理者数据面向的对象批处理用户(程序员) 用户(程序员) 某一应用程序无共享, 无共享,冗余度大不独立, 不独立 , 完全依赖于程序无结构科学计算无直接存取存储设备无操作系统文件系统阶段科学计算, 科学计算,管理磁盘,磁鼓磁盘, 有文件系统联机实时处理, 批处理文件系统某一应用共享性差,冗余度大独立性差记录内有结构, 整体无结构应用程序自己控制数据库系统阶段大规模管理大容量磁盘有数据库管理系统联机实时处理,分布处理, 联机实时处理,分布处理,批处理数据库管理系统现实世界共享性高, 共享性高,冗余度小具有高度的物理独立性和一定的逻辑独立性整体结构化,用数据模型描述整体结构化, 由数据库管理系统提供数据安全性, 由数据库管理系统提供数据安全性 , 完整性, 完整性,并发控制和恢复能力
目录上一页下一页结束
软件;数据处理方式是批处理. 软件;数据处理方式是批处理.
2010-6-7
计算机文化基础
5
人工管理阶段
人工管理数据具有如下特点: 人工管理数据具有如下特点: 特点 (1)数据不保存. )数据不保存. (2)数据没有相应的软件系统管理. )数据没有相应的软件系统管理.
目录上一页下一页结束返回
计算机文化基础 15
2010-6-7
6.1.2 数据库的基本概念
数据 , 数据库 , 数据库管理系统 , 数据,数据库,数据库管理系统, 数据库系统数据模型

第8篇数据库管理系统Access2003

2019/1/23
13

3. 选定整个数据表要选定全部记录，除了使用上述方法之外，还可以用以下方法。 (1) 单击字段名行(第一行)中的“记录选择器”，整个表格都会被选定。 (2) 选择“编辑”|“选择所有记录”命令。 (3) 按Ctrl+A组合键。
2019/1/23
14
8.2.4
表：表是关系数据库中最基本的对象。表中的一行称为一条“记录”，表的每一列表示同一种类型的数据，称为“字段”。每一个字段有一个名称，称为“字段名”。查询：通过设置查询条件，从表中选择所需要的数据。
2019/1/23
3
窗体：向用户提供一个交互式的图形界面，用于数据的输入、显示、编辑和控制程序的运行。报表：将获取的信息按特定方式进行组织和综合，并打印输出。它同时具备分析和汇总的功能。
2019/1/23
35
8.3.3

数据的替换
打开要替换的表，将光标置于“姓名”字段中，选择“编辑”|“替换”命令，打开“查找和替换”对话框。
2019/1/23
36
8.4
数据查询与统计
查询是数据库系统中最重要的应用，查询用来从数据库中获取信息，并以表的形式显示有关的信息。
2019/1/23
2019/1/23
33

2. 按多个列排序
在Access 2003中，可以进行多列排序，但这些列必须紧靠在一起且主排序必须在最左侧。如果它们不紧靠，可先将它们相邻排在一起，然后再进行排序，排序完毕后，再重新安排它们的位置即可。将各列排好后，拖动鼠标选定所有参与排序的列。单击“表(数据库视图)”工具栏中的“升序排序”按钮或“降序排序”按钮即可进行排序。