可视化程序设计Word格式文档下载.docx

可视化程序设计Word格式文档下载.docx

《可视化程序设计Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《可视化程序设计Word格式文档下载.docx（9页珍藏版）》请在冰豆网上搜索。

设置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:

.'

在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:

=Floattostr（x+StrToFloat（Edit1.Text））;

2:

=Floattostr（x-StrToFloat（Edit1.Text））;

3:

=Floattostr（x*StrToFloat（Edit1.Text））;

4:

=Floattostr（x/StrToFloat（Edit1.Text））;

end;

end.

记事本（Memo组件：

）

（1）改变Memo上显示的内容：

改变lines属性。

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

在Button里写程序：

Memo1.lines.Add（Edit1.Text）;

Edit1.Text：

=‘’;

（3）一按Button就将指定位置（例：

D盘里文件名为AAA.txt的文件里的内容读进去）的文件读到Memo里显示出来：

Memo1.lines.LoadFromFile（‘D：

\AAA.txt’）;

（4）Memo里输入的内容被保存到指定位置（例：

保存到D盘BBB记事本里，若不存在BBB文件则新建一个）

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）;

另存为：

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里的内容显示一下）

=true;

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

ButtonClick:

varf:

string;

Begin

f:

=’‘;

（f为空）

IfEdit1.Text<

>

’‘thenf:

=f+’NO>

=’+Edit1.Text+’and’;

IfEdit2.Text<

=f+’NO<

=’+Edit2.Text+’and’;

=copy（f,1,length（f）-5）;

//把最后的f中的and删除

Table1.Filter：

=f;

（以上对于数值型的成立）若为字符串则用以下程序，用另外的一个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:

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进行修改