DELPHI程序设计报告--孙敏
- 格式:doc
- 大小:95.00 KB
- 文档页数:6
竭诚为您提供优质文档/双击可除delphi实践报告篇一:DeLphI实践报告实习报告书引言题目:delphi学院:专业:地理信息系统班级:姓名:学号:20XX年6月22日第1页共14页1娱乐场所信息查询软件,软件界面设计简洁,美观,其人性化的软件流程,可以让一般人方便的查询娱乐场所,上手极易,不用打开多个窗口可重复查询。
2系统需求分析根据用户的需求,对本系统做整体的需求分析,这是保证系统有效性和实用性的前提。
2.1功能需求分析在设计本系统之前,作者与相关工作人员进行了交流,并对此进行了归纳提炼,得出建立一个娱乐场所信息查询应具备如下功能:(1)娱乐场所信息查询。
可以对任何一个娱乐场所的详细信息进行查询,其中包括名称、所处路名、id等。
(2)娱乐场所所在地区的地图显示。
(3)最短路径的分析。
(4)地图打印。
2.2数据需求根据功能需求的要求,需要有一系列的数据来支撑,本系统需要的数据包括所处地区的地图模板、道路信息、娱乐场所信息等3系统设计为确保系统顺利的实施,本系统遵循软件工程原理和方法,对系统进行总体设计和详细设计;其次,应满足先进性原则,依照国际标准,借鉴主流系统的体系结构,保证系统具有较长的生命力和扩展能力;此外,还应满足成熟性原则、实用性原则、高可靠性原则等。
根据需求分析的结果,本着以上原则展开对本系统的设计。
3.1界面设计为了界面设计,增强系统的美观性、灵活性,使系统易于操作,采用了很多优秀的第三方组件,这些控件的使用不仅达到了很好效果,同时还大大减轻了编程的工作量。
第2页共14页3.1.1登录界面该系统需要输入用户名、密码才可运用,具有较好的保护性3.1.2关于界面3.2技术路线本系统采用embarcaderodelphixe3作为开发工具。
delphi,是windows平台下著名的快速应用程序开发工具,最早的版本由美国borland(宝兰)公司于1995年开发。
第3页共14页delphi是一个集成开发环境(ide),使用的核心是由传统pascal语言发展而来的objectpascal,以图形用户界面为开发环境,通过集成开发环境、vcl工具与编译器,配合连结数据库的功能,构成一个以面向对象程序设计为中心的应用程序开发工具。
《Delphi数据库程序设计》实验报告一、实验目的1.了解并掌握Delphi 7的基本操作和程序设计2.了解程序设计的流程、框架、思想3.掌握一些基本的Delphi程序设计语言二、实验内容设计一个“人事管理系统”,包括登陆界面、人事管理界面、查询界面、经理员工联系表等。
三、实验步骤1.用Databse Desktop中创建两张SQL型数据表格,如下图所示:2.打开Delphi 7设计登陆界面1)将Edit 1属性中PasswordChar改为*2)在按钮中添加如下代码:if Edit1.Text='111' thenForm2.ShowModalelsebeginshowmessage('输入有错误!请重新输入');Edit1.Text:='';3.新建一个新的窗体Form 2作为人事管理系统如图所示:1)将数据表格导入到该窗体,并将其显示到三个动态文本里2)在“添加”按钮处添加如下代码(添加代码前需将表格、文本等改名):tstudent.Append;tstudent.Fields.Fields[0].AsString:=edtNum.Text;tstudent.Fields.Fields[1].AsString:=edtName.Text;tstudent.Fields.Fields[2].AsString:=edtAge.Text;tstudent.Post;3)“删除”处添加代码:tstudent.Delete;4)第一条至最后一条分别添加如下代码:tstudent.First;tstudent.Prior;tstudent.Next;st;5)新建Form 3、From 4并将菜单中“查询”、“关系”、“文件”下拉菜单“退出”按钮分别添加代码:Form3.ShowModal;Form4.ShowModal;Close;4.在Form 3中设计查询界面:在Tabel1、Datasource1和Tabel2、Datasource2中分别导入两张数据表格,并加以显示,两个查询按钮分别添加如下代码:Table1.Locate('Num',edtjlchaxun.Text,[]);Table2.Locate('Code',edtygchaxun.Text,[]);5.在From 4中设计联系表:将Tabel2的Mastersource改为Datasource1创建联系,并从MasterFields中创建Num->Num的联系,添加导航栏,将导航栏Datasource改为Datasource16.保存相关内容并运行四、实验总结1.掌握了Delphi 7的基本操作和程序设计2.学习了程序设计的流程、框架、思想3.了解了一些程序代码。
Delphi XE程式設計系列 1-主從架構, 多層到JSON 和REST從桌面開發,主從架構,一直到多層架構,雖然都是廣泛被接受的觀念和技術,但在資訊技術的實作上卻從不是開放,相容的世界。
Delphi從桌面開發到主從架構都是使用自己的資料傳遞格式以及通訊傳遞架構,到了多層架構雖然使用了Windows平台上的通訊協定,例如COM/DCOM/COM+,但是在傳遞的資料格式方面仍然是使用自己的架構,COM/DCOM/COM+也是MS專屬的通訊協定,和其他平台上使用的通訊協定也不一樣。
當然,不光是Delphi/BCB,大部份的開發工具也是採用類似的方式,那就是都支援桌面開發,主從架構或是多層架構等通用觀念的架構,但使用來傳遞資料和溝通通訊協定都是封閉的架構。
直到JSON和REST的出現以及Delphi/BCB確定走向原生,跨平台的道路之後,Delphi/BCB 從2010版便開始走向以JSON封裝資料,以REST做為通訊架構的方向。
因此Delphi/BCB除了仍然支援原有的資料封裝格式以及通訊協定之外,也允許開發人員選擇使用JSON和REST,使用JSON和REST的好處是除了可以讓JSON 和REST擁抱最新的資訊技術之外,也可以讓 Delphi/BCB在不同的平台中使用相同的技術來開發主從架構,分散式多層以及Web應用,也可以更容易的和其他的程式語言,框架和技術整合在一起。
現在讓我們重溫舊夢一下,看看如何把一個簡單的主從架構應用程式轉換為使用JSON的架構。
主從架構下圖是一個簡單的主從架構的主表單,它藉由下圖的dbExpress元件從資料庫的FishFacts資料表中取得資料,並且使用資料感知元件顯示在應用程式的主表單中。
雖然從BDE到dbExpress都使用專屬的格式封裝資料,但BDE和dbExpress也可以把資料封裝成較開放的XML格式,因此要把上圖中TClientDataSet中的資料轉換為XML的格式,我們只需要存取它的XMLData特性值即可:dssmFishFact.cdsFishFact.XMLData;XMLData特性值會回傳以下面格式封裝的XML資料:<?xml version=』1.0″ encoding=』UTF-8″ standalone=』yes』?> <DATAPACKET Version=』2.0″><METADATA><FIELDS><FIELD attrname=』Category』fieldtype=』string』 WIDTH=』15″/><FIELD fieldname=』Species Name』attrname=』Species_Name』 fieldtype=』string』 WIDTH=』40″/><FIELD fieldname=』Length (cm)』 attrname=』Length__cm_』 fieldtype=』r8″/><FIELD attrname=』Length_In』 fieldtype=』r8″/><FIELD attrname=』Common_Name』 fieldtype=』string』 WIDTH=』30″/><FIELD attrname=』Notes』fieldtype=』string』 WIDTH=』50″/><FIELD att rname=』Graphic』 fieldtype=』bin.hex』 SUBTYPE=』Binary』 WIDTH=』1″/><FIELD fieldname=』Species No』attrname=』Species_No』 fieldtype=』r8″/></FIELDS><PARAMS LCID=』0″/></METADATA><ROWDATA><ROW Category=』Triggerfish』 Species_Name=』Ballistoides conspicillum』 Length__cm_=』50″ Length_In=』19.68503937007874″ Common_Name=』Clown Triggerfish』 Notes=』Also known as the big spotted triggerfish. Inhabi』…然而BDE/dbExpress雖然能夠把資料封裝成XML格式,但使用XML封裝資料時仍然會因為不同的資料存取使用不同的XML元素來封裝資料,因此在交換資料時仍然會造成許多的困擾,而且使用XML格式封裝資料的成本比起JSON來要昂貴許多(XML使用較多元素,較為複雜的規則封裝資料所致)。
《Delphi程序设计》实验指导书杨长春刘俊石林编写江苏工业学院计算机科学和工程系实验一、Delphi集成化开发环境和Object Opascal 语言一、实验目的1.掌握Delphi程序设计的上机步骤。
2.了解Delphi集成化开发环境。
3.认识使用程序框架。
4.掌握Object Opascal语言程序设计。
二、实验要求1.做好实验预习,掌握并熟悉本实验涉及到的内容2.写出实验报告,内容要求:(1)实验目的(2)实验内容,实验源代码写出关键的部分,一定要写出实验中出现的错误,以及解决错误的方法。
(3)出错信息及处理方法。
(4)实验结果,包括实验处理结果和设计心得。
三、实验环境操作系统:Windows 2000 Pro +SP4,使用系统:Delphi7.0企业版。
四、实验内容1.练习使用Delphi可视化设计方法步骤(1)启动程序,新建工程。
(2)添加组件(3)设置组件属性(4)编写代码(5)保存工程(6)运行工程2.Object Pascal数据类型的使用运行教材第二章中的实例,回答:Object Pascal提供了哪几种运算符数据类型,提供了那些语句?3.简单Windows程序设计任选题目1至题目6中完成4个。
题目1:输入圆的半径,计算并输出圆的内接正方形、外切正方形面积。
题目2:在编辑框中输入三种商品的单价、购买数量,计算并输出所用的总金额。
题目3:单位发工资。
某职工应发工资X元,试求各种票额钞票总张数最少的付款方案。
题目4:编写程序,任意输入一个整数,判断整数的奇偶性。
题目5:键盘输入a,b,c的值,判断他们能否构称三角形的三个边。
如果能够构成一个三角形,则计算三角形的面积。
题目6:设计程序,求s=1+(1+2)+(1+2+3)+(1+2+3+4)+……+(1+2+……+n)的值。
实验二、常用组件、高级数据类型(必做)一、实验目的掌握按钮类、文本类、列表类、组合框组件、菜单、工具栏、对话框、网格组件、系统组件、PageControl组件的使用掌握高级数据类型的编程二、实验要求1.做好实验预习,掌握并熟悉本实验涉及到的内容2.写出实验报告,内容要求:(1)实验目的(2)实验内容,实验源代码写出关键的部分,一定要写出实验中出现的错误,以及解决错误的方法。
实验一Delphi的集成开发环境实验名称:Delphi的集成开发环境实验学时:2学时背景知识:Delphi的集成开发环境目的要求:1.掌握Delphi7 的集成开发环境中的各项功能。
2.掌握开发一般应用程序的过程。
3.掌握开发数据库应用程序的过程。
实验内容:1.编写一个按钮增大或缩小的程序。
2.开发一个简单的数据库应用程序。
实验步骤:按钮打开Delphi7在工具栏中选择file——new--application。
然后file--save protect as。
放入相应的文件夹。
2.在form1上放俩个按钮button1 button2。
3.双击button1输入相应代码如下:procedure TForm1.Button1Click(Sender: TObject);beginbutton1.Width:=button1.Width*2;button1.Height:=button1.Height*2;end;5.双击button2输入相应代码如下:procedure TForm1.Button2Click(Sender: TObject);beginbutton2.Width:=button2.Width div 2;button2.Height:=button2.Height div 2;end;5.f9测试。
数据库在form1上放一个datasource1 table1 dbgrid1 dbnavigator1。
把datasource1的dataset改为table1。
把table1的databasename改为dbdemos,active改为TRUE,tablename改为customer。
把dbgrid1的datasource改为datasource1。
把dbnavigator1的datasource改为datasource1。
实验二Object Pascal的语法规范实验名称:Object Pascal的语法规范实验学时:2学时背景知识: Object Pascal的语法规范目的要求:1.掌握结构体类型中的记录、指针和字符串。
GridView数据访问及C#程序实现孙敏【摘要】本文主要介绍GridView控件特点.及利用C#语言编写程序快速实现数据库文件的查询、显示和下载功能.【期刊名称】《智能计算机与应用》【年(卷),期】2010(000)005【总页数】2页(P9-10)【关键词】GridView;数据访问;C#编程实现【作者】孙敏【作者单位】海南政法职业学院信息技术系,海南,海口,571100【正文语种】中文【中图分类】TP3121 GridView数据访问在Web系统中,客户端应用程序一般与要用的数据库距离较远,所以必须高效利用网络带宽,不能浪费资源的获取大量用户并不想要的数据,GridView控件支持分页技术,在用户上下滚动DataSet时,可以根据自己的需要获取数据。
GridView控件可以在与数据库断开连接时使用,并且GridView控件中的信息是以只读文本的网格形式表示的,但GridView控件的属性是允许用户进入编辑模式。
2 功能实现使用C#语言,以Excel为数据库,通过对数据库文件的查询、显示和打开等来实现GridView的数据访问功能。
基本步骤如下:(4)功能实现完成数据文件的任意搜索,以及通过添加新列和方法来实现数据文件的打开、下载。
效果见图1图13 结束语利用GridView控件以表的形式显示数据,并提供对列进行排序、分页、翻阅数据,快速实现数据文件的访问,并且以尽可能少的数据实现双向数据绑定。
但也存在一些问题和不足,如数据量大时,效率不高,比较死板等。
但不管怎样,GridView控件的出现,还是为Web系统开发者提供了便利,特别是对小型数据系统的开发者,更受益匪浅。
参考文献[1]周靖,译.Visual C#2005从入门到精通.北京:清华大学出版社,2006.[2]张登辉编程基础及应用.北京:机械工业出版社,2-007.。
本文部分内容来自网络整理,本司不为其真实性负责,如有异议或侵权请及时联系,本司将立即删除!== 本文为word格式,下载后可方便编辑和修改! ==Delphi实验报告格式实验一Delphi环境和基础知识练习一、实验目的1.掌握启动与退出Delphi的方法。
2.掌握建立、编辑和运行一个简单的Delphi可视化应用程序的全过程。
3.掌握建立、编辑和运行一个简单的Delphi控制台应用程序的全过程。
4.掌握基本控件(窗体、文本框、标签、命令按钮)的应用。
二、实验内容1.编写一个工资发放的程序,根据用户输入的工资金额,计算出钞票张数最少的付款方案。
2.编写程序,利用枚举类型计算当前日期,以及昨天和明天的星期值。
3.利用数组类型编写一个程序,将随机产生的十个数字按照递减的顺序输出。
4.用自定义过程或函数,编写一个程序,实现用户输入年份的闰年判断功能。
三、界面设计与属性设置 1.第一题属性设置2.第二题属性设置四、代码实现 1. 第一题代码2. 第二题代码实现五、实验结果六、存在的问题实验二 Delphi面向对象编程一、实验目的1.了解面向对象的特性,理解类与对象的基本概念。
2.掌握类的声明、实现和使用。
3.掌握静态方法、虚方法和抽象方法的使用。
4.掌握类运算符is与as的使用方法。
二、实验内容编写一个应用程序模拟银行卡交易过程。
假定人民银行作为管理机构制定银行卡规范,中国银行、工商银行和建设银行各自发行自己的银行卡,假如每个银行存款和取款收取不同的手续费,如,中国银行:存款0.5%,取款1.5%;工商银行:存款1%,取款1%;建设银行:存款1%,取款2%。
要求:人民银行为抽象类,包括余额、账号等字段和存、取款等虚方法,三个银行的银行卡类分别从该抽象类继承。
界面提供开户、存款、取款和查询余额的功能,界面设计友好。
三、界面设计与属性设置四、代码实现五、实验结果六、存在的问题实验三基本VCL组件应用一、实验目的1. 掌握窗体控件的重要属性、事件和方法。
长春工业大学DELPHI程序设计报告
题目:计算器
学院:工商管理学院
专业:电子商务
班级:070509班
学生姓名:孙敏
学号:2007****
指导教师:*****
2009年12 月30 日
一,摘要
我们这一组由*******个人组成。
在分工上,肖珉负责的是设计界面,我和胡明明还有张玉梅负责设置属性以及编写代码。
在编写代码的过程中,我们参考了一些相关的资料,再结合我们自己的看法,最终完成了我们这组的作品---Delphi计算器。
我们设计的是一个方便适用的普通计算器,能实现加、减、乘、除等各种操作。
点击相应的按钮,就可以进行计算,既传统,又适用。
二,正文
计算器平面图:
在我们这组设计的计算器中,包括了16个按钮,分别分布在两个Pannel 中。
其中Pannel1是整个计算器的主体。
Pannel2则是镶嵌在pannel1里面的,用于显示输出的数据,分布在pannel1的上部。
16个按钮分别是0~9等十个数字,已经+、-、*、/、=等五个符号以及小数点.,它们分布在pannel1的下部。
我主要负责的是各个组件的属性的设置。
计算器代码:
unit jsq;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, ExtCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton7: TSpeedButton;
SpeedButton8: TSpeedButton;
SpeedButton9: TSpeedButton;
SpeedButton10: TSpeedButton;
SpeedButton11: TSpeedButton;
SpeedButton12: TSpeedButton;
SpeedButton13: TSpeedButton;
SpeedButton14: TSpeedButton;
SpeedButton15: TSpeedButton;
SpeedButton16: TSpeedButton;
procedure FormCreate(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton12Click(Sender: TObject);
procedure Panel1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
var
s:word;
x,y:real;
v:boolean;
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
s:=0;
x:=0;
y:=0;
v:=false;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if form1.Tag=1 then
begin
if tag=10 then panel2.Caption:='0.'
else panel2.Caption:=(Sender as TSpeedButton).Caption;
form1.Tag:=0;
end
else panel2.Caption:=panel2.Caption+(Sender as TSpeedButton).Caption;
end;
procedure TForm1.SpeedButton12Click(Sender: TObject);
begin
form1.Tag:=1;
if v then
begin
x:=strtofloat(panel2.Caption);
v:=not v;
end
else
begin
y:=strtofloat(panel2.Caption);
case s of
0:panel2.Caption:=format('%g',[x+y]);
1:panel2.Caption:=format('%g',[x-y]);
2:panel2.Caption:=format('%g',[x*y]);
3:if y <> 0 then
panel2.Caption:=format('%g',[x/y])
else
begin
showmessage('不能以0为除数!');
panel2.Caption:=format('%g',[x]);
v:=false;
end;
4: begin
y:=0;
v:=false;
end;
end;
x:=strtofloat(panel2.Caption);
end;
s:=(Sender as TSpeedButton).tag;
end;
procedure TForm1.Panel1Click(Sender: TObject);
begin
end;
end.
三,总结
在本次程序设计之前,我本人几乎没有接触过Delphi,虽然开设了这门课程,但是由于是考查课,我们都没有怎么认真学。
整个学期快结束了,仿佛什么都没学到,连Delphi软件怎么用,那些参数代表什么意思都不知道。
经过这次的课程设计,在自己动手试了之后,才发觉自己原来学的是多么肤浅。
原来书上的东西并不是很难,只要自己动手练习了,掌握课本上的东西简直太容易了。
Delphi无非就是三个部分,即界面设计、设置属性、编写代码。
通过这次的设计,也让我看到了团队的力量。
看到那么多的代码,本来头皮有点发麻,真不知道要花多长时间才能搞定。
可是我们四个人商量了一下,决定分工合作,结果不到半天,我们就完成了,完全超乎我的想象。
而且,通过这次的合作,还促进了大家彼此之间的友谊。
通过这次设计,也让我悟出了一个真理:纸上得来终觉浅,绝知此事要躬行!真的,凡是只有自己亲自动手去实行了,才能获得最终的成功。
虽然付出了不一定代表就有回报,但是不付出,就一定没有回报。
很感谢有了这次的实践机会。