《医院收费管理系统毕业设计说明书.doc》由会员分享，可在线阅读，更多相关《医院收费管理系统毕业设计说明书.doc（78页珍藏版）》请在三一办公上搜索。
1、 毕业设计毕业设计(论文论文)需要全套需要全套：联系联系 QQ625880526 或手机或手机 15196316750 计算机系计算机系.02 级电子与信息技术专业级电子与信息技术专业 (DELPHI)数据库数据库管理管理系统系统 (目录目录)第一部分第一部分 引言引言 1.11.1-任务或问题：1.21.2-实际背景：1.31.3-我的工作 1.41.4-特色（创新）第二部分第二部分 毕业设计课题毕业设计课题 2.12.1-设计课题 2.22.2-设计时间 2.32.3-设计人员及任务 2.42.4-指导老师 2.52.5-设计内容 第第三三部分部分 系统方案论证系统方案论证 3.13.1-
2、软件定义 3.23.2-体系结构规划 第第四四部分部分 毕业设计内容毕业设计内容 4.14.1-功能模块分析 4.24.2-模块 1 功能实现 4.34.3-模块 2 功能实现 4.44.4-模块 3 功能实现 4.54.5-模块 4 功能实现 4.64.6-模块 5 功能实现 4.74.7-数据库分析 4.84.8-系统界面实现 第第五五部分部分 毕业设计心得体会毕业设计心得体会 第第六六部分部分 附录附录 6.16.1-代码部分代码部分 参考文献参考文献 摘要摘要 本次毕业设计任务是通过开发一个数据库校医院门诊收费管理系统，学习用 delphi 开发分布式多层数据库系统。采用 Delphi
3、7.0 和 MS Server2000 等软件为开发工具；通过对计算机硬件和软件解决方案的论证；对应用领域进行调查分析；参考各种资料和进行数据库编程实践。在我指导老师的帮助下，已经基本上成功地实现了设计任务书的要求。使得设计的数据库系统能够实现一般数据库的管理。我们研究了数据库的查询优化问题。第一部分第一部分 引引 言言 1.11.1 任务或问题：任务或问题：开发一个医院门诊收费管理系统，可以实现动态的连接应用程序服务器，只要对配置文件进行配置，就可以像网上邻居一样选择所要连接的应用程序服务器。并能实现门诊收费,划价;药品管理,住院管理;医务人员管理及各种查询,报表等功能。1.21.2 实际背
4、景：实际背景：随着社会发展，人类的生产、生活越来越离不开信息。谁拥有了更多更有效的信息，谁就将在竞争中处于有利地位。信息产业正在成为一个国家的支柱。数据作为信息的载体，其管理工具数据库对于信息技术的重要性，正日益得到人们的重视。只有拥有了先进的数据库技术，才能有效地管理好浩如烟海的数据，并从中提取出对自己有用的信息来加以利用。90 年代，人们开发 MIS 系统大都采用客户机/服务器结构，客户机/服务器结构既是硬件结构又是软件结构。即数据放在服务器上，程序在客户机上。进行数据访问时，由客户机提出请求（一般是 SQL 语句），服务器执行并给出结果。客户机/服务器对于优化了网络，提高了系统的利用率。
5、客户机/服务器体系结构的发展经历了从二级体系结构模式到三级体系结构模式。我校医院目前仍然是人工手动计算,整理,查询医院门诊,药房,病房等各项工作,执行效率非常低,不方便,给医务人员带来了不少麻烦;现在已是 21 世纪,为了跟上时代的发展,实现信息网络化,有我建议,石家庄职业技术学院校医院院长()决定并批准开发此项系统.在校学习期间,我们电子与信息技术专业没有开过(DELPHI 程序设计课程,SQL SERVER 数据库)等相关技术性学科,所以我是在学习阶段边学习边开发.(有难度).1.31.3 我的工作我的工作 设计系统框架，设计数据库，编写代码，测试数据等。对整个软件进行全面分析,制作,完成
6、等.1.41.4 特色（创新）特色（创新）数据库连接不需要手动连接,采用智能连接方式。第第二部分二部分 毕业设计课题毕业设计课题 2.12.1 设计课题设计课题 石家庄职业技术学院校医院门诊收费管理系统.2.22.2 设计时间设计时间 二五年 5 月至二五年 5 月底 2.32.3 设计人员及任务设计人员及任务 莫建坡-整个软件:分析,制作及完成.2.42.4 指导老师指导老师 吴健老师 2.52.5 设计内容设计内容 利用 Delphi7.0 和 MS Server2000 为主要开发工具，以 Windows server2000 为开发平台。设计出医院门诊收费管理系统。可以实现数据库连接不
7、需要手动连接,采用智能连接方式;医院门诊收费管理系统 应实现:门诊收费,划价;药品管理,住院管理;医务人员管理及各种查询,报表等功能。第三部分第三部分 系统方案论证系统方案论证 3.13.1 软件定义软件定义 数据库设计所要的解决的问题是：对于一个给定的应用领域，设计优化的数据库逻辑和物理结构，使之满足用户的信息管理要求和数据操作要求，有效地支持各种应用系统的开发和运行。数据库设计的目标是为用户和各种应用系统提供一个高效的运行环境。而数据库的设计可以视为如下的优化问题。（1）计算机的软硬件环境；（2）数据库管理系统的能力；（3）用户的操作要求与信息要求；（4）完整性和安全性约束。3.2 3.2
8、 体系结构规划体系结构规划 本次设计的系统采用客户/服务器体系，为了便于理解，我们先从二层客户/服务器体系结构来阐述：客户/服务器是在网络基础上，以数据库管理为后援，以计算机为网上工作站的一种系统结构。该结构的关键在把网络环境上的数据库存取和应用程序一分为二，分别由网上的数据库服务器和网上客户来执行。虽然本系统客户/服务器是建立在 LAN 的基础上，但它比以往的文件服务系统有了很大的改进。首先，它消除了不必要的网络传输负担；其次，它可以使作为数据库服务器的计算机被高度优化，以适应数据处理的需要。客户/服务器已经能够应用于复杂的网络上，并使之能够更有效地进行选择、检索、索引排序等数据处理。作为一
9、种高级的分布式计算机环境、客户/服务器有足够的能力把处理后的结果（不是整个文件）通过网络传输出去，并根据用户需求灵活地配置各种大、中、小型计算机系统。3.3 系统设计系统设计 数据流图 管理要求 查询要求 管理结果 查询结果 （顶层数据流图）数据库设计过程 数据库的设计过程如下图所示。在数据库设计过程中，需求分析和概念设计可以独立于任何数据库管理系统进行。逻辑设计和物理设计与具体的数据库管理系统密切相关。由于需求分析比较重要。我们在设计的时候，花了比较多的时间。在获得这些资料之后，进行分析。从中提取有用的部分。分析各种用户的权限。医院收费 管理系统 管理人员 病 人 现实世界 需求分析 需求分
10、析说明书 概念数据库模式 独立于数据 （高级数据模型）库管理系统 与数据库管 理系统相关 逻辑数据库模式 （特定数据模型）物理数据库模式 （特定的物理存储结构和存取方式）图：数据库设计过程 系统模块图:第四部分第四部分 毕业设计内容毕业设计内容 医院收费管理系统 门 诊 管 理 药 品 管 理 住 院 管 理 医 务 人 员 辅 助 资 料 系 统 设 置 财 务 管 理 概念数据库设计 逻辑数据库设计 物理数据库设计 4.14.1-功能模块分析 门诊收费管理模块图:药品管理模块图药品管理模块图:住院管理模住院管理模块块图图:药品管理 药 品 入 库 药 品 出 库 药 品 库 存 门诊管理系
11、统 门 诊 挂 号 管 理 门 诊 划 价 管 理 门 诊 收 费 管 理 门 诊 取 药 管 理 医务人员管理模块图医务人员管理模块图:辅助资料管理模块图辅助资料管理模块图:住院管理 入 院 登 记 交 预 交 款 住 院 划 价 收 费 出 院 结 算 医 务 人 员 登 记 部 门 维 护 职 务 维 护 医 务 值 班 人 员 医务人员管理 系统设置模块图系统设置模块图:帐目管理模块帐目管理模块:辅助资料管理 药 品 分 类 管 理 药 品 种 类 维 护 计 量 单 位 维 护 治 疗 种 类 维 护 系 统 等 待 用 户 注 册 修 改 密 码 数 据 备 份 数 据 还 原 计
12、 算 器 打 开 本 院 主 页 系统设置 4.24.2-模块 1 功能实现 门诊收费管理门诊收费管理:门诊收费管理主要完成:病人挂号,药品收费,划价,等功能管理,并且能够对药房药品进行动态的调整,所使用的数据表:挂号表:3 挂号编号 int 4 0 1 病人姓名 char 20 0 1 病人班级 char 30 1 1 挂号日期 datetime 8 0 1 挂号科室 char 20 0 1 挂号类型 char 20 0 1 挂号金额 money 8 0 门诊收费明细表:2 编号 int 4 0 0 挂号编号 int 4 0 0 收费名称 char 25 0 0 计量单位 char 10 0
13、 0 数量 int 4 0 0 收费单价 money 8 0 0 收费金额 money 8 0 1 药品种类 char 10 1 门诊收费结算表:2 编号 int 4 0 0 挂号编号 int 4 0 财务管理 月 结 算 管 理 每 日 结 算 管 理 数 据 库 表 管 理 0 患者姓名 char 20 0 0 结算日期 datetime 8 0 0 西药费 money 8 1 0 中药费 money 8 1 0 中成药费 money 8 1 0 手术费 money 8 1 0 输液费 money 8 1 0 检查费 money 8 1 0 治疗费 money 8 1 0 化验费 mone
14、y 8 1 0 拍片费 money 8 1 0 其它费 money 8 1 0 主治医生 char 20 1 1 总费用额 money 8 1 挂号功能界面:门诊收费，划价管理功能界面:门诊流程图:4.34.3-模块 2 功能实现 药品管理主要完成:药品的入库,出库,库存统计,药品价格管理:所使用的数据表:药品入库总表:2 入库总表编号 int 4 0 0 入库操作员 char 20 0 0 入库日期 datetime 8 0 1 入库备注 text 16 1 药品入库明细表:2 入库明细编号 int 4 0 0 入库总表编号 int 4 0 0 药品名称 char 30 0 0 药品种类 c
15、har 10 0 0 计量单位 char 10 0 0 药品出厂日期 datetime 8 1 0 药品过期日期 datetime 8 1 0 进货日期 datetime 8 1 0 进货公司 int 4 1 0 药品单价 money 8 0 0 药品数量 int 4 0 1 药品总金额 money 8 0 药品出库表:2 编号 int 4 0 0 出库操作员 char 20 0 0 出库日期 datetime 8 0 0 出库药品名 char 25 0 0 出库药品种类 char 10 1 0 出库价格 money 8 0 0 出库数量 int 4 0 1 备注 text 16 1 药商表:
16、2 药商编号 int 4 0 1 药商公司名 char 30 0 药品库存表:2 编号 int 4 0 0 药品名称 char 25 1 0 药品种类 char 10 1 0 生产日期 datetime 8 1 0 过期日期 datetime 8 1 0 计量单位 char 10 1 0 药品进价 money 8 1 0 药品售价 money 8 1 0 药品数量 int 4 1 1 备注 text 16 1 药品入库功能界面:药品填写单界面:药品出库功能界面:药品管理流程图:4.44.4-模块 3 功能实现 住院管理功能实现:住院预交款,住院收费,医药管理,住院结算管理;所用的数据表:预交款
17、信息表:2 编号 int 4 0 0 交款姓名 char 20 1 0 预交金额 money 8 0 0 交款次数 int 4 0 0 交款日期 datetime 8 0 1 病房号 int 4 0 住院收费明细表:2 编号 int 4 0 0 病房号 int 4 0 0 收费名称 char 30 0 0 种类 char 10 0 0 数量 int 4 0 0 单价 money 8 0 1 金额 money 8 1 住院收费结算表:2 编号 int 4 0 0 病房号 int 4 0 0 病人姓名 char 20 0 0 收费日期 datetime 8 0 0 主治医生 char 20 0 0
18、 药费 money 8 1 0 手术费 money 8 1 0 病房费 money 8 1 0 其它费 money 8 1 1 总金额 money 8 1 出院结算信息表:2 编号 int 4 0 0 病房号 int 4 0 0 出院日期 datetime 8 0 0 住院总金额 money 8 0 1 找还金额 money 8 1 预交款信息功能界面:住院收费,划价，医药管理功能界面:出院管理功能界面:4.54.5-模块 4 功能实现 医务人员管理功能实现:医务人员注册,修改,维护,值班维护及各科室部门维护等 所用到的数据表:医务人员信息表:2 编号 int 4 0 0 姓名 char 20
19、 0 0 部门科室 char 20 0 0 职务 char 30 0 0 联系电话 char 15 1 0 星期 1 bit 1 0 0 星期 2 bit 1 0 0 星期 3 bit 1 0 0 星期 4 bit 1 0 0 星期 5 bit 1 0 0 星期 6 bit 1 0 1 星期 7 bit 1 0 医生表:2 编号 int 4 0 0 医生姓名 char 20 0 1 医生职务 char 25 0 工作休息代码表:2 编号 int 4 0 1 休息值 char 10 0 科室表:2 科室号 int 4 0 1 科室名 char 30 0 职务表:2 编号 int 4 0 1 职务
20、名称 char 20 0 医务人员管理功能界面:值班人员管理功能界面:科室维护功能界面:部门维护功能界面:4.64.6-模块 5 功能实现 院长查询管理:药品价格整体调价控制,单个药品调价控制,用户注册管理等功能;药品价格调价控制管理界面:用户注册界面:4.74.7-数据库 数据库所用到的数据表:CREATE TABLE 住院收费明细表(CREATE TABLE 住院收费结算表(CREATE TABLE 出院结算信息表(CREATE TABLE 医务人员信息表(CREATE TABLE 医生表(CREATE TABLE 工作休息代码表(CREATE TABLE 当日进帐表(CREATE TAB
21、LE 挂号类型(CREATE TABLE 挂号表(CREATE TABLE 病房状态表(CREATE TABLE 登陆表(CREATE TABLE 科室表(CREATE TABLE 职务表(CREATE TABLE 药品入库总表(CREATE TABLE 药品入库明细表(CREATE TABLE 药品公司表(CREATE TABLE 药品出库表(CREATE TABLE 药品库存表(CREATE TABLE 门诊收费明细表(CREATE TABLE 门诊收费结算表(CREATE TABLE 预交款信息表(能够对数据库进行备份，还原操作等功能;4.84.8-系统界面实现 系统界面主要是对各功能界
22、面实现中转,间接管理;系统功能界面:根据用户需求:增加了一个计算器,和简单记话本;用户登陆界面:第五部分第五部分 毕业设计心得体会及结论毕业设计心得体会及结论 在老师的指导下。本次毕业设计，就要画上一个句号了。可是，对我来说，这次设计的本身所产生的影响，还远远没有结束，我从本次毕业设计中学到了许多课本上没有的知识。从设计任务书的下达到今天基本实现任务书中的设计要求，时间已整整过去了 1 个月。在这 1 个月中。通过自己的学习和努力；通过各位老师的指导和教育，使我不仅仅在知识水平和解决实际问题的能力上有了很大的提高。还从思想的深处体会到，要把自己的所学变成现实时所将面对的种种难题。由于我平时的课
23、程理论知识学的还可以，我总是认为自己的知识水平已经能处理许多的现实问题了。而当自己真正的深入到设计实践当中,深入到问题当中时。我竟然发现自己无从下手，我开始怀疑我是否真正的学到了知识。也只有到了那个时候，我才真正体会到学会运用自己的能力与知识是何等的重要，知识是在课堂上，老师教授的，在书本中学到的，实践则是要自己动手，自己去做才能掌握。在老师们的关心和帮助下，我渐渐的开始了设计。根据老师的建议，我找来了数据库设计与建设的相关书籍和资料，从最基本的问题入手开始一个个的解决我心中的疑惑。这是一个漫长的学习过程。随着时间的推移，我开始慢慢的掌握了设计时所需要的知识。我也终于明白了大学三年学习的意义和
24、作用。扎实的基本功和良好的学习习惯，能使自己在学习新知识有更深刻的认识力和更快的领会力。同时老师对毕业设计的重视也是我能完成设计的一个重要条件。为了保证我们毕业设计的正常进行，学院抽调了优秀的老师指导我们进行毕业设计，提供良好的设备给我们，在软硬件上支持我们进行毕业设计，并且不时地询问我们毕业设计的进展情况。为我们这次设计的正常开展提供了必要的物质基础。关于本次设计的命题，我的设计只能提供其基本的功能。还有许多的设想由于时间和自身和因素无法得以实现，这不能不说是本次设计的遗憾之处。不过，至少它已经启发了自己的思维，提高了我的动手能力，这是我在课本中学不到的。它为我们在以后的工作岗位上发挥自己的
25、才能奠定了坚实的基础。第六部分第六部分 附录附录 6.16.1-代码部分代码部分 系统界面代码系统界面代码:unit main;interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ExtCtrls,ImgList,Menus,ComCtrls,ToolWin,jpeg,StdCtrls,DB,ADODB;type Tmain1=class(TForm)Panel1:TPanel;PageControl2:TPageControl;TabSheet5:TTabSheet
26、;StaticText5:TStaticText;GroupBox1:TGroupBox;label_gh:TLabel;Label_mzbagl:TLabel;Label_cxhbb:TLabel;GroupBox2:TGroupBox;Label1:TLabel;Label2:TLabel;Label3:TLabel;b_go2:TButton;GroupBox3:TGroupBox;RichEdit1:TRichEdit;TabSheet6:TTabSheet;TabSheet7:TTabSheet;TabSheet9:TTabSheet;TabSheet10:TTabSheet;Pan
27、el2:TPanel;PageControl1:TPageControl;TabSheet1:TTabSheet;Image1:TImage;TabSheet2:TTabSheet;TabSheet3:TTabSheet;StatusBar1:TStatusBar;ToolBar1:TToolBar;ToolButton1:TToolButton;ToolButton2:TToolButton;ToolButton7:TToolButton;ToolButton8:TToolButton;ToolButton6:TToolButton;ToolButton9:TToolButton;ToolB
28、utton5:TToolButton;ToolButton10:TToolButton;ToolButton4:TToolButton;ToolButton3:TToolButton;MainMenu1:TMainMenu;N11:TMenuItem;N1:TMenuItem;N2:TMenuItem;N3:TMenuItem;N4:TMenuItem;N21:TMenuItem;N5:TMenuItem;N6:TMenuItem;N7:TMenuItem;N27:TMenuItem;objectN17TMenuItem1:TMenuItem;N28:TMenuItem;N29:TMenuIt
29、em;N31:TMenuItem;N8:TMenuItem;N9:TMenuItem;N10:TMenuItem;N12:TMenuItem;N41:TMenuItem;N51:TMenuItem;N13:TMenuItem;N14:TMenuItem;N15:TMenuItem;N52:TMenuItem;N16:TMenuItem;N61:TMenuItem;N71:TMenuItem;N20:TMenuItem;N22:TMenuItem;N23:TMenuItem;N24:TMenuItem;N26:TMenuItem;N30:TMenuItem;N72:TMenuItem;N25:T
30、MenuItem;ImageList1:TImageList;Timer1:TTimer;b_go1:TButton;GroupBox4:TGroupBox;GroupBox5:TGroupBox;GroupBox6:TGroupBox;Image2:TImage;Image3:TImage;Memo1:TMemo;GroupBox7:TGroupBox;GroupBox8:TGroupBox;GroupBox9:TGroupBox;Label4:TLabel;Label5:TLabel;Image4:TImage;Image5:TImage;GroupBox10:TGroupBox;Grou
31、pBox11:TGroupBox;GroupBox12:TGroupBox;Image6:TImage;Image7:TImage;Image8:TImage;ToolButton11:TToolButton;ADOQuery1:TADOQuery;procedure FormClose(Sender:TObject;var Action:TCloseAction);procedure b_go1Click(Sender:TObject);procedure b_go2Click(Sender:TObject);procedure FormShow(Sender:TObject);proced
32、ure Timer1Timer(Sender:TObject);procedure jishibenclick(sender:tobject);procedure calculateclick(sender:tobject);procedure yaopinglclick(sender:tobject);procedure Image2Click(Sender:TObject);procedure menzhenglclick(sender:tobject);procedure Image3Click(Sender:TObject);procedure ToolButton9Click(Sen
33、der:TObject);procedure Image4Click(Sender:TObject);procedure Image5Click(Sender:TObject);procedure Label5Click(Sender:TObject);procedure ywryzbglclick(sender:tobject);procedure ToolButton8Click(Sender:TObject);procedure Image6Click(Sender:TObject);procedure Image7Click(Sender:TObject);procedure Imag
34、e8Click(Sender:TObject);procedure tuichuclick(sender:tobject);procedure N20Click(Sender:TObject);procedure N22Click(Sender:TObject);procedure ToolButton11Click(Sender:TObject);procedure N16Click(Sender:TObject);procedure ToolButton3Click(Sender:TObject);procedure N23Click(Sender:TObject);procedure N
35、26Click(Sender:TObject);private Private declarations public Public declarations end;var main1:Tmain1;implementation$R*.dfm uses mzgh,mzshg,login,book,calculate1,yaorukugl,yaochukugldan,ywrydj,ksgl11,zwgl11,zbgl11,zyxkgl11,zyglzong11,cygl11,yzgl11,mimagai11,yztjgl11,jinzhanggl11,dmshuju11,connect;pro
36、cedure Tmain1.FormClose(Sender:TObject;var Action:TCloseAction);begin application.Terminate;end;procedure Tmain1.b_go1Click(Sender:TObject);begin mzghd:=tmzghd.Create(application);mzghd.Show;end;procedure Tmain1.b_go2Click(Sender:TObject);begin mzshgf:=tmzshgf.Create(application);mzshgf.Show;end;pro
37、cedure Tmain1.FormShow(Sender:TObject);begin statusbar1.Panels0.Text:=:;statusbar1.Panels2.Text:=FormatDateTime(yyyy-mm-dd hh:nn:ss mmmm dddd,now);statusbar1.Panels1.Text:=+login.Form1.DBEdit1.Text;statusbar1.Panels3.Text:=;timer1.Enabled:=true;tabsheet5.Visible:=true;tabsheet6.Visible:=false;tabshe
38、et7.Visible:=false;tabsheet9.Visible:=false;tabsheet10.Visible:=false;tabsheet5.Caption:=;pagecontrol2.Refresh;end;procedure Tmain1.Timer1Timer(Sender:TObject);begin statusbar1.Panels2.Text:=FormatDateTime(yyyy-mm-dd hh:nn:ss mmmm dddd,now);end;procedure tmain1.jishibenclick(sender:tobject);begin bo
39、ok.jishiben:=book.Tjishiben.Create(application);if book.jishiben.ShowModal=mrok then begin book.jishiben.Memo1.Lines.SaveToFile(love.txt);book.jishiben.Free;toolbutton5.Down:=false;end;end;procedure tmain1.calculateclick(sender:tobject);begin calculate1.calculate:=calculate1.Tcalculate.Create(applic
40、ation);calculate1.calculate.Show;end;procedure tmain1.yaopinglclick(sender:tobject);begin if toolbutton7.Down then begin tabsheet6.Visible:=true;tabsheet5.Visible:=false;tabsheet7.Visible:=false;tabsheet9.Visible:=false;tabsheet10.Visible:=false;tabsheet5.Caption:=;pagecontrol2.Refresh;end;end;proce
41、dure Tmain1.Image2Click(Sender:TObject);begin yaorukugl.rukuf:=yaorukugl.Trukuf.Create(application);yaorukugl.rukuf.Show;yaorukugl.flag:=true;end;procedure tmain1.menzhenglclick(sender:tobject);begin if toolbutton2.Down then begin tabsheet5.Visible:=true;tabsheet6.Visible:=false;tabsheet7.Visible:=f
42、alse;tabsheet9.Visible:=false;tabsheet10.Visible:=false;tabsheet5.Caption:=;pagecontrol2.Refresh;end;end;procedure Tmain1.Image3Click(Sender:TObject);begin yaochukugldan.yaochukugl:=yaochukugldan.Tyaochukugl.Create(application);yaochukugldan.yaochukugl.Show;end;procedure Tmain1.ToolButton9Click(Send
43、er:TObject);begin if toolbutton9.Down then begin tabsheet9.Visible:=true;tabsheet6.Visible:=false;tabsheet7.Visible:=false;tabsheet5.Visible:=false;tabsheet10.Visible:=false;tabsheet5.Caption:=;pagecontrol2.Refresh;end;end;procedure Tmain1.Image4Click(Sender:TObject);begin ywrydj.register1:=ywrydj.T
44、register1.Create(application);ywrydj.register1.Show;end;procedure Tmain1.Image5Click(Sender:TObject);begin ksgl11.keshigldd:=ksgl11.Tkeshigldd.Create(application);ksgl11.keshigldd.Show;end;procedure Tmain1.Label5Click(Sender:TObject);begin zwgl11.zhiwugl:=zwgl11.Tzhiwugl.Create(application);zwgl11.z
45、hiwugl.Show;end;procedure tmain1.ywryzbglclick(sender:tobject);begin zbgl11.ywzbgl:=zbgl11.Tywzbgl.Create(application);zbgl11.ywzbgl.Show;end;procedure Tmain1.ToolButton8Click(Sender:TObject);begin if toolbutton8.Down then begin tabsheet7.Visible:=true;tabsheet6.Visible:=false;tabsheet5.Visible:=fal
46、se;tabsheet9.Visible:=false;tabsheet10.Visible:=false;tabsheet5.Caption:=;pagecontrol2.Refresh;end;end;procedure Tmain1.Image6Click(Sender:TObject);begin zyxkgl11.zyyjgl:=zyxkgl11.Tzyyjgl.Create(application);zyxkgl11.zyyjgl.Show;end;procedure Tmain1.Image7Click(Sender:TObject);begin zyglzong11.zyglz
47、ong:=zyglzong11.Tzyglzong.Create(application);zyglzong11.zyglzong.Show;end;procedure Tmain1.Image8Click(Sender:TObject);begin cygl11.cygl:=cygl11.Tcygl.Create(application);cygl11.cygl.Show;end;procedure tmain1.tuichuclick(sender:tobject);begin application.Terminate;end;procedure Tmain1.N20Click(Send
48、er:TObject);begin yzgl11.yhzcgl:=yzgl11.Tyhzcgl.Create(application);yzgl11.yhzcgl.Show;end;procedure Tmain1.N22Click(Sender:TObject);begin mimagai11.mimagai:=mimagai11.Tmimagai.Create(application);mimagai11.mimagai.Show;end;procedure Tmain1.ToolButton11Click(Sender:TObject);begin yztjgl11.yztjgl:=yz
49、tjgl11.Tyztjgl.Create(application);yztjgl11.yztjgl.Show;end;procedure Tmain1.N16Click(Sender:TObject);begin jinzhanggl11.jinzhanggl:=jinzhanggl11.Tjinzhanggl.Create(application);jinzhanggl11.jinzhanggl.Show;end;procedure Tmain1.ToolButton3Click(Sender:TObject);begin application.Terminate;end;procedu
50、re Tmain1.N23Click(Sender:TObject);begin dmshuju11.dmshuju.ADOQuery1.Close;/dmshuju11.dmshuju.ADOQuery1.connectionstring:=provider=sqloledb.1;persist security info=false;userid=sa;initial catalog=data;/Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=data;Data Source=.;Use
