access课程设计
『壹』 中国石油大学远程教育学院计算机专业,Access数据库应用课程设计,数据结构课程设计,网页设计或网站建设
这个真没有,建议去找师兄师姐问问更好。
『贰』 access课设小问题,速来
Option Compare Database
Public Function openrecord(str1 As String, record As ADODB.Recordset)
'创建一个查询,把符合str1中的SQL语句的记录集打开到record中
'为记录集record 分配空间
Set record = New ADODB.Recordset
'使用本数据库的连接打开记录集
record.Open str1, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
End Function
Private Sub form_open(Cancel As Integer)
'设置打开窗体时的属性
cmdenter.Enabled = False
Form.KeyPreview = True
End Sub
Private Sub 取消_Click()
On Error GoTo Err_取消_Click
DoCmd.Quit
Exit_取消_Click:
Exit Sub
Err_取消_Click:
MsgBox Err.Description
Resume Exit_取消_Click
End Sub
Private Sub 确定_Click()
Dim userID As Integer
If IsNull(用户名) = False Then
If DLookup("[密码]", "用户", "[用户名]= """ & 用户名 & """") = 密码 Then
'userID = DLookup("[id]", "系统用户", "[用户名]= """ & com用户 & """")
DoCmd.Close
'DoCmd.OpenForm "主界面"
'Form_主界面.User = userID
Else
密码 = ""
密码.SetFocus
MsgBox "密码错误!", vbCritical
End If
End If
End Sub
查询职员资料代码如下:
Option Compare Database
Private Sub 查询_Click()
On Error GoTo Err_查询_Click
Me![查询职员资料子窗体].Requery
Exit_查询_Click:
Exit Sub
Err_查询_Click:
MsgBox Err.Description
Resume Exit_查询_Click
End Sub
Private Sub 关闭_Click()
On Error GoTo Err_关闭_Click
DoCmd.Close
Exit_关闭_Click:
Exit Sub
Err_关闭_Click:
MsgBox Err.Description
Resume Exit_关闭_Click
End Sub
预定记录管理代码如下:
Option Compare Database
Private Sub 预定ID_DblClick(Cancel As Integer)
On Error GoTo Err_预定ID_DblClick
'把子窗体中当前记录值赋予主窗体对应的文本框内
Forms![预定记录管理]![预定ID] = Me![预定ID]
Forms![预定记录管理]![客房ID] = Me![客房ID]
Forms![预定记录管理]![类型ID] = Me![类型ID]
Forms![预定记录管理]![预定人名] = Me![预定人名]
Forms![预定记录管理]![预定人数] = Me![预定人数]
Forms![预定记录管理]![类型名称] = Me![类型名称]
Forms![预定记录管理]![预收金额] = Me![预收金额]
Forms![预定记录管理]![记录人员] = Me![记录人员]
Forms![预定记录管理]![客房价格] = Me![客房价格]
Forms![预定记录管理]![抵店时间] = Me![抵店时间]
Forms![预定记录管理]![预定时间] = Me![预定时间]
Forms![预定记录管理]![联系方式1] = Me![联系方式1]
Forms![预定记录管理]![联系方式2] = Me![联系方式2]
Forms![预定记录管理]![备注] = Me![备注]
Exit_预定ID_DblClick:
Exit Sub
Err_预定ID_DblClick:
MsgBox Err.Description
Resume Exit_预定ID_DblClick
End Sub
『叁』 为什么网上关于VB的课程设计全是ACCESS的
因为ACCESS最容易入门,相对简单
而且不需要花太多时间就可搞定。
所以很多写课程的人,也检便宜,就ACCESS了
要想学好VB和数据库,至少要用SQLSERVER以及EXCEL
因为这两样最常用!
『肆』 access数据库课程设计
如果在一个模块中一个函数的定义是以“BuilderrForm”开始同时包含一个类似于Onclose属性或事件标识符,按下SHIFT和F2键就可以调用这个过程。例如,当你在一个form的设计窗口中,而当前的光标落在属性窗口中的Onclose事件的编辑控制上,按下SHIFT和F2键将能调用BuilderFormOnclose函数。这使用于form和reports的大部分属性和所有事件。下面的代码将说明函数的格式:
FunctionBuilderFormOnClose(szFormNameAsString,
szControlNameAsString,szCurrentValueAsString,szReservedAsString)
IfszCurrentValue=""Then
DoCmdSelectObjectA_MACRO,"",True
SendKeys"%n%fs"&"NewMacro"&"{Enter}"
Forms(szFormName).OnClose="NewMacro"
Else
DoCmdSelectObjectA_MACRO,szCurrentValue,True
SendKeys"%d"
EndIfEndFunction
参数szFormName,szControlName,szCurrentValue,和szReserved必须声明,即使你从不使用它们。当你的函数被调用时,这些参数总是要被传递的。如果它们没有被声明,那么MicrosoftAccess将不会调用你的函数。如果有一个参数被分配到Onclose事件上,那么前面的过程将打开一个宏,如果编辑控制是空,那么代码产生一个名为“NewMacro”的新宏,同时把编辑控制值设置为“NewMacro”。诚然,前面的例子并不是非常完美,但它的确说明了要产生一个完美而有效的程序所必须的条件。
『伍』 如何用Access和VB来做数据库课程设计
VB不是必须的! 直接在ACCESS做即可, Access有窗体, 底层提供数据库服务, 轻量级应用一站式解决!
数据库设计、数据库建立、数据输入, 用户界面的设计和实现 这几个都是实体, 容易
需求分析、应用系统的设计和开发
需求是什么? 具体要做什么, 知道做什么设计就可以开始了
『陆』 Access数据库设计,比如学生选课,图书馆管理等··
你打“图书馆access数据库设计”网络文库里有。很好的,去看看,我也和你一样在找。
『柒』 access数据库课程设计概要设计怎么写
y_Bg.jpg);}
table { font-family: "宋体"; font-size: 9pt; line-height: 20px; color: #333333}
a:link { font-size: 9pt; color: #333333; text-decoration: none}
a:visited { font-size: 9pt; color: #333333; text-decoration: none}
a:hover { font-size: 9pt; color: #E7005C; text-decoration: underline}
a:active { font-size: 9pt; color: #333333; text-decoration: none}
/*全局样式结束*/
</style>
『捌』 Access数据库课程设计的感想!
网上找了一个,这玩意最好还是自己写一下
Access比较简单,看两眼就行了
接触Access是我自修的,学资料库到有成大概经历了3年,
从来也没想到今天的我会帮公司制作资料库,也作了很多系统并且都实用上去了。例如人事薪资升迁考核年终计算图文管理资金管理编码原则管理工作管理样品柜管理客户寄货标签列印。我发现很多东西如果不用资料库来做根本就是很费时,要不然就是无法形成制度传承。资料库真是个好东西,学会资料库,以后自己当老板之后就可以很方便的管理公司。
一开始也没有锁定要学资料库,那时候可能连资料库是什 东西都没想过,只是对一些文书软体有兴趣,从Word excel 开始,很容易就上手。开始接触acces是因为无聊的时候玩一下,玩了老半天也搞不懂那是什 东西,不像word所见即所得,而且也没有实用的需求。
后来买了一本书来看才知道资料库的概念与用途,word是所见即所得,那access就是所见非所得,资料的输出可以变化出很多格式而且不必重复keyin。
如果要制作个人通讯录与信封标签可能word就可以了,但是如果范围是1000人的企业甚至更多人,或者医院病人资料,用word打而且要输出两种格式就非常的费时了。
固定格式的例行性工作,都可以用资料库来做,比如每天例行的订单,每月的帐,每个客户资料,只要是例行性的工作,利用表单输入,后续的管理如分类、归纳、统计、查询、筛选只要按一个键或输入条件就可以得到,大幅降低管理成本。如果去年度好几千张订单,老板要你找出销货量前10名与后10名的客户是谁并且看金额多少,如果没有资料库,你不就傻眼,花了一个礼拜也整理不出来,利用资料库的功能可能几分钟就搞定了。
表单是一个输入的介面,但是当你建立这个介面之后,他代表的意义是,一个固定的方法,一个制度,不再杂乱无章,不再见招拆招。让事情变的简单。换人做一样能传承。
我觉得学资料库最重要的就是他的概念。没有弄清楚它到底是做什 用的,根本就提不起劲去学,逼著学也像在大漠中行走搞不清楚方向。
搞清楚概念与用途后,还有一个条件,那就是你的生活或工作要有需要用到的地方,比如说做业务的客户越来越多,希望能够好好的管理,每个月算帐用手算的要死还会算错,希望改进,每天都要寄几百件货,但是地址却是用手写,花了很多时间,希望能改进。你需要的是一个需要资料库来解决问题的环境,这会让你很想去学,就好像你很渴,你才会去找水喝。
学习资料库也没什 诀窍啦,用心就对了,有心的人什 东西学不会呢,书籍、网路、讨论区,都是学习的途径,简单一句话,做就对了,不懂就问。如果说要学到有成,一般大概需要花个两年吧,实做的东西大概要20件以上,边做边学遇到问题就问,有问题就要解决,总有一天就通了
『玖』 课程设计 使用asp.net,采用Access数据库,实现数据库表的基本操作,,如插入、删除、查询、更改等....很急
1.insert
private void NewNode(String type, int nodeid, String nodeText)
{//判断是新增树节点,还是子节点.
if (nodeid < 1) return;
String sql = "insert into ut_title(titleid,titlename,parentid) values(@,@titlename,@parentid)";
OleDbCommand cmd = new OleDbCommand(sql, cn);
cmd.Parameters.AddWithValue("@titleid", nodeid);
cmd.Parameters.AddWithValue("@titlename", String.Empty.Equals(nodeText) ? "-新的标题-" + DateTime.Now.ToString("yyyyMMddHHmmss") : nodeText);
if ("sub".Equals(type))
{
cmd.Parameters.AddWithValue("@parentid", this.selectnode.Tag.ToString());
}
else
{
cmd.Parameters.AddWithValue("@parentid", "0");
}
if (cn.State != ConnectionState.Open)
cn.Open();
try
{
cmd.ExecuteNonQuery();
}
catch (Exception err)
{
throw err;
}
finally
{
if (cn.State != ConnectionState.Closed)
cn.Close();
}
}
2.update
private void UpdateNode(String titlename, int currentID)
{
String sql = "update ut_title set titlename='" + titlename + "' where titleid=" + curTitleID;
OleDbConnection cn = new OleDbConnection(BizSvr.ConnectionString);
OleDbCommand cmd = new OleDbCommand(sql, cn);
if (cn.State != ConnectionState.Open)
cn.Open();
try
{
cmd.ExecuteNonQuery();
}
catch (Exception err)
{
throw err;
}
finally
{
if (cn.State != ConnectionState.Closed)
cn.Close();
}
}
3.delete
private void DeleteNode()
{
if (this.selectnode == null || this.selectnode.Tag == null) return;
OleDbConnection cn = new OleDbConnection(BizSvr.ConnectionString);
if (cn.State != ConnectionState.Open)
cn.Open();
OleDbTransaction tran = cn.BeginTransaction();
try
{
OleDbCommand cmd;
String sql = "";
//没有文档内容也可以删除标题
sql = "delete from ut_title where titleid=" + this.selectnode.Tag.ToString() + "";
cmd = new OleDbCommand(sql, cn);
int i = cmd.ExecuteNonQuery();
if (i > 0)
{
this.treeView1.Nodes.Remove(this.selectnode);
}
}
catch (Exception err)
{
MessageBox.Show(err.Message);
}
finally
{
if (cn.State != ConnectionState.Closed)
cn.Close();
}
}
4.select
private void LoadImgDataToRichTextBox(int titleid)
{
//从数据库中读出数据
String sql = String.Format("select top 1 accessory,docdesc from ut_doc where titleid = @titleid");
OleDbConnection cn = new OleDbConnection(BizSvr.ConnectionString);
OleDbCommand cmd = new OleDbCommand(sql, cn);
OleDbParameter p0 = new OleDbParameter("@titleid", OleDbType.Integer);
p0.Value = titleid;
OleDbDataAdapter da = new OleDbDataAdapter(sql, cn);
da.SelectCommand.Parameters.Add(p0);
try
{
if (cn.State != ConnectionState.Open)
cn.Open();
DataTable dt = new DataTable();
da.Fill(dt);
if (dt != null && dt.Rows.Count > 0)
{
this.txt_tag.Text = dt.Rows[0][1].ToString();
byte[] bWrite = (byte[])dt.Rows[0][0];
//将数组转换成stream
System.IO.MemoryStream mstream = new System.IO.MemoryStream(bWrite, false);
//将stream填充到RichTextBox
this.htmlRichTextBox1.LoadFile(mstream, RichTextBoxStreamType.RichText);
}
}
catch (Exception err)
{
MessageBox.Show(err.Message);
}
finally
{
if (cn.State != ConnectionState.Closed)
cn.Close();
}
}
5.connection string:
public static String ConnectionString_unEncry
{
get
{
String str = String.Format(@"Provider=Microsoft.Jet.OLEDB.4.0; Data Source={0}\newapp.mdb", System.Windows.Forms.Application.StartupPath);
return str;
}
}
『拾』 我是大三的学生,开学做课程设计,选的课题是用JAVA开发一个小型的数据库系统(如access这种)
看你这意思应该是使用java连接access数据库设计一个小系统,例如:图书管理系统、文档管理系统之类的吧?
给你的建议是在网上找一些源码网站,例如源码之家http://www.mycodes.net/,源码中国之类的搜搜access没准有这种项目,你down下来配置配置就可以运行试试了