连接两个文件中数据.docVIP

沈 阳 航 空 航 天 大 学 课程设计 学 号2009040301035 班 级 姓 名 张振男 指导教师 _刘学平___ 2010年 3 月 18 日沈阳航空航天大学 课程设计任务书 学院： 航宇 专业：飞行器制造 班级学号：2009040301035 题目：连接两个文件中的数据 一、课程设计时间 2011年3月7日~11日（第1周），共计1周。 二、课程设计内容 先创建两个任意内容的文本文件，将两个文件内容读出后进行连接生成一个新文件，最后显示新文件的内容。要求使用通用对话框控件(例如：ShowOpen和ShowSave方法),由用户选择文件保存或打开的位置和文件名称，后2项目功能要从文件中读取数据。 用户界面中的菜单至少应包括“创建文件”、“连接文件”、“显示新文件”、 “退出”4项。 三、课程设计要求 程序质量： 贯彻事件驱动的程序设计思想。 用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。 代码应适当缩进，并给出必要的注释，以增强程序的可读性。 课程设计说明书： 课设结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。 四、指导教师和学生签字 指导教师：________ 学生签名：________ 五、成绩 六、教师评语  目 录 需求分析 4 设计分析 4 关键技术 6 总结 11 完整的源程序 11 参考文献 15 需求分析 连接两个文件中的数据，主要有“创建文件”和“连接数据”2种功能。由于要求由用户选择文件保存或打开的位置和文件名称，所以要用到microsoft CommonDialog控件。要求： ①在部件中，添加microsoft CommonDialog以设置文件路径达到“浏览”和“另存为”2方面目的。 ②能够随时打开和写入数据。 ③能够随时清空数据。 ④能够显示连接后数据。 设计分析 基本原理：添加可以让文本框与电脑中任意数据连接的控件microsoft CommonDialog，用openshow语句在文本框中显示数据，再添加和更改数据，用opensave语句另存为电脑中任意位置 总体设计： （3）详细设计： 关键技术 1建立与文件的连接控件microsoft CommonDialog属性代如下 2“打开”“另存为”文件 （1）“打开” 程序段如下： Private Sub Command1_Click() CommonDialog1.Action = 1 打开“打开”对话框 Text1.Text = Open CommonDialog1.FileName For Input As #1 打开文件进行读取操作 Do While Not EOF(1) Line Input #1, inputdata 读一行数据 Text1.Text = Text1.Text + inputdata + vbCrLf Loop Close #1 关闭文件 End Sub （2）“另存为” Private Sub Command2_Click() CommonDialog1.FileName = default.txt 设置默认文件名 CommonDialog1.DefaultExt = txt 设置默认扩展名 CommonDialog1.Action = 2 打开“另存为”对话框 Open CommonDialog1.FileName For Output As #1 打开文件供写入数据 Print #1, Text1.Text Close #1 End Sub 3窗体及代码 Form1：启动窗体说明程序用途及一定的观赏性。 代码如下：Private Sub Command1_Click() Form1.Hide 隐含form1窗体 Form2.Show 显示form2窗体 End Sub Form2:程序运行后的总菜单。 Form3:创建文件的主窗体，可浏览，另存为，删除文件。 Form4:文件连接后的显示窗口，可删除，另存为和打印文件。 Form5:文件连接后出现的提示框，提示文件连接成功。 代码如下：Private Sub Command1_Click() Form5.Hide Form2.Show End Sub 总结 这次课设我的题目是连接两个文件中的数据，通过这