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

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数据管理器->添加->设计别名->选择工作