可视化程序设计.docx
- 文档编号:617377
- 上传时间:2022-10-11
- 格式:DOCX
- 页数:9
- 大小:20.64KB
可视化程序设计.docx
《可视化程序设计.docx》由会员分享,可在线阅读,更多相关《可视化程序设计.docx(9页珍藏版)》请在冰豆网上搜索。
可视化程序设计
媒体播放器
1.两个Edit框:
Text置为空。
2System中MediaPlayer组件:
FileName置为歌曲的路径,
AutoOpen属性置为True。
EnabledButton属性决定组件上的按钮是否可用。
MediaPlayer可以播放AVI格式的视频。
3System中Timer组件中写入:
Edit1.Text:
=timetostr(time());
ifEdit1.Text=Edit2.Textthen
Mediaplayer1.play;
4Button组件:
写入Caption置为闹钟停止
MediaPlayer1.Stop;
5两个Lable组件分别写现在时间和闹钟时间。
6Form中的Caption可以改变Form的窗体标题。
7Dialogs中的OpenDialog组件
电话本
1
使用DatabaseDesktop制作数据库文件:
File-New-Table
设置FieldName,Type中单击右键选择Alpha,Size。
编辑好后用EditData添加数据。
添加好数据后必须关上DatabaseDesktop,否则在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组件DataSource设为DataSource1,
DataField设置为想要查阅字段的名称Name。
(5)DataControl中DBNavigator的DataSource属性置为
DataSource1
计算器
(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)->利用BDEAdministrator查看->进入Delphi编程环境->BDE中的table->DataBasename指向刚建的Excel别名->tablname用手动输入sheet1(该Excel的表格名字)->Datacontrols和DataAcess中的DataSource和DBGird(操作同以前)
2:
用Delphi访问数据库并对其进行修改
准备好后,用Button组件一按就对该表的某一行做某种操作,此时要保证Table1已经添加了字段
Button:
Table1.First;
WhilenotTable1.EOFdo
Begin
Table1.Edit;
Table1No.value:
=Table1No.value+1;
Table1.Post;Table1.Next;
End
将Table1数据中的字段合法化:
右击Table1->FieldsEdit->右击窗体->选AddFields->选择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:
varf:
string;
Begin
Table1.Filtered:
=false;f:
=’‘;(f为空)
IfEdit1.Text<>’‘thenf:
=f+’NO>=’+Edit1.Text+’and’;
IfEdit2.Text<>’‘thenf:
=f+’NO<=’+Edit2.Text+’and’;
f:
=copy(f,1,length(f)-5);//把最后的f中的and删除
Showmessage(Table1.Filter);
Table1.Filter:
=f;
Table1.Filtered:
=true;
(以上对于数值型的成立)若为字符串则用以下程序,用另外的一个Edit3用于设置字符串条件
在Button里加上一句话:
ifEdit3.Text<>‘’thenf:
=f+’memo=’’’+Edit3.Text+’*’’and’;
(*为通配符,不限定字符个数)
建立索引:
在DatabaseDesktop中建立索引,用Desktop打开数据表选择一个table->restruction->Define(起名,例如PZBCODE,PZBID)
用radioButton1指向PZBCODE,用radioButton2指向PZBID
radioButton1里的程序:
table1.close;
table1.IndexName:
=‘PZBCODE’;
table1.open;
radioButton2里的程序同1的。
table1.IndexName:
=‘PZBID’;
十一月九日数据库连接
一:
BDE->Databases指向数据库->保存->打开Delphi6
(1)安装3个table组件,设置同一个DatababaseName,分别设置TableName.
(2)安装2个DataSource分别对应2个table设置Tata1(pza),table2(pzb).
(3)安装3个DBEdit(在DataControls中):
用于显示pza的三个字段:
No,Data,Memo.
DBEdit1:
Datasourse->Table1(pza),DateFileld->No.
DBEdit2,DBEdit3:
Datasourse分别->Table2,3(pza,pza),
DateFileld->Data,Memo.
(4)安装DBNavigater:
VisibleButtons展开,将不需要的置为false.Datasourse->Table1(pza).
(5)安装DBGrid:
Datasourse->Datasourse2(pzb)(用于显示pzb)
连接Table1与Table2,将Table1(pza)设为主动表,Table2(pzb)设为从动表:
①table2(pzb)的MasterSourse->Datasourse1(pza).②将table2(pzb)的MasterField打开,将两个ID进行连接(用于显示哪两个字段相连接).AvailableIndexes设置为IndexID
Add键确定
(6)
(7)Form:
table1.open;table2.open;
(8)在DBGrid1中的pzb显示中连接另一个数据库文件KM的一个字段:
连接table2与table3。
Table2(pzb)的字段添加:
右击table2(pzb)打开添加的字段,右击对话框中NewField填写Name类型String,Size30,,Fieldtype(lookup),KeyField(code),Dataset(table3(km)),lookupkeys(code),ResultField(Name).
字段删除:
①可在table中删除Delete永久删除,但可能会影响DBGrid显示或table间的连接受影响。
②DBGrid中“删除”即不显示该字段。
右击DBGrid选中ColumnField进行删除。
字段中文化:
DBGrid->ColumnField->属性title中caption进行修改
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 可视化 程序设计