江南大学学士毕业论文--人事考勤信息管理系统

江南大学学士毕业论文--人事考勤信息管理系统内容摘要：

复杂的 SQL 语言，除提供 SQL 接口外，还提供了具有简单逻辑的可视化查询。 具体作法是对每一个模板化报表都提供了几个可选择的条件以及它们之间的关系供使用，具体条件根据经验而定。 ⑧ 打印问题 ► 方法一：直接打印窗体法，在 FORM1 中增加命令按钮 (mand)， CAPTION属性设为直接打印，再写入下列编码： Sub mand_click End sub ► 方法二：通过 PRINTER 实现打印。 这种方法 使用这种方法，必须加入打印命令按钮 (mand1)、函数 (prnt1)，由此可实现打印功能。 以下代码，稍加改动，可写成标准的函数或过程。 函数 prnt1 的功能是设置打印报表的页面初始位置，设置默认字体：字体大小，是否为粗体。 最后将文本打印出来。 Function prnt1 (x As Integer, y As Integer,font As Single, txt As String) = x = y = False = font txt End Function Sub mand1_click Dim fnt As Single Dim pp as integer Pp=0 39。 设置开始页码 0 Dim stry,strx,strx1,stry1,linw,page1,p As Integer Static a(8) As Integer 39。 定义打印的列数 ss$ = 内部结算存入款对帐单 39。 定义表头 kan = 0 For i = 0 To 8 a(i) = 1500 39。 定义每列宽 kan = kan + a(i) 39。 计算表格总宽度 Next page1 = 50 39。 定义每页行数 strx = 200 strx1 = 200 39。 定义 X 方向起始位置 stry = 1400 stry1 = 1400 39。 定义 Y 方向起始位置 linw = 240 39。 定义行宽 fnt = 8 39。 定义字体大小 = 宋体 39。 定义字体 dd = prnt1(4000, 700, 18, ss$) 39。 打印标题 (strx 50, stry 30)(strx + kan 10, stry 30) For j = 0 To gridrow – 1 39。 gridrow 为所要打印的行数 = j strx = strx1 (strx 50, stry 30)(strx + kan 10, stry 30) p = p + 1 For i = 0 To 8 = i dd = prnt1(strx, stry, fnt, ) strx = strx + a(i) Next If p page1 Then p = 0 strx = strx1 (strx 50, stry + linw)(strx + kan 10, stry + linw) stry = stry1 39。 line col For n = 0 To 8 (strx 30, stry 30)(strx 30, stry + (page1 + 2) * linw) strx = strx + a(n) Next (strx 30, stry 30)(strx 30, stry + (page1 + 2) * linw) pp=pp+1 foot$=第 +cstr(pp)+页 dd = prnt1(strx 301000, stry + (page1 + 2)* linw+100, 10, foot$) 39。 打印页码 39。 next page dd = prnt1(4000, 700, 18, ss$) 39。 打印标题 strx = strx1 stry = stry1 (strx 50, stry 30)(strx + kan 10, stry 30)39。 print first row Else stry = stry + linw End If Next st = stry If p page1 Then 39。 在最后页剩余划空行 For o = p To page1 + 1 strx = strx1 (strx 50, stry 30)(strx + kan 10, stry 30) stry = stry + linw Next End If stry = stry1 strx = strx1 stry = stry1 39。 line col For n = 0 To 8 (strx 30, stry 30)(strx 30, stry + (page1 + 2) * linw) strx = strx + a(n) Next (strx 30, stry 30) (strx 30, stry + (page1 + 2) * linw) pp=pp+1 foot$=第 +cstr(pp)+页 dd = prnt1(strx 301000, stry + (page1 + 2)* linw+100, 10, foot$)39。 打印页角码 39。 打印结束 Endsub ► 方法三： 通过生成 MICROSOFT WORD 表格打印 在 declaration 中写入 : Dim msword As Object 加入打印命令按钮 (mand2)， CAPTION 设为 生成 WORD 表格 ，写入下面代码， Private Sub mand2_Click() = 11 Set msword = CreateObject() Dim AppID, ReturnValue appID = Shell(d:\office97\office\, 1) 39。 Run Microsoft Word. Microsoft Word full = 0 End Sub 写入以下过程 full() Sub full() Dim i As Integer, j As Integer, col As Integer, row As Integer Dim cellcontent As String cols = 439。 表格的列数 row = gridrow39。 打印表的行数 正在建立 MS_WORD 报表，请稍候 ......., , 1 0 , col, row, , , 16, 167 for j=0 to gridrow39。 表格的行数 =j For i = 1 To cols =i If IsNull() Then cellcontent$ = Else cellcontent$ = End If cellcontent$ Next i Next j 1 39。 1 结束 , , 1 End Sub 第二部分 系统开发工具简介 Visual Basic 简介 ⑴ Basic 到 Visual Basic 的发展 BASIC 是 Beginner39。 s Allpurpose symbolic instruction Code（初学者通用符号指令代码）的缩写，是国际上广泛使用的一种计算机高级语言。 BASIC 简单、易学，目前仍是计算机入门的主要学习语言之一。 BASIC 语言的问世及发展 BASIC 语言自其问世经历了以下四个阶段： 第一阶段：（ 1964 年～ 70 年代初） 1964 年 BASIC 语言问世。 第二阶段：（ 1975 年～ 80 年代中） 微机上固化的 BASIC 第三阶段：（ 80 年代中～ 90 年代初） 结构化 BASIC 语言。 第四阶段：（ 1991 年以来） Visual BASIC BASIC 是种易学易用的高级语言 ,非常适合初学者学习运用。 常用的编译软件有True BASIC, Turbo BASIC Quick BASIC, Visual BASIC,CAREALIZER,GFA BASIC,POWER BASIC 等等 1991 年，微软推出了 Visual 版。 这在当时引起了很大的轰动。 许多专家把VB 的出现当作是软件开发史上的一个具有划时代意义的事件。 其实，以我们现在的目光来看 ， VB10 的功能实在是太弱了。 但在当时，它是第一个“可视”的编程软件。 这使得程序员欣喜之极，都尝试在 VB 的平台上进行软件创作。 微软也不失时机地在四年内接连推出 ， ， 三个版本。 并且从 VB3 开始，微软将 ACCESS 的数据库驱动集成到了 VB 中，这使得 VB 的数据库编程能力大大提高。 从 VB4 开始， VB 也引入了面向对象的程序设计思想。 VB 功能强大，学习简单。 而且， VB 还引入了“控件：的概念，使得大量已经编好的 VB 程序可以被我们直接拿来使用，如今， VB 已经有了 版。 通过几年的发展，它已成为一 种真正专业化的开发语言和环境。 用户认为可用 Visual Basic 快速创建 Windows 程序，在现在还可以编写企业水平的客户／服务器程序及强大的数据库应用程序， Visual Basic 新版中还有更多可用功能。 ⑵ Visual Basic 的编程基础 首先需要知道下面这个问题的答案：“程序到底是什么。 ”计算机程序是指令集，它告诉计算机如何执行特殊的任务。 读者也许对许多种指令熟悉，如按菜谱烹调特殊的食物或按指定的方向到达不熟悉的目的地。 没有这些特殊的指令，就不能执行预期的任务。 计算机也是一样，只是它们需要 为执行的每一个任务提供指令。 甚至对最简单的任务也需要指令，例如如何取得击键，怎样在屏幕上放一个字母，怎样在磁盘中保存讯息。 幸运的是，许多这样的指令包含在处理器芯片中或内置于操作系统中，因此用户不必担心它们。 相反，应集中于为任务提供指令，如计算雇员工资，创建邻居邮件列表，或设置格式化文本以显示最近的年度报表信息。 虽然我们用自然语言读这些指令，但计算机指令必须是二进制代码，即一系列在计算机内存和处理器中的开或关的状态。 有些语言，如汇编程序，可以允许直接写这种类型的代码。 但是，以这种方法编程十分困难，因此Visual Basic 和其他编程语言使程序员可以用与自然语言有点相近的方式编写指令。 然而，即使是这些指令仍有限，并要遵循高度定义的结构。 ⑶ 事件驱动编程 Visual Basic 允许创建反映用户动作和系统事件的程序。 这种编程叫事件驱动编程。 要了解事件驱动程序是怎样工作的，先要了解过去的程序怎样运行及在 Windows 环境中有何不同。 在 Windows 之前（回到往日的 DOS 和“史前时代” ＰＣ之前），程序以顺序方式运行。 也就是说，一旦程序启动，它就一条指令接一条指令的向前执行，直到程序结束或出 现致命错误。 ⑷ 面向对象编程 使创建 Windows 程序较为容易的关键技术是面向对象编程，或 OOP。 这种技术可以创建可重用组建，它是程序的组成模块。 ⑸ 几个基本概念 在讨论 Visual Basic 时，经常可以听到这些术语，因此对这些术语的基本理解十分有帮助。 控件提供程序可见界面的可重用对象。 控件的示例有文本框、标签和命令按钮。 事件 由用户或操作系统引发的动作。 事件的示例有击键、单击鼠标、一段时间的限制，或从端口接收数据。 方法 嵌入在对象定义中的程序代码，它定义对象怎样处理信息并响应某事件。 例如，数据库对象有打开纪录集并从一个记录移动到另一个记录的方法。 对象 程序的基本元素，它含有定义其特征的属性，定义其任务和识别它可以响应的事件的方法。 控件和窗体是 Visual Basic 中所有对象的示例。 过程 为完成任务而编写的代码段。 过程通常用于响应特定的事件。 属性 对象的特征，如尺寸、位置、颜色或文本。 属性决定对象的外观，有时也决定对象的行为。 属性也用于为对象提供数据和从对象取回信息。 数据库简介 数据库概述 ⑴ 数据库 给数据库下了一个比较完整的定义 ：数据库是存储在一起的相关数据的集合，这些数据是结构化的，无有害的或不必要的冗余，并为多种应用服务；数据的存储独立于使用它的程序；对数据库插入新数据，修改和检索原有数据均能按一种公用的和可控制的方式进行。 当某个系统中存在结构上完全分开的若干个数据库时，则该系统包含一个 数据库集合。 ⑵ 数据库的优点 使用数据库可以带来许多好。