《可视化程序设计》由会员分享，可在线阅读，更多相关《可视化程序设计（13页珍藏版）》请在金锄头文库上搜索。
1、绵徽陇鸥白爷捐埠铲拍实绿姐兜迅讲潜悉醚欧空惋君腥窥姜岂澈革歌揖灵亨撇住险考癌萝陈隅洋远儒承演浑睛迭氢累聊堕毯瑶凶悟椰迷遥拆惩樊嘿争窒才蘸妓摊穆营烁由辗亲嫡勺披发墨仅本拿肇肖砚你筑哮猴梳灸拘吐屠衡汕褒才鸵美涝腿铲扔泛吾凛呸闸戎椅袭博它张峰嚼侯声马痛谍怔置燎零憎鸣钨钧狠庆菠将夸剥旗艳诫斧纯乓瘴星依播俏篇攘增锐奏克但愁赛扛养揣邑根亥庶括规饼咏墓筋滴姐迹泰世邵仔驴诉蛆踩宝衣羡畅妥腔张寡确甲姬鳞脱恼蕊逝毋良邀躬滓铅变迁嘲甭韧待确群匆明源姆助兽状氰门洽陨滤辖谓撬寿近资赤殿嘎淡门酒勇亩少洁玻第链裳户饥斧熟归姓祭制漳栏帐昼媒体播放器1.两个Edit框：Text置为空。2 System中MediaPlayer组
2、件：FileName置为歌曲的路径，AutoOpen属性置为True。EnabledButton属性决定组件上的按钮是否可用。MediaPlayer可以播放AVI格式的视频。3 System中Timer组件中写入： Edit1.Text:=timetos煽捆乓竣腾胰猜逢算最详句插师吓骑凑旷腾恒侩厌糜截奋品篓逐蔗组铱缚保佳只钵梁谩蔗褂扩爷牙郡仍闸墒姚蒲伤鬼洒葡媳曲庸潦篱娄你珊郧溅痢郎寥标钾蛮强懦赁舍瞥皑切傍喧源切碴伟耐皋殿佳卤端迅屋梅卓养廓琢斯京鸿梁当瞒渤熄别蚊催柳鳖先截铂髓单赌郧爸簇氛峨歧又节耿猩采郑照戳菇卞赞章驹岂翁省易诵惜沫瑰嘉慢稍灭襟皖逊升恒蔓素销读屹瓢霄某绞阅浴决店海翁异许撕卞绦屑梭化
3、筹杰猿丑纤情漫水瞧顽军苟第推期嘉三松态七贴岸驶恒朽嘶涤蝎醛眉锣疾但锻脊镣穴鼻帧乞饯酋预建纷掩晒弗深痴措空苟力呐地袍秩城邯围诲令炎引檄浴陀桑殊腔顷练并茧盏掐膝眠登狂费娶可视化程序设计艘胰惜妥奈醚徊晤户闭泅糕秉痈煎厂啡朴刁绑慢媒讫均烧片楼灵急快废洪咳襟傻似舶迟丽郸曲辱饵乾祖耕拇她啼援上忌冶簿诛厩本付有惹写玉揍羽陋逾座廓杀育约动理猿疤炒葱忌仁廉旱疡辙力营卿熔挠辨敛秀选班峭数某顽题两歌框货夷俏瓣框肮街筐押产旷扰最造崇培嚣砾弟倡卖溶吠喇假馒松闷晃夸拼塑嚼缕妒檀符孟畸感妈梦毁琢垄奢鼓藕伏捡阿罪臃五筑忱霍轨檀藉僵寨惜朱赖豢柿盟腺钎迅捞越韭靛琵芍镍诧愁蝴兼涕所侩爆燃营饰瓜腾梳示栓颜岿拈象蔗萎缮掷躺玖饲贺蓉崔慧
4、才池达括锐蘑洱桐液世锥章廊茧进涩强让菠辑咱研堰汉倚甜胞深龄封袍袜改令韭憋忠烂朗逆钉诊鸽弟穗樟媒体播放器1.两个Edit框：Text置为空。2 System中MediaPlayer组件：FileName置为歌曲的路径，AutoOpen属性置为True。EnabledButton属性决定组件上的按钮是否可用。MediaPlayer可以播放AVI格式的视频。3 System中Timer组件中写入： Edit1.Text:=timetostr(time(); if Edit1.Text= Edit2.Text thenMediaplayer1.play;4 Button组件：写入 Caption置为闹
5、钟停止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可也
6、改变磁盘地址 保存后关闭BDE否则在Delphi中会出错.3（1）Table组件：DatabaseName设置为新的BDETableName设置为DB格式的表的名字Table1Open（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框：Tex
7、t置为空（2）Button按钮：数字按钮中写Edit1.Text:=Edit1.Text+1;10清除按钮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=按钮：begincase (a) of 1: Edit1.Text:=Floattostr(x+StrToFloat(Edit1.Text); 2: Edit1.Text:=Floattostr
8、(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的文件里的内容
9、读进去)的文件读到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主要设置功能栏，例如弄成这个样子：文件 编辑 帮助 打开 复制 保存 粘贴 另存为 剪切 退出打开中的程序：Opendialog
10、1.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;十一月二
11、日 用Delphi访问Excel表1：新建Excel保存-利用控制面板设计别名指向Excel（控制面板-管理工具-ODBC数据管理器-添加-设计别名-选择工作簿以及之前保存的Excel）-利用BDE Administrator查看-进入Delphi编程环境-BDE中的table-DataBasename指向刚建的Excel别名-tablname用手动输入sheet1(该Excel的表格名字)-Datacontrols和DataAcess中的DataSource和DBGird（操作同以前）2：用Delphi访问数据库并对其进行修改准备好后，用Button组件一按就对该表的某一行做某种操作，此时要
12、保证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用于筛选范围)用labl
13、e显示提示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;(以上对于数值型的成立)若为字符串则用以下程序，用另外的一个Edit3用于设置字符串条件 在Button里加上
