最新可视化程序设计精编版

2020年可视化程序设

计精编版

媒体播放器

1.两个Edit框：Text置为空。

2 System中MediaPlayer组件：FileName置为歌曲的路径，AutoOpen属性置为True。

EnabledButton属性决定组件上的按钮是否可用。

MediaPlayer可以播放AVI格式的视频。

3 System中Timer组件中写入：

Edit1.Text:=timetostr(time());

if Edit1.Text= Edit2.Text then

Mediaplayer1.play;

4 Button组件：写入 Caption置为闹钟停止

MediaPlayer1.Stop;

5 两个Lable组件分别写现在时间和闹钟时间。

6 Form 中的Caption可以改变Form的窗体标题。

7 Dialogs中的 OpenDialog组件

电话本

1

使用Database Desktop制作数据库文件：File-New-Table

设置Field Name，Type中单击右键选择Alpha，Size。

编辑好后用Edit Data添加数据。

添加好数据后必须关上Database Desktop，否则在Delphi中会出错。2

新建BDE ：Object-New-Ok更改名字 PATH设置为新的DB

格式文件的地址。

PATH中的Drives可也改变磁盘地址保存后关闭BDE否则在Delphi中会出错.

3

（1）Table组件：DatabaseName设置为新的BDE TableName设置为DB格式的表的名字

Table1．Open

（2）DataSource组件的DataSet属性设置为Table1。

（3）DBGird组件DataSource属性设为DataSource1.

( 4 )DBEdit组件Data Source设为Data Source1，

DataField设置为想要查阅字段的名称Name。

（5）Data Control中DBNavigator的Data Source属性置为Data Source1

计算器

（1）Edit框：Text置为空

（2）Button按钮：数字按钮中写Edit1.Text:=Edit1.Text+'1';1~0 清除按钮Edit1.Text:='';小数点Edit1.Text:=Edit1.Text+'.';

在implementation前定义变量

x,y:real;

a:integer;

+：x:=StrToFloat(Edit1.Text);

a:=1;

Edit1.Text:=' ';

- : a=2

*: a=3

/: a=4

=按钮：

begin

case (a) of

1: Edit1.Text:=Floattostr(x+StrToFloat(Edit1.Text));

2: Edit1.Text:=Floattostr(x-StrToFloat(Edit1.Text));

3: Edit1.Text:=Floattostr(x*StrToFloat(Edit1.Text));

4: Edit1.Text:=Floattostr(x/StrToFloat(Edit1.Text));

end;

end;

end.

记事本(Memo组件：)

（1）改变Memo上显示的内容：改变lines属性。

（2）若要在Edit里输入的内容显示到Memo里：

在Button里写程序：Memo1.lines.Add(Edit1.Text);

Edit1.Text：=‘’;

（3）一按Button就将指定位置(例：D盘里文件名为AAA.txt的文件里的内容读进去)的文件读到Memo里显示出来：

在Button里写程序：Memo1.lines.LoadFromFile(‘D：\AAA.txt’); （4）Memo里输入的内容被保存到指定位置（例：保存到D盘BBB记事本里，若不存在BBB文件则新建一个）

在Button里写程序：Memo1.lines.SavetoFile(‘D：\BBB.txt’);

(5)Dialogs里的OpenDialog和SaveDialog组件以及Standard里的Memo，Mainmenu组件。

Mainmenu主要设置功能栏，例如弄成这个样子：文件编辑帮助

打开复制

保存粘贴

另存为剪切

退出

打开中的程序：Opendialog1.Execute;

Memo1.Lines.LoadFromFile(OpenDialog1.FileName);

保存中的程序：Savedialog1.Execute;

Memo1.Lines.SavetoFile(SaveDialog1.FileName);

另存为：Savedialog1.Execute;

Memo1.Lines.SavetoFile(SaveDialog1.FileName);

退出：close;

复制，粘贴，剪切里的程序分别为：Memo1.CopyToClipboard;

Memo1.PasteFromClipboard;

Memo1.CutToClipboard;

十一月二日用Delphi访问Excel表

1：新建Excel保存->利用控制面板设计别名指向Excel（控制面板->管理工具->ODBC数据管理器->添加->设计别名->选择工作

簿以及之前保存的Excel）->利用BDE Administrator查看->进入Delphi编程环境->BDE中的table->DataBasename指向刚建的Excel别名->tablname用手动输入sheet1(该Excel的表格名字)->Datacontrols和DataAcess中的DataSource和DBGird（操作同以前）

2：用Delphi访问数据库并对其进行修改

准备好后，用Button组件一按就对该表的某一行做某种操作，此时要保证Table1已经添加了字段

Button：Table1.First;

While not Table1.EOF do

Begin

Table1.Edit;

Table1No.value:= Table1No.value+1;

Table1.Post; Table1.Next;

End

将Table1数据中的字段合法化：右击Table1->Fields Edit->右击窗体->选Add Fields->选择OK->则table中的各字段就会出现在代码编程中（为table添加字段）。

3：访问数据库时进行筛选条件的设置

添加组件Edit1,Edit2,Button1(Edit1,Edit2用于筛选范围)用lable显示提示

Table1的Filter属性(设置条件)例如：NO>=10 （Table1的Filter属性置为true。

Button: Table1.Filtered:=false;

Table1.Filter:=’NO>=’+Edit1.Text+’

andNO<=’+ Edit2.Text;

Showmessage(Table1.Filter)；（调试语句将Table1.Filter 里的内容显示一下）

Table1.Filtered:= true;

当有多个条件进行筛选时不一定都设定才能筛选，用参数的方法设定筛选条件

ButtonClick: var f:string;

Begin

Table1.Filtered:=false; f:=’‘;(f为空)

If Edit1.Text<>’‘ then f:=f+’NO>=’+

Edit1.Text+’and’;

If Edit2.Text<>’‘ then f:=f+’NO<=’+

Edit2.Text+’and’;

f:=copy(f,1,length(f)-5);//把最后的f中的and删除

Showmessage(Table1.Filter)；

Table1.Filter：=f;

Table1.Filtered:= true;