Question

应用Access开发一个综合应用系统,急求，谢谢，实在不会做，帮个忙吧，做好了发我邮箱709532959@qq.com

题目：自定

内容要求：

首先写清任务需要，然后根据实际要求建立相应的数据库、查询。建立报表，为用户方便使用系统需要建立一些窗体完成数据录入操作。

例：

题目：教学管理系统

任务需要：用于学生成绩的录入、查询以及修改，课程信息的录入、查询与修改。并能够完成各种查询、统计方面的工作，如：按班查询每人的每门课程的成绩信息、每人的学分信息、补考次数等。每门课程的情况，如平均分、不及格人数、优秀率等。

最低要求：

设计的系统必须有如下一些内容：1）利用窗体完成方便用户的数据输入操作、2）利用窗体完成有关数据查询的操作，并有以图形方式显示的数据信息。

一、大作业报告要求

1、 有关任务的实验报告：

题目

（1）需要分析（即：实验内容）

（2）理论分析（即：相关知识介绍，设计的数据实体的关系E-R图）

（3）系统结构及说明（即：设计各种表的结构及相应的说明、查询设计及目的、窗体设计及报表设计）

（4）主要界面及说明（即：粘贴主要的操作界面，并加相应的说明）

（5）系统分析与总结（即：对所设计的系统做自我评价，认为的优点、不足及原因）

Answer 1

我是学VB的 这个真的很麻烦 不过不是很难 只是数据录入、查询和修改的问题 我实在是没时间做了 要不我就给你做一个 ACCESS 实际来说真的不是太难
先上一段录入的 这是我自己做 你参考 一下吧 我做的 绘图系统上边的
MSFlexGrid1.Clear
fileName = App.Path + "\db1.mdb"

If adoConn.State = adStateOpen Then
adoConn.Close
End If
'连接数据库
link
i = 1

With adoRes
If .RecordCount >= 1 Then
.MoveFirst
End If
ReDim Preserve zh(i), dmgc(i)
zh(i) = Val(Text1.Text)
dmgc(i) = Val(Text2.Text)
If zh(i) = 0 And dmgc(i) = 0 Then
MsgBox "桩号与高程都 为0", vbApplicationModal
Stop
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Exit Sub
End If
While Not .EOF
If zh(i) = !桩号 Then
a = MsgBox("该桩号已存在！改写它吗？？？？", vbOKCancel)
If a = 1 Then
.Move i - 1

!地面高程 = dmgc(i)
.Update
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Command2_Click
Exit Sub
Else
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Command2_Click
Exit Sub
End If
End If
.MoveNext
Wend
.AddNew

!桩号 = Val(Text1.Text)
!地面高程 = Val(Text2.Text)
Text1.Text = ""
Text2.Text = ""

.Update
.MoveNext
End With
Text1.SetFocus

下边 是显示 数据的
link
With adoRes
i = 1
While Not .EOF
MSFlexGrid1.TextMatrix(i, 0) = i
MSFlexGrid1.TextMatrix(i, 1) = !桩号
MSFlexGrid1.TextMatrix(i, 2) = !地面高程
MSFlexGrid1.TextMatrix(i, 3) = !设计高程
MSFlexGrid1.TextMatrix(i, 5) = !控制点高程
If !设计高程 = 0 Then
MSFlexGrid1.TextMatrix(i, 4) = 0
Else

MSFlexGrid1.TextMatrix(i, 4) = !填挖高
End If
ReDim Preserve zh(i), dmgc(i), sjgc(i), twg(i), kzdgc(i)
zh(i) = !桩号: dmgc(i) = !地面高程: sjgc(i) = !设计高程: twg(i) = !填挖高: kzdgc(i) = !控制点高程
i = i + 1
If i = MSFlexGrid1.Rows Then
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
End If
.MoveNext
Wend
End With
修改数据的
link
i = Val(Text1.Text) - 1
If Text1.Text = "" Then
MsgBox "记录号不能为空", vbInformation + vbOKOnly, "程序提示信息"
Text1.SetFocus
Exit Sub
End If
Print i
If i < 0 Or i = 0 Then
MsgBox "记录号不能为0或负数", vbOKOnly
Text1.SetFocus
Exit Sub
End If
With adoRes
.Move i
!桩号 = Val(Text2.Text)
!地面高程 = Val(Text3.Text)
qk

If !桩号 = 0 And !地面高程 = 0 Then
MsgBox "桩号与高程都 为0", vbSystemModal
Text1.SetFocus
Text2.SetFocus
qk
Exit Sub

End If

.Update
End With
删除数据的
link
i = Val(Text1.Text) - 1
If Text1.Text = "" Then
MsgBox "记录号不能为空", vbInformation + vbOKOnly, "程序提示信息"
Text1.SetFocus
Exit Sub
End If
With adoRes

.Move i
.Delete adAffectCurrent

End With
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
你参考一下吧 稍微改一下就能用

Answer 2

似乎要花费一些时间，不过你说的不够清楚

Answer 3

我刚好有一个，你要么