一、 实习时间：
第十七周 2024年12月22日——2024年12月26日
二、实习地点：
学校教学楼b201、实验楼一机房。
三、实习题目：
科技档案管理系统。
四、实习目的：
在sql数据库和visual basic设计程序的合作中，实现visual basic用户使用sql server 的功能。 通过制作科技档案管理系统掌握visual basic连接sql server的方法与步骤。同时在对案例的分析、了解和制作过程中，就所遇到的问题和不明白之处进行分析、解决和归纳，以此来复习我们对该门课程知识点的掌握与运用。
使能够更熟练的运用sql数据库和visual basic的连接，并实现visual basic用户对sql server数据库进行管理。而且可以以此来提高我们的动手能力和综合能力。
五、实验原理：
在该科技档案系统管理中，主要是运用activex的数据对象ado来实现他的功能。在ado数据访问接口中运用了ado db对象库和connection、recordset、command对象，通过各个对象间的关系来完成对sql数据库的操作。当然我们也得首先制作一个关于科技档案管理系统的数据库，并以此来完成visual basic的连接。
六、实习内容：
1、科技档案管理系统的设计与实现：
首先是对科技档案管理系统的功能需求分析。通过需求分析来对该管理系统进行模块划分，主要是分为著作信息管理和作者信息管理（也就是科技档案信息管理和人员信息管理）。然后针对科技档案的内容和数据流程分析，设计出数据项和数据结构。
在完成这些步骤以后，我们需要做的就是具体完成这些表项的制作，来实现数据库。我主要是利用查询分析器来完成数据库的。首先是创建数据库，先在c盘中创建新的文件夹kjdaxt，我命名该数据库为kjda,**如下：
create database kjda
on name=kjda_dat,filename='c:\kjdaxt\',size=10,maxsize=20,filegrowth=2)
log on
name=kjda_log,filename='c:\kjdaxt\',size=5,maxsize=10,filegrowth=1)
go创建好kjda数据库以后，我们需要把我们要用到的表创建到该数据库中，比如：著作基本信息表、**基本信息表、著作作者信息表、**作者信息表等。当整个数据库创建好以后我们可以在sql server数据库中的企业管理器中看到以下界面：
这样我们所需要的科技档案管理系统的数据库就完成了。
2、应用程序的编制。
当sql语句在sql server 中的查询分析器执行后，将自动产生科技档案需要的所有**。即有关数据库的后台工作已经完成。现在需要的是通过科技档案管理系统中各个功能模块来实现。
1、首先我们需要建立主窗体，visual basic 创建的应用程序可以是sdi（单文档界面）和mdi（多文档界面），因为只有在mdi的程序中，可以是有一个主窗体，并且包含其他窗体，所以我们选择mdi form类型来编写主窗体。通过主窗体中的窗体菜单编辑来实现，以下是科技档案管理系统的主窗体界面截图：
2、然后我们需要创建公用模块。公用模块在visual basic中是用来存放整个工程项目公用的函数、全局变量等。
我们需要新建模块，创建我们的公用数据，以使其可以操纵数据库中的数据，执行各种sql语句。公用模板**如下：
public function executesql(byval sql as string, msg as string) as
dim cn as
dim rs as
dim stokens() as string
on error goto executesql_error
stokens = split(sql)
set cn = new
cnsif instr("insert,delete,update", ucase$(stokens(0)))then
(sql)msg = stokens(0) &successful"
elseset rs = new
trim$(sql), adlockoptimistic
set executesql = rs
msg = 查询到" &条记录"
end if
executesql_exit:
set rs = nothing
set cn = nothing
exit function
executesql_error:
msg = 查询错误："
resume executesql_exit
end function
public function cns() as string
cns = provider=sqloledb.1;persist security info=false;user id=sa;initial catalog=kjda;data sour=iii33"
end function
在执行之前，我们需要在引用中选择microsoft activex data obiects 2.6 library。
3、当公用模块创建好以后，我们需要创建输入**信息的窗体。选择“输入**信息”菜单，出现一个窗体，我们需要做的就是，对窗体进行初始化加载，窗体界面如下去：
在窗体初始化之后我们需要对有些东西进行定义。作者信息中的添加按钮——command1，是用来添加**作者的名称的，以使添加的作者在下面的列表中显示，其**如下：
private sub command1_click()
dim as integer
dim flag as string
if not testtxt( then
msgbox "姓名不能够为空！",vbokonly, "警告"
exit sub
end if
if = 0 then
text2(8).text =
elsefor i = 0 to listcount - 1
if = then
flag = msgbox("是否是重名称作者！",vbokcancel, "提示")
if flag = vbok then
text2(8).text =
exit subelse
exit sub
end if
end if
next i
text2(8).text =
end if
作者信息中的删除按钮——command2_click，是用来添加**作者的名称的，以使添加的作者在下面的列表中显示，其**如下：
rivate sub command2_click()
dim i as integer
if = 1 then
msgbox "请在表中选择一个姓名！",vbokonly, "警告"
exit sub
elsetext3(8).text =
for i = 0 to - 1
if i = 0 then
text3(8).text =
elsetext3(8).text =
end if
next i
end if
end sub
窗体上的添加按钮，把用户输入的信息进行有效性检查，再把信息输入到数据库，下面就是command3中创建的valid_rule函数——有效性规则检查**和数据库的**的截图：
之后我们还需要添加addnew函数，以下是它的截图：
添加了addnew的函数以后，我们只需要输入addnew的**，然后调用这个函数，调用addnew函数的**如下：
private sub command3_click()
call addnew
end sub
这样，输入**的窗体就完全的创建好了。
4、接下来就是“修改**信息”窗体的创建。
在选择了“修改**信息”菜单以后，对出现的窗体进行初始化，我们将看到以下的窗体：
我们可以对“修改**信息”窗体的定义就和对“输入**信息”窗体的定义差不多，在此我就不多说了。
科技档案管理
科学技术档案。科技档案的工作机构与人员 工作职责 移交进馆程序和方法 鉴定与销毁 保管和借阅工作 奖励与考核制度按公司档案管理办法执行。一 科技档案的分类。科技档案是记述和反映本单位基本建设 经营管理 生产技术和科学研究等活动而形成的具有保存价值的科技文件材料。主要形式有图纸 图表 文字材料 含底片...
科技档案管理
科技档案期末复习资料。一 单选题。1 设备档案的基本分类法是 b a 项目分类法。b 型号分类法。专业分类法。时间分类法。科档分类方案中纵向类为目间的关系是 d 交叉关系。b 平行关系。c 重叠关系从属关系。科技文件归档和接收的凭证是 b 归档审批表。移交清单。归档材料说明。归档制度。机械产品图样的...
科技档案管理
一 含义。指在科学技术活动中直接形成的，具有保存价值的文字 图表 声象等不同形式的历史记录。二 种类。一 科研档案。二 技术档案。三 基建档案。四 设备档案。三 整理。一 分类方法。1 按类型分类。2 按工程项目分类。3 按课题分类。二 编号方法。1 分类号的编制。2 保管单位顺序号的编制 见书p1...