资源描述
会计学1Delphi程序设计及实验指导电子教案程序设计及实验指导电子教案-第第8章章第一页,编辑于星期六:五点 四十七分。第1页/共43页第二页,编辑于星期六:五点 四十七分。第2页/共43页第三页,编辑于星期六:五点 四十七分。第3页/共43页第四页,编辑于星期六:五点 四十七分。图8-3 窗体界面设计 第4页/共43页第五页,编辑于星期六:五点 四十七分。第5页/共43页第六页,编辑于星期六:五点 四十七分。第6页/共43页第七页,编辑于星期六:五点 四十七分。第7页/共43页第八页,编辑于星期六:五点 四十七分。第8页/共43页第九页,编辑于星期六:五点 四十七分。第9页/共43页第十页,编辑于星期六:五点 四十七分。第10页/共43页第十一页,编辑于星期六:五点 四十七分。第11页/共43页第十二页,编辑于星期六:五点 四十七分。图8-11 颜色对话框第12页/共43页第十三页,编辑于星期六:五点 四十七分。第13页/共43页第十四页,编辑于星期六:五点 四十七分。第14页/共43页第十五页,编辑于星期六:五点 四十七分。图8-13 打印对话框图8-14 打印设置对话框第15页/共43页第十六页,编辑于星期六:五点 四十七分。第16页/共43页第十七页,编辑于星期六:五点 四十七分。图8-15 “查找”对话框 第17页/共43页第十八页,编辑于星期六:五点 四十七分。第18页/共43页第十九页,编辑于星期六:五点 四十七分。图8-16“替换”对话框第19页/共43页第二十页,编辑于星期六:五点 四十七分。第20页/共43页第二十一页,编辑于星期六:五点 四十七分。第21页/共43页第二十二页,编辑于星期六:五点 四十七分。第22页/共43页第二十三页,编辑于星期六:五点 四十七分。图8-18 登录界面 第23页/共43页第二十四页,编辑于星期六:五点 四十七分。第24页/共43页第二十五页,编辑于星期六:五点 四十七分。nn := 系统管理;n ;n close;n endn elsen MessageDlg(密码错误,请重新输入!,mtError,mbOK,0);第25页/共43页第二十六页,编辑于星期六:五点 四十七分。nend;第26页/共43页第二十七页,编辑于星期六:五点 四十七分。第27页/共43页第二十八页,编辑于星期六:五点 四十七分。找”和“替换”对话框,使用“查找”对话框,用户不需要结束对话框,就可以重复查找一个字符串。n在Delphi中,显示无模式对话框应调用Show方法,该方法没有返回值,因为该方法并非等到对话框关闭时才返回,而是立即返回。第28页/共43页第二十九页,编辑于星期六:五点 四十七分。图8-25 无模式对话框界面第29页/共43页第三十页,编辑于星期六:五点 四十七分。第30页/共43页第三十一页,编辑于星期六:五点 四十七分。nAbuttons:TmsaDlgButton;HelpCtx:Longint):Word; 第31页/共43页第三十二页,编辑于星期六:五点 四十七分。第32页/共43页第三十三页,编辑于星期六:五点 四十七分。表8-4 Atype参数的取值取值说明mtWarning显示一个带有蓝色惊叹号的消息框mtError显示一个带有红色停止符号的消息框mtInformation显示一个带有蓝色“i”标志的消息框mtConfirmation显示一个带有绿色问号的消息框mtCustom消息框中没有位图,对话框的标题是应用程序执行文件名第33页/共43页第三十四页,编辑于星期六:五点 四十七分。表8-5 Abuttom参数的取值取值说明mbYes一个表面上显示“Yes”的按钮mbNo一个表面上显示“No”的按钮mbOk一个表面上显示“OK”的按钮mbCancel一个表面上显示“Cancel”的按钮mbHelp一个表面上显示“Help”的按钮mbAbort一个表面上显示“Abort”的按钮mbRetry一个表面上显示“Retry”的按钮mbIgnore一个表面上显示“Ignore”的按钮mbAll一个表面上显示“All”的按钮第34页/共43页第三十五页,编辑于星期六:五点 四十七分。图8-27 消息框第35页/共43页第三十六页,编辑于星期六:五点 四十七分。第36页/共43页第三十七页,编辑于星期六:五点 四十七分。表8-6 各按钮的返回值TMsgDlgBtn值返回值mbOKmrOkmbCancelmrCancelmbYesmrYesmbNomrNombAbortmrAbortmbRetrymrRetrymbIgnoremrIgnorembAllmrAllmbNoToAllmrNoToAllmbYesToAllmrYesToAll第37页/共43页第三十八页,编辑于星期六:五点 四十七分。第38页/共43页第三十九页,编辑于星期六:五点 四十七分。第39页/共43页第四十页,编辑于星期六:五点 四十七分。图8-28 显示结果第40页/共43页第四十一页,编辑于星期六:五点 四十七分。Filter属性为文本文件(*.txt),word文档(*.doc),如果打开文件不是文本文件,弹出一个出错消息框,出错信息为:“不是文本文件!”。设计窗体如图8-29所示,消息框如图8-30所示。第41页/共43页第四十二页,编辑于星期六:五点 四十七分。图8-29 窗体设计图8-30 消息框第42页/共43页第四十三页,编辑于星期六:五点 四十七分。
展开阅读全文