《科技大学C语言课程设计实验报告.pdf》由会员分享，可在线阅读，更多相关《科技大学C语言课程设计实验报告.pdf（105页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、华中科技大学计算机科学与技术学院 C语言程序设计课程设计实 验 报 告题 目：门 诊 病 历 信 息 管 理 系 统专业：计算机科学与技术_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _班级：C S 08 09 _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _学号：U 2008 1427 7 _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _姓名：_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _成绩：_ _ _ _ _ _ _ _ _
2、 _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _指导教师：卢萍_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _完成日期：2009年10月 8 日目录一、系统功能模块结构图.1二、数据结构设计及用法说明.1三、各模块的功能解析、程序结构、运行结果及部分流程图.2I 文件系统、辅助函数及欢迎界面.2n 录入信息.5m 修改信息.6w 插入信息.10V删除信息.13VI查询信息.14vn统计信息.15四、心得体会.17五、源代码及注释.18六、参考文献.103C语言课程设计实验报告CS以火陶权价一、系统功能模块结构图门
3、诊病历信息管理系统VH.文件系统一统计未门诊员工信息计各月询门诊信息查询病历信息.查询单位信息期除门诊信M删除病历信息*除单位信息插入门诊福入病历信息修改门诊信息修改病7信息修改单位信段录入门诊信息杀入单位信息VV二、数据结构设计及用法说明该系统的数据结构是采用十字交叉链表。十字交叉链表的模型如下:NULL单位病历门诊信息十字交叉链表C语言课程设计实验报告CS以火陶权价三个结构的声明如下：/*定义存储单位基本信息的结构*/typedef struct danweichar dd_num10;char d_name30;char d_person20;char d_tel12;struct da
4、nwei*next;/*单位编号*/*单位名称*/*单位负责人*/*联系电话*/*指向下一个单位结点*/struct bingli*b_head;/*指向病历信息链表头指针*/JDANWEI;/*定义存储病历基本信息的结构*/typedef struct binglichar bb_num10;char name10;char sex;char bd_name30;char bd_num10;char birthdayll;char*history;char tel12;char add30;struct bingli*next;/*病历编号*/*姓名*/*性别*/*所在单位*/*所在单位编号
5、*/*出生日期*/*药物过敏史*/*电话*/*住址*/*指向下一个病历结点*/struct menzhen*m_head;/*指向门诊信息链表头指针*/JBINGLI;/*定义存储门诊基本信息的结构*/typedef struct menzhenchar mb_num10;char md_num10;char kebie10;charchar zs30;char zd30;char yj3O;char doctor10;struct menzhen*next;MENZHEN;/*病历编号*/*所在单位编号*/*科别*/*门诊时间*/*主诉*/*初步诊断*/*治疗意见*/*医师姓名*/*指向下一
6、门诊信息结点*/三、各模块的功能解析、程序结构、运行结果及部分流程图整个系统有七大模块，除了主函数外，另外还有24个函数，除了实现上面模块结构图中的各个功能以外，还有读取键入值的函数int get_key();画边框函数void box(intstartx,int stary,int high,int width);和一 个欢迎界面的函数 void welcome(void);。各个模块的功能解析和程序的结构说明分别如下：I文件系统、辅助函数及欢迎界面2C语言课程设计实验报告CS以 火 陶权 价 欢迎界面 v o i d w e l c o m e(v o i d)；SB C:Userstao
7、Desktop课程设计tao.exe Welcome toThe clinic casehistori;infornation manage system Uersion 1.0.0Copyright 20092010By TaoSongqiao 2009/10/12 14:56:23Press any key to enter?本程序是由w i n t c编译。该界面调用了 d o s库里的g e t d a t e和g e t t i m e函数，d a t e和t i m e结构已在d o s.h中定义，可以读取系统日期和时间。首先将界面背景设为白色,字体设为蓝色，然后输出相应信息及系统
8、时间。最后使用g e t c h()函数，使得按任意键进入系统主界面。得到按键值int g e t _ke y()；要使程序得到键盘按键值，就要对按键进行扫描，通过查询键盘编码表，通过g e t _ke y函数返回按键的扫描码(即编码高位字节)。在g e t _ke y函数中，首先定义类型为R E G S的联合体r g,然后降高字节初始化为0,然后使用int 8 6函数寄存键值，最后输出高字节键值即扫描码。画边框函数 v oid b ox (int s t ar t x,int s t ar t y,int hig h,int w id t h)；该函数主要是在设计下拉菜单时使用，通过该函数画
9、出一个矩形框。换矩形边框时，先打印左上角，再打印上边线，再打印右上角，再打印左边线和右边线，最后打印左下角，下边线和右下角。s t ar t x s t ar t y hig h w id t h分别代表起始坐标和矩形边框的高度和宽度。C语言课程设计实验报告CS以火陶权价 导入文件 v oid load (D A N WE I *d _he ad)；该函数中声明了3个字符薪组，分别用来存储要导入的三个文件的路径名，即用户可以自己确定要导入的数据文件。如果用户输入的文件路径不对或者文件不存在，系统会提示用户重新输入或者退出。读入单位时，建立的是后进先出链表，最先保存的那个单位建立在链表的尾部；读
10、取病历时，先要找到对应的单位编号，然后建立后进先出链表；读取门诊时，先找到对应病历编号，然后同样建立后进先出链表。录入完毕，关闭三个文件。保存文件 v oid s av e (D A N WE I *d _he ad)；该函数有三个文件指针，分别指向三级信息要保存的文件。函数将整个系统的三部分数据分别保存在3个文件里面，而且也声明了 3个字符数组，用来存储文件名，即用户可以自己选择保存的路径和文件名。伏)显示信息 v oid s how (D A N WE I *d _he ad)；该函数可以将整个系统的而有信息显示出来。本函数新建立三个窗口，即先建立一个窗口输出单位信息，然后在原有窗口上建立
11、第二个窗口用来输出病历信息，最后在原有窗口上C语言课程设计实验报告CS以火陶权价建立第三个窗口用来输出门诊信息。当显示完一次门诊后按任意键清屏显示下一个门诊，当一个病历的门诊显示完之后，清屏显示下一个病历并显示其病历，当一个单位的病历显示完之后清屏显示下一个单位，当显示完所有信息后清屏按任意键退出。I I录入信息 录入单位信息D A N WE I *c r e at e l(v oid)；该函数是录入单位基本信息，建立第一级链表。建立该链表采用的是后进先出式，即输入的下一个单位的ne x t指针指向前一个单位，最后录入的那个单位作为链表的第一个单位。返回值为指向第个单位的指针。将每个单位的b
12、he ad指针赋值为空。效果如下:=1回I淤ISJ C:UserstaoDesktop 导星设计Xa d-inMod if y Ad d-in De le te Inquii*y Ca lc ula t ion He IpPle a se e nte r thex ore xit：000001001Ple a se e nte r thePle a se e nte r thePle a se e nte r thePle a se e nte r thePle a se e nte r thePle a se e nte r thePle a se e nte r thePle a se e
13、 nte r thePle a se e nte r thePle a se e nte r thePle a se e nte r thePle a se e nte r thePle a se e nte r thePle a se e nte r thePle a se e nte r thePle a se e nte r thenumb e r of v/orkunitle ngth10,e nte rna me of work unitle ngth：c spe ople re sponsib le for：zhe ngqia ngc onta c t te le phone：13
14、554151001numb e r of v/orkunitle ngth10,e nte rna me of work unitle ngth：ma thpe ople re sponsib le for：zha oe rc onta c t te le phone：13554151002numb e r of workunitle ngth10,e nte rna me of work unitle ngth：physic spe ople re sponsib le for：lisic onta c t te le phone：13554151003orornumb e r of wor
15、kunitle ngth10,e nte r x ina me of work unitle ngthxc he mistrvpe ople re sponsib le for：zha ngsa nc onta c t te le phone：13554151004ortonumb e r of workunitle ngth：xe xit：000001003e xit：000001004xe xit：000001002xXX 录入病历信息 B I N G L I *c r e a t e 2 (D A N W E I *d _h e a d)；本函数是在录入单位基本信息的基础上录册历基本信息
16、，建立第二级链表，如果未录入单位信息将自动退出。首先提示输入要录入病历信息的单位编号，然后找到对应的单位(如未找到则提示重新输入或退出)，如果该单位有多条病历输入，则建立一个先进先出链表。将单位最后一条病历的n e x t指针赋值为N U L L。如果该单位已经存在病历信息则提示退出，用户可以通过插入来输入病历信息。每条病历的m _h e a d指针都自动赋值为N U L L。输入病历信息时，不C语言课程设计实验报告CS以火陶权价必重新输入单位编号，单位名称，而通过s t r c p y函数将单位信息复制到病历结构中。当用户不在输入某一单位病历时，可自动通过循环提示输入下一个单位病历信息或者输
17、入X退出。录入门诊信息 M E N Z H E N *c r e a t e 3(D A N W E I *d _h e a d)；本函数是在录入单位信息及病历信息的襄础上建立的第三级链表，即门诊信息链表。同前，先找到对应的单位，然后再找到对应的病历，找到后先判断是否已经存在门诊信息，如果门诊信息不存在，则可建立一个先进先出链表，如果门诊信息已经存在，则提示用户可以使用插入函数来添加，并退出该函数。当然有些已知信息可以直接复制而不必重新输入。通过自身的循环可以选择录入某一单位某一病历的门诊信息，也可选择退出。m修改信息 修改单位信息 v o i d m o d i f y 1 (D A N W
18、 E I *d _h e a d)；本函数的功能是查找某一单位并修/该单位的某一项信息。首先提示用户输入要修改的单位编号，然后遍历第一级链表，找出对应的单位，然后提示用户输入要修改的某一项信息,修改后提示修改成功，并由用户选择继续修改还是退出。相应的流程图如下：C语言课程设计实验报告胡 陶 机 新C语言课程设计实验报告切 陶 女 轿C语言课程设计实验报告CS以火陶权价运行效果如下:修改病历信息 v o i d m o d i f y 2 (D A N W E I*d _h e a d)；该函数的功能是查找某一病历并修改该病历的某一项信息。同单位信息修改函数一样，需要查找所要修改的病历所在的单位
19、，然后查找出该病历。然后提示用户输入所要修改的某一项病历信.息，然后进行修改，修改成功后可修改其他病历或者退出。运行效果如下：修改门诊信息 v o i d m o d i f y 3(D A N W E I *d _h e a d)；该函数的功能是查找某一门诊并修改该门诊的某一项信息。同前，先便利链表找到门诊对应的单位，然后再找到对应的病历，最后根据门诊时间找出对应的门诊。让用户选择要修改的门诊选项，修改成功后，用户可以继续修改或者退出。在此期间如果出现找不到的情况,系统都会提示重新输入或退出。运行效果如下：C语言课程设计实验报告胡 陶 机 新Enter the num of the work
20、unit which the casebelongds to len gth ：000001001Enter the c a se s b_nun：u2008100Nun error 01*th is case not e x ist?p ress R to reenter,X to e x it?rEnter the c a se s b_nurn：u20081001Enter the tin e you wanna nodifynb_num!2-一nd_num S3 k eb ie；4一time i5 zhusu(6 chubuzhenduan 7 zh ilia o sfijia n ；
21、8 doctor：8Enter the new d o cto r：jiangm inContinue to modify inform ation of th is MENZHEN press 1,Continue to m odify oth er MENZHEN inform ation p ress 2,E xit press 3?IV插入信息 插入单位信息 D A N W E I *a d d l(D A N W E I *d _h e a d)；该函数的作用是在某个单位后插入一个新的单位信息。插入时，首先寻找要在其后插入的那个单位，然后输入要插入的单位信息，然后判断是不是在链尾插入
22、，调整链表指针的对应关系，插入成功后可继续插入或者退出。运行效果如下：相应的流程图如下:DANW 日*p=NULL,*other,*after;char d_num10;char flag;C语言课程设计实验报告胡 陶 机 新C语言课程设计实验报告切 陶 女 轿提示用户输入单位联系电话other-next=after;提示用户是否继续插入单位信息。flag2=输入的编号(1 代表继续插入，2 代表不再插入)。插入病历信息 B I N G L I *a d d 2 (D A N W E I *d _h e a d)；该函数功能是在指定的病历后插入一个新的病历。同插入单位信息一样，要先找到指定的单
23、位，然后找到指定的病历。如果病历信息链未建立，则直接输入第一个病历信息，如果已经建立，则在对应的位置插入病历信息。插入完成可继续插入或者选择退出。运行效果如下C语言课程设计实验报告CS以火陶权价 插入门诊信息 M E N Z H E N *a d d 3 (D A N W E I *d _h e a d)；该函数是在指定的门诊后插入一个新的门诊信息。同上，先找到指定的单位，然后找到指定的病历，最后根据门诊日期找到对应的门诊。如果门诊信息链未建立，则直接输入第一个门诊信息，如果已经建立，则在指定位置插入门诊信息。运行效果如下：V 删除信息 删除单位信息 D A N W E I *d e ll(D
24、 A N W E I *d _h e a d)；本函数是删除指定的一个单位信息。找到该单位后，先释放该单位下单位下的病历和门诊链，然后判断删除的单位是否是单位信息链的头部，如果是就将头指针指向下一个单位，如果不是，将前一个单位指向后一个单位，最后释放所要删除的单位。运行结果：C语言课程设计实验报告CS以火陶权价 删除病历信息 B I N G L I *d e l2(D A N W E I *d _h e a d)；本函数的功能是删除指定的一条病历信息。同前首先找出该病历，然后释放该病历的门诊信息链，然后再判断该病历是否是链表的头部，同前做出相应的操作。运行结果：删除门诊信息 M E N Z H
25、 E N *d e l3(D A N W E I *d _h e a d)；本函数的功能是删除指定的一条门诊宿息。同前首先找出该门诊，然后通过判断该门诊是不是头结点做出相应的操作，最后释放该节点。运行结果：V I查询信息 查询单位信息 void danweiinfo_inq(DANWEI*d_head)；该函数是为了查找某一个品位的基本信息:用户首先输入要查找的单位编号，然后找到后系统输出所要查找的单位信息。运行结果如下：查询病历信息 void bingliinfo_inq(DANWEI*d_head)；该 函 数 是 为 了 查 找 并 卧 某 一 个 病 历 暹 本 信 息，通过单位编号及
26、病历编号找出该病历，然后将病历信息依次显示。运行结果如下：C语言课程设计实验报告CS以火陶权价 查询门诊信息 void menzheninfo_inq(DANWEI*d_head)；同前该函数的作用是查找某一仃诊并显示该门疯言息，依次通过单位编号、病历编号、门诊日期找到该门诊，然后将其详细信息输出。运行结果如下：皿统计信息 统 年中各月的门诊量 void call(DANW曰*d_head);该函数的功能是统计一年中各月的门诊量，示且按照降序排序后输出。该函数首先定义一个二维整型数组m12,每行第一个位置存取月份，第二个位置存放该月门诊量，定义字符数组b，用于中间月份的转化。然后遍历链表，将门
27、诊月份的那两位字符存取到b中，然后利用atoi函数将其转化为整型，那么则将m中对应的月份的门诊量加一，循环直至遍历所有门诊。然后利用冒泡排序法对二维整型数组进行降序排序，排序时大小比较按照第二列，但整行要互换。最后将排序后的结果按顺序输出。运行结果如下：C语言课程设计实验报告胡 陶 机 新OB C:UserstaoDesktoptaotao.exeF i 1 ft R ftart-i n Mnd i f u A H H-i n DR 1 T nm i i u：a lc ula t ionHe IDEue rymonth579101112MENZHEN23Ab ovePre ssQ2221110
28、0000011Oat ion you(-)统计各单位员工的总门诊量void cal2(DANW日*d_head);该函数的功能是统计各单位员工的总门诊量二并且按照降序排序后输出显示。该函数首先定义一个存储单位员工总门诊量的结构mis t,该结构中包括单位编号、单位名称、总门诊量及指向下一个单位的指针。然后遍历单仓链表，同时创建统计门诊量的链表，将单位信息拷贝到新建结构中，然后遍历该单位各病历的门诊，统计门诊量并存储到新建结构中。然后对mist链表进行降序排列，排列时采用的是交换节点的方法。最后将排序后的各单位门诊量按几大到小顺序依次输出。运行结果如下：S8 C:UserstaoDesktopt
29、aotao.exeHe IpI FilRe a d-inMod ify Ad d-inD e le te:a lc ula t ion|Eue vy workunit,s Tota l outpa tie nts a re000010040000100100000100200001003la wc sma thphysic sAb ove a re the a ll informa tion you wa ntPre ss a ny ke y to e x i t.S6210oatf o llows：In(iuii*us e e.列出从未门诊的员工基本信息void cal3(DANW日*d_h
30、ead);该函数的功能是列出从未门诊的员工的基本信息，即找出门诊链为空的病历，并将其信息输出。该函数首先遍历链表，找出门诊链为空的病历，然后将其信息输出，每当显示完两条病历信息时，提示用户按任意键进入下一页，则将在原有窗口基础上新建一个同样大小的窗口继续输出未门诊病历信息，相当于翻页。最后提示信息输出完毕，可以输出从未门诊的员工的个数，按任意键退出该函数。C语言课程设计实验报告CS以火陶权价运行效果如下:四、心得体会这是我进入大学以来的第一次大型的并且与专业相关的作业，完成它我前后花费将近两个月的时间，虽然付出了很大的精力，但很值得，收获颇丰。第一次接到这样的作业，刚开始非常迷茫，感到无从下手
31、。虽然很努力地学习了一个学期的C语言，但真到学以致用之时却力不从心。回到家我并没有立即去做课设，而是又仔细地将C语言课本从头到尾又看了一遍，尤其是仔细地看了指针和文件的内容，因为学的时候不是太清楚。然后又大概将谭浩强的C语言程序设计浏览了一遍，感觉对C语言有了更深的理解。接着拿起放假前买的那本C语言课程设计看起来，但我发现这本书里介绍的都是一些很简单的小型程序的设计，例如通讯录，但还是只有很少的功能。但学习都是由易到难的，因此我就先学习了一下这本书里的内容，如统计工资、职工档案及简明信息的生成、链表信息管理、学生成绩管理系统等。在学习中，我更加体会到C语言的伟大之处，并且对结构和链表有了进一步
32、的理解。C语言课程设计实验报告CS以火陶权价正式开始做这次课设大概是8月19日，这次我又仔细地读了一下C语言课程设计任务书。第一个出现在我面前的问题是采用简易菜单还是文本菜单的形式，这也是决定代码简单还是复杂的问题。由于对文本菜单充满好奇，并且想自我挑战一下，我决定采用文本菜单的形式。然后查询了一些书籍和网站，对turboC的图形菜单有了一-定得了解。然后我就开始规划我的系统模块，考虑到时间问题和老师的要求及系统的实用性，我将整个程序分成了七大模块、24个函数。由于我使用的是Vista系统，turoc2.0无法使用，经朋友推荐我选择了 wintc编译软件，该软件有两大优点：1.在WINDOWS
33、下编辑TC代码，可以充分利用WINDOWS的支持剪贴版和中文的特点2.lnclude和Lib路径自动定位，告别TC设置路径的历史。选择好了编译系统，然后就是设计函数了。由于是文本菜单，自然要有一个函数来接收键盘的按键值。通过查询网络，并查阅汇编语言的一些相关知识，最后终于把函数搞出来。可是运行的时候敲击回车键无反应，可我回车键的编码没搞错呀，经过再三审查，原来是我没有弄清楚扫描码与扩展码之间的关系。将回车键的键码修改以后，程序立即按找预期效果运行，心中成就感油然而生。在确定结构时，我也多次修改三个结构里的内容，以便某些函数例如查询修改函数的需要。链表的基本操作例如创建修改插入删除功能已经学过，
34、自然写得很快，但其间也出现不少问题，主要还是回车键的处理问题。由于函数中大部分变量为字符串，那么接收数据时很容易忽略回车键，经过仔细的反复修改，程序终于调试运行成功。在写查询函数时也是很轻松的。但是在写统计函数时，又遇见了不少问题。例如排列月份的门诊量，我最先想到的是用结构，但过于复杂，我最终选择使用二维整型数组，利用循环将各月门诊量统计，然后利用冒泡排序法进行输出。在统计各单位门诊量时，由于变量类型不一-致，我决定使用结构，最终通过排列结构也顺利实现函数功能。然后面临的一个问题是函数输出的美观性问题，例如在显示全部信息时犯了难。由于信息较多，无法一次数完，然后想着建立三个窗口分别输出各个结构
35、的内容，而且要按照输完一个单位的全部信息后在输出其他单位，输完一个病历的所有信息后再输出其他病历的信息的原则，这样我就要按顺序清屏和输出信息，并且要提示用户换页。这个问题解决了，统计未门诊病历的信息时也按照相似方法得到了解决。然后我不断调节系统的美观性，如换行的控制，屏幕背景颜色的调节以及字体颜色的调节。另外，我也为系统增添了一些附加功能，如在欢迎界面里我利用课本介绍的dos库函数调用了系统的时间。当然，该系统还有很多缺点，例如由于使用的是wintc编译系统，自身不能识别中文的输入与输出，我只好在整个程序中使用英文，在这个方面金山词霸帮了我不少忙。一个大型的程序要考虑的问题是很多的，并且对用户
36、每次输入的数据要有全面的考虑，因此，在程序中要始终从用户的角度考虑系统的完善性。这就要求考虑问题要全面，自然也增加对用户的引内容及代码的长度。通过这次课设，我认为自身得到了很大提高。我变得更加细心认真，考虑问题更加全面，解决一个大问题更加有针对性和步骤性，并且能把问模块化，步步为营，最终顺利完成任务，体会到成功的喜悦。因此，我要感谢老师给予我们一次锻炼自己的机会，让我们能在完成作业中更加灵活的使用所学知识，让我们能在解决问题中不断提高自身做事和做人的能力。五、源代码及注释#include#include#include#include/*输入/输出函数*/*一般的使用函数*/*进程处理函数*/
37、*调 用dos库中时间函数*/18C语言课程设计实验报告CS0粉陶柩价#include#include#include#include#include#include#define key_down#define key_up#define key_esc/*图形函数*/*字符串函数*/*内存操作函数*/*字符操作函数*/*动态地址分配函数*/8 0/*向下箭头键*/72/*向上箭头键*/1/*ESC 键*/#define key_alt_x 45/*Alt+X*/#define key_enter 28/*Enter*/#define key_alt_f 33/*Alt+F*/#define
38、 key_alt_r 19/*Alt+R*/#define key_alt_m 50/*Alt+M*/#define key_alt_a 30/*Alt+A*/#define key_alt_d 32/*AI+D*/#define key_alt_i 23/*Alt+l*/#define key_alt_c 46/*alt+C*/#define key_alt_h 35/*Alt+H*/*定义存储单位基本信息的结构*/typedef struct danweichar dd_num10;char d_name30;char d_person20;char d_tel12;struct danw
39、ei*next;/*单位编号*/*单位名称*/*单位负责人*/*联系电话*/*指向下一个单位结点*/struct bingli*b_head;/*指向病历信息链表头指针*/DANWEI;/*定义存储病历基本信息的结构*/typedef struct binglichar bb_num10;char name10;char sex;char bd_name30;char bd_num10;char birthdayfll;char history30;char tel12;char add30;/*病历编号*/*姓名*/*性别*/*所在单位*/*所在单位编号*/*出生日期*/*药物过敏史*/*电
40、话*/*住址*/C语言课程设计实验报告切陶女轿struct bingli*next;/*指向下一个病历结点*/struct menzhen*m_head;/*指向门诊信息链表头指针*/BINGLI;/*定义存储门诊基本信息的结构*/typedef struct menzhenchar mb_num10;char md_num10;char kebie10;char timell;char zs30;char zd30;char yj30;char doctor10;struct menzhen*next;MENZHEN;/*函数声明*/*病历编号*/*所在单位编号*/*科别*/*门诊时间*/*
41、主诉*/*初步诊断*/*治疗意见*/*医师姓名*/*指向下一门诊信息结点*/void welcome(void);/*欢迎界面*/int get_key();/*读取键入值函数*/void box(int startxjnt starty,int high,int width);/*画边框函数*/void load(DANW曰*d_head);/*读入链表*/void save(DANW日*d_head);/*保存链表*/void show(DANW日*d_head);/*显示所有信息*/DANW 日*createl(void);BINGLI*create2(DANWEI*);MENZHEN*
42、create3(DANWEI*);void modifyl(DANWEI*);void modify2(DANW曰 *);void modify3(DANWEI*);DANW日*addl(DANW日 *);BINGLI*add2(DANWEI*);MENZHEN*add3(DANWEI*);DANW曰*dell(DANW曰*);BINGLI*del2(DANW曰 *);MENZHEN*del3(DANW曰 *);/*单位基本信息录入函数*/*病历基本信息录入函数*/*门诊信息录入函数*/*单位基本信息修改函数*/*病历基本信息修改函数*/*门诊修改函数*/*插入一条单位基本信息函数*/*插入一
43、条病历基本信息函数*/*插入一条门诊信息函数*/*删除一条单位基本信息函数*/*删除一条病历基本信息函数*/*删除一条门诊信息函数*/void danweiinfo_inq(DANWEI*d_head);/*查询某一单位基本信息*/C语 言 课 程 设计实验报告CS以火陶权价void bingliinfo_inq(DANW曰*d_head);/*查询某一病历基本信息*/void menzheninfo_inq(DANWEI*d_head);/*查询某一门诊基本信息*/void call(DANW曰*);void cal2(DANW曰*);void cal3(DANW日*);/*统计一年中各月的
44、门诊量，并按降序排序后输出*/*统计各单位员工的总门诊量，并按降序排序后输出*/*列出从未门诊的员工基本信息*/*各个下拉菜单中要打出的内容*/char*menu=File,Read-in,Modify,Add-in,Delete,lnquiry,Calculation,Help;char*red=F,R,M,A,D,l,C,H;char*F=Load file,Save file,Show info,Quit alt_x;char*R=DANWEI info,BINGLI info,MENZHEN info;char*M=DANWEI info,BINGL info,MENZHEN info
45、;char*A=DANWEI info,BINGL info,MENZHEN info;char*D=DANWEI info,BINGL info,MENZHEN info;char*I=DANWEI info7BINGL info7MENZHEN info;char*C=Geyue Menzhen,Gedanwei Menzhen,Weimenzhen info;char*H=File,Read-in,Modify,Add-in,Delete,Inquiry,Calculation,About;char buf18*10*2,bufl17*2;void main()(DANWEI*d_hea
46、d=NULL;int i,key,x,y,l;textbackground(BLACK);clrscr();welcome();clrscr();while(l)(/*设置屏幕背景颜色，并清除屏幕*/textbackground(LIGHTGREEN);clrscr();/*创建窗口用于显示菜单栏*/window(lzl,80,l)；/*设置文本属性：白底黑字*/textbackground(WHITE);/*白色背景*/textcolor(BLACK);/*黑色字体*/clrscr。;/*清屏*/window(l,l,80;l);clrscr。;/*清屏*/*显示菜单*/回21C语言课程设计
47、实验报告切 陶 女 轿for(i=0,l=0;i8;i+)/*保存菜单第一个字母的位置，后面要用红色再打一次菜单的第一个字母*/x=wherex();/*当前光标X 坐 标*/y=wherey();/*当前光标Y 坐 标*/*打印输出菜单*/cprintf(%s,menui);l=strlen(menui);gotoxy(x,y);/*用红色输出菜单的第一个字母*/textcolor(RED);cprintf(%s,redi);x=x+l+3;gotoxy(x,y);/*将文本颜色修改为黑色*/textcolor(BLACK);)x=0;key=0;while(bioskey(l)=0);/*
48、等待键盘输入*/*取得按键7key=get_key();/*Alt+X 退出程序*/if(key=key_alt_x)exit(O);/*Alt+F 显示File下拉菜单*/if(key=key_alt_f)/*设置文本属性：黑底白字*/textbackground(BLACK);textcolor(WHITE);/*打印输出File*/gotoxy(2,l);cprintf(%s,menuO);/*备份将要被File下拉菜单窗口覆盖的区域到内存buf*/gettext(4,2,20,7;buf);/*创建File下拉菜单窗口*/window(4,2,19,7);/*设置文本属性：白底黑字*/
49、textbackground(WHITE);textcolor(BLACK);clrscr();/*画边框*/C语言课程设计实验报告切 陶 女 轿window(4,2,20,7);box(l,l,6,16);/*打印输出下拉菜单*/for(i=2;i6;i+)(gotoxy(2,i);cprintf(%s,Fi-2);/*备份下拉菜单的第一项到内存b u fl,然后用黑底白字(表示选中)打印输出第一项gettext(5,3/20,3,bufl);textbackground(BLACK);textcolor(WHITE);gotoxy(2,2);cprintf(%s,FO);/*处理按键7y=
50、2；key=get_key();while(key!=key_alt_x&key!=key_enter&key!=key_esc)/*上下键*/*用内存b u fl恢复当前菜单项，并备份将要被选中的菜单项到b u f l,然后用黑底白字打印输出将要被选中的菜单项*/if(key=key_up|key=key_down)puttext(5,y+l,20,y+l,bufl);/*恢复之前黑底白字的项到白底黑字*/if(key=key_up)y=y=2?5:y-l;/*如果往上，到了最上面跳到最下面*/if(key=key_down)y=y=5?2:y+l;/*如果往下，到了最下面跳到最上面*/ge