delphi实验指导书.doc

实验一 认识熟悉delphi编程环境目的与要求：1、熟练掌握delphi编辑环境的安装和调试；2、熟练地调整窗体和控件的大小与位置；3、熟练掌握在窗体上放置控件的方法；4、掌握窗体、命令按钮、文本框和标签对象的常用属性、方法和事件；5、熟练使用属性窗口设置对象的初始属性；内容与步骤：1、 在窗体上创建新控件的方法 鼠标单击“控件面板”中的控件类型图标，在窗体上按下鼠标左键，然后释放左键，新控件即创建完毕；按住键盘上的SHIFT键不放，鼠标单击“控件面板”中想要的控件类型图标，在窗体上多次按下鼠标左键，然后释放左键，可重复放置多个同一类型的新控件；单击“控件面板”左上角的箭头形图标，鼠标指针还原为箭头形；双击“控件面板”中控件类型图标，即在窗体中央位置新建一个该类型的控件；在一已有控件上单击，选定该控件，用复制与粘贴可生成多个控件；2、 调整窗体和控件的大小与位置在设计状态下选择对象的方法：单击；按住CTRL或SHIFT键单击；在窗体无控件处按下鼠标左键并拖动，形成一个虚线框，释放左键；单击窗体上无控件处，可选择窗体对象；调整窗体与控件大小和位置的方法：被选定的控件周围有八个选定控点，拖动任一控点都可以调整其大小，拖动窗体对象右下方三个控点可以调整窗体的大小；单击并拖动控件的内部区域可以在窗体上移动控件；要调整窗体在运行时显示在屏幕上的位置，可以使用属性窗口来设置其Top和Left属性值，也可以使用窗体布局窗口来调整；使用属性窗口设置窗体和控件属性的值也可以调整其大小；3、 窗体、命令按钮、文本框和标签控件的常用属性、事件和方法窗体：属性Name、Caption、Left、Top、Width、Height、Enabled、Visible、BorderStyle、Icon、WindowState方法Cascade、Next、Previous、Close事件OnCreate、OnShow、OnHide、OnCanResize命令按钮：属性Name、Caption、Left、Top、Width、Height、Enabled、Visible、Default、Cancel方法Create、Destroy事件OnClick单行文本编辑框：属性Name、Text、Left、Top、Width、Height、Enabled、Visible、PasswordChar、ReadOnly、SelText、TabOrder方法Create、Destroy事件OnChange标签: 属性Name、Caption、Left、Top、Width、Height、Enabled、Visible、BorderStyle、Autosize、WordWrap方法Create、Destroy事件OnClick、OnDblClick4、使用属性窗口设置对象的属性首先选择要设置属性的对象，在属性窗口中会列出选定对象的大部分属性，属性名称在左，属性值在右，设置属性值的方法会因属性的不同而不同，可以直接在属性值的位置上输入文字或数字，或从属性值中选择，或双击属性名，属性值会在几个允许的值之间切换；5、 编制一程序，在屏幕上显示“欢迎您使用Delphi”，并输入你的名字，屏幕设计的界面如图所示。提示：程序中用到两个标签框和一个文本框和一个按钮，标签框显示所需的文字，文本框用于输入你的姓名，对于两个标签框内的字号大小等属性可在标签的属性窗口中改变。点击按钮，显示信息：欢迎XX使用Delphi。（使用showmessage函数实现即可）。6、InputForm窗体设计界面如图所示，界面上包含五个标签（Label），用于显示输入提示信息，两个文本框（Edit），分别用于输入姓名、工龄；二个组合列表框（ComboBox），分别用于选择职称和部门的输入内容；三个按钮（Button），分别用于清除、显示和退出程序。提示：职称包括：助教、讲师、副教授、教授。部门包括：计算机、数理、师范、机械、电子。点击显示出输入的教师的基本信息情况。（可以用showmessage或messageDlg等函数进行拼接显示）7、ChangeForm界面设计如下所示，要求实现只能在edit中输入数字，如输入其他的字符，则给出提示信息，要求重新输入。提示：可以利用edit组件的onchange事件，对输入的字符做检查，如不是数字，则给出提示信息。要求重新输入。可以用rightstr函数对edit中刚刚输入的字符截取，进行检查如：Rightstr（edit1.text,1）。8、DoubleForm界面设计如下所示，此界面为form1，另外新建一个form，命名为form2，专门用于显示从form1中选择的内容。提示：从form1中调用form2显示。可以用form2.show或者form2.showmodal。（两者的区别在哪里？）实验二 常用组件为了提高上机效率，请按照实验要求，在上机前设计好界面，编制好所需程序，仔细检查程序中可能出现错误的地方，并选择好调试程序的数据，给出预期的输出结果。根据各人程度不同，可选择实验中部分内容进行练习。目的与要求：1、掌握建立、编辑、运行一个简单的Delphi应用程序的全过程；2、掌握常用控件(文本框、标签、命令按钮)的应用；3、掌握常用各种控件的属性、方法、事件的设置和编写；内容与步骤：1、 用户身份验证。接收用户输入的用户名和口令，进行验证，根据输入是否正确显示相应的提示信息。提示：程序中可以定义两个常量用于存放username和password，以检验用户输入的正确与否。2、 编一个华氏温度与摄氏温度之间的转换程序，界面自己设计。用命令按钮实现转换。即单击“转为华氏”按钮，则将所输入的数据转为华氏温度；同样，单击“转为摄氏”按钮，则将所输入的数据转为摄氏温度。需要用到的转换公式为：F=C+32 C=(F-32)其中F为华氏度，C为摄氏度。3、 输入二次方程ax2+bx+c=0的系数a、b、c，计算并输出该二次方程的两个根x1、x2。界面设计请自己考虑。要求：(1)输入a、b、c三个数，为了程序设计的方便可由三个文本框来实现。计算的结果可通过文本框或Showmessage过程显示。(2)为了保证程序运行的正确，对所输入的三个数要进行检查，若发现输入的数中有非法数据，则显示出错信息，利用SetFocus方法定位于出错的文本框处，以便重新输入。4、 设置文本的对齐方式和字体样式。界面如下图所示提示：设置字体样式和对齐方式请参考object inspector中的font属性值。5、 编程实现如下功能。界面如下所示：要求：可以完成插入、删除、清除和追加等功能。并能完成各多选框的功能。6、 输入x、y、z三个数，按从大到小的次序显示。要求：提示：若输入的数有非数字字符，显示“不能转换成数值”，提示再输入。当输入的三个数全部是数字字符后再转换成数值型，然后进行大小比较。7、 编程实现如下定时器的功能。界面如下图所示：提示：注意timer组件的interval属性的设置。8、 设计一个不带优先级的计算器。界面如下图所示:提示：用文本框edit1显示所输入的表达式，用edit2显示第二个操作数和运算结果，用全局变量result保存最近一次运算结果，用全局变量op保存最近输入的运算符；每一个数字字符就连接成第二个操作数，输入新运算符后将第二个操作数按保存在op中的最近运算符与上一次结果result进行运算，再将新运算符保存至op，新运算结果保存至result，然后输入新一轮的操作数与运算符。附加题：电话收费标准如下：通话时间在3分钟以下，收费0.50元；3分钟以上，则每超过1分钟加收0.15元；在7：0019：00之间通话者，按上述标准全价收费；在其他时间通话者，一律按收费标准的半价收费。试计算某人在T时间通话S分钟，应收多少电话费。运行界面如图所示。提示：(1)时间可以通过文本框输入，也可通过Time时间函数求得当时机器内的时间。通话时间通过两个时间相减得到，相减时可以将开始、结束的时间化成以秒为单位再相减。可以用时间函数。(2)为了简化程序，以开始通话的时间为准判定是否享受半价收费的计费方法。(3)当在通话结束文本框内输入时间后按回车，即开始计算时间和费用。2、编制程序，计算某个学生奖学金的等级，以三门功课成绩M1、M2、M3为评奖依据。奖学金评奖标准如下：一等奖：符合下列条件之一：(1)平均分大于95分者(2)有两门成绩是100分，且第三门功课成绩不低于80分者。二等奖：符合下列条件之一：(1)平均分大于90分者(2)有一门成绩是100分，且其他功课成绩不低于75分者。三等奖：各门功课成绩不低于70分者。符合条件者就高不就低，只能获得高的那一项奖学金。要求显示获奖的等级。 实验三 菜单设计目的与要求：1、掌握建立、编辑、运行一个Delphi菜单设计的全过程；2、掌握mainmenu和popmenu的使用；3、掌握常用菜单控件控件的属性、方法、事件的设置和编写；内容与步骤：1动态创建一个字号菜单用于设置edit1中的字号大小。 要求：能够随字号菜单选择edit1中的字号。2在ToolBar上添加按钮，并在按钮上显示图标的字号大小。 实验四 窗体设计目的与要求：1、掌握建立、编辑、运行一个窗体设计的全过程；2、掌握MDI窗体的使用；3、掌握对子窗体的管理；内容与步骤：1、 建立MDI应用程序。如下图所示，提示：要求完成菜单的各项功能。实验五 对话框设计目的与要求：1、掌握建立、编辑、运行对话框设计的全过程；2、掌握各种对话框组件的使用；内容与步骤：1、各种dialog的使用。如下图所示： 提示：完成各项按钮功能。实验六 图形及多媒体应用目的与要求：1、掌握建立、编辑、运行图形和多媒体应用程序的全过程；2、掌握各种图形和多媒体组件的使用；内容与步骤：1、 播放windows内部动画。界面如下图所示：提示：选择某一种类型，在下面的animate组件中显示相应的动画。2、 设计一个简单的媒体播放器。界面如下图所示：提示：只能播放.avi格式。实验七 数据库管理系统设计目的与要求：1、了解和熟悉数据库管理信息系统的整个设计过程2、能够应用delphi 环境编制数据库管理系统的程序模块；内容与步骤：人力资源管理系统采用delphi 7、sql server 2000作为设计平台。数据库应用人力资源管理系统自带数据库。步骤： 1）在delphi中选择“File”/“New”/“Data Module”菜单项，新建一个数据模块，命名为“Data1”。2）在“ADO”组件页中选择“TADOConnection”组件，添加到窗体上，“TADOConnection”组件用来连接数据库，其他数据库组件通过它连接数据库。3）选择“ADOConnection”组件，在“Object Inspector”窗口中，单击“ConnetcionString”属性右侧的“”按钮，选择“Use Connection String”，单击“Build”。4）在弹出的对话框中的“提供程序”选项卡中设置希望连接的数据，在此选择“Microsoft OLE DB Provider for SQL Server”，点击“下一步”。5）在“连接”选项卡上，设置选中“输入登录服务器的信息”，在“在服务器上选择数据库”为db_manpowerinfo，点击测试连接，如果连接成功，则提示成功，单击“确定”按钮完成数据库的连接。6）在Data1上放置一个ADOQuery，命名为“ADOlogin”，将其“Connection”属性设置为“ADOConnection1”。7）新建一个窗体，命名为“frm_login”,设置“Caption”属性为“登录”，设置“positon”属性为“poScreenCenter”。8）在frm_login窗体上，放置两个label组件，两个edit组件，两个button组件分别命名为label1、label2、edit1、edit2、button1、button2。属性设置如下：组件名称所在组件页属性值Label1StandardCaption用户名Label2StandardCaption密码Edit1StandardText空Edit2StandardTextPasswordChar空*Button1StandardCaption登录Button2StandardCaption取消在frm_login后台代码中进行编程，实现程序登录过程。以下请同学自主完成。主窗体中主要控制方式是通过菜单和工具栏按钮来调用子菜单。步骤：1） 新建一个窗体，命名为“frm_main”，设置窗体的Caption属性为“人力资源管理系统”，windowsstyle属性为“wsMaximized”。2） 在“Standard”组件页中选择“TmainMenu”组件，添加到窗体上，双击该组件进行菜单添加；3） 在win32组件页中选择TCoolBar组件，添加到窗体上；4） 在win32组件页中选择TToolBar组件，添加到TCoolBar组件上；5） 在“Additional”组件中选择TSpeedButton组件，添加到TToolBar组件上，设置Caption属性；6） 在Win32组件页中选择TStatusBar组件，添加到窗体上，双击该组件，为其添加项；7） 在Standard组件页中选择TPanel组件，添加到窗体上，设置“BevelInner”属性为“bvSpace”，设置“BevelOuter”属性为“bvLowered”，设置“Align”属性为“alClient”；8） 在Additional组件页中选择“TImage”组件，添加到“Panel1”组件上，设置“Align”属性为“alClient”，设置“Stretch”属性为“Tree”；9） 在Dialog组件页中分别选择“TOpenDialog”和“TSaveDialog”组件，添加到窗体上。 在窗体的OnShow事件中增加，并当窗体首次启动时动态创建登录窗体，代码如下：Procedure Tfrm_main.FormShow(Sender:TObject);Begin Log:=0; Application.CreatForm(Tfrm_login,frm_login); Frm_login.showmodal; Frm_login.free;End; 通过主菜单下“记事本”按钮调用记事本，代码如下： Procedure Tfrm_main.N57Click(Sender:TObject);Begin ShellExecute(handle,open,notepad.exe,Nil,Nil,SW_SHOWNORMAL);END; 在delphi中调用函数ShellExecute需要在uses中加入ShellAPI单元。其他部分，请同学自行完成。工资条报表设计：1）在“Rave”组件页中选择“TRvProject”组件和“TRvDataSetConnection”组件，添加到窗体上。2）设置“TRvDataSetConnection”组件的Dataset属性为“data1.gzt”,双击TRvProject组件打开“Reva”报表设置器；3）选择File-New Data Object 菜单项，创建一个“New Data Object”；4）选中“Direct Data View”选项，单击“Next”按钮；5）单击“Finish”完成；6）在报表设计器的“Repore”组件页中选择“Repore”组件，添加到报表页中；7）在“Repore”组件页中选择“Band”组件，添加到“Repore”组件上，然后在“Standard”组件页上选择“Text”组件，放在“Band”组件上，设置“Text”属性为“工资条”；8）在“Repore”组件页中选择“DataBand”组件，添加到“Repore”组件上，设置“DataView”属性为“DataView1”；9）在“Band”组件页中选择“Text”组件，添加到“DataBand”组件上，设置“Text”属性为表中的字段名；10）在“Repore”组件页中选择“DataText”组件，添加到“DataBand”组件上，设置“DataView”属性为“DataView1”，设置“DataField”属性为要显示的字段名；11）设计完成，可以单击“Execute Report”按钮预览按钮；12）保存报表到工程文件夹下，在这里我们保存为“gzt.rav”，在Delphi中，选中“TRvProject”组件，单击“ProjectFile”属性右侧的“”按钮，找到“gzt.rav”文件并打开；13）通过“TRvProject”组件的Execute方法调用报表，如“RvProject1.Execute”。工作证报表设计：1）在“Rave”组件页中选择“TRvProject”组件和“TRvDataSetConnection”组件，添加到窗体上