精华区文章阅读

发信人: yunguo (liuliu), 信区: Database
标  题: 基于delphi的数据库管理系统的开发
发信站: 紫丁香 (Thu Oct  1 12:03:12 1998), 转信

作者：梁兴琦

　　摘要: 本文分析了delphi的基本特点,描述了用 delphi开发数据库管理系统的方法和步骤,提出了一些delphi编程技巧

　　关键词: 控件可视化单元数据库引擎

　　一.引言

　　数据库管理系统的应用是计算机应用领域的一个重要分支。本人曾多次参加数据库管理系统的开发,使用的开发工具从早期的Dbase 、 Foxbase 、 Foxpro, 到目前比较流行的Visual Basic(以下简称VB)和delphi。VB是一种高效的可视化程序设计语言 ,
它的出现使Dbase、Foxbase、Foxpro黯然失色,使开发Windows 下的应用软件以及数据库应用软件变得非常容易,为那些心灰意冷的程序设计人员重新点燃了希望之火。当人们正在交口称赞VB的时候,Borland公司的delphi出现了。乍一看,delphi与VB十分相似,
可是在使用过程中我们感到delphi的性能比VB明显增强。首先delphi是一个真编译系统,而VB不能真编译, 采用了伪编译的处理方式,因此用delphi开发的应用软件比用VB开发的应用软件有着10至20倍的速度性能优势;其次, delphi 优化了对数据库的操作 , 包括了广泛的数据库支持 ,
提供了 Database Engine(数据库引擎),它使得SQL语言更为有效、快速, 对网络数据库的操作也大大加快。另外,delphi还有许多VB不具有的增强功能。最近,本人用delphi 开发了一套劳务输出人员管理系统,下面就该系统谈一谈用delphi开发数据库管理系统的经验。

　　二.delphi的基本知识

　　1. delphi中的单元概念

　　现代程序设计方法(结构化程序设计方法和面向对象的程序设计方法) 要求将一个大的软件分为若干个组成部分,并分别实现它。从这种原理出发,delphi在自己的Object Pascal版本中广泛的使用了"单元"。在delphi中,每一个窗口都拥有一个单元,
利用单元可以将一个大程序分成若干个模块。

　　2. 数据库引擎BDE(Borland Database Engine)

　　在Delphi程序组中有一个BDE Configuration,可以用它来对数据库引擎进行设置。它包含有Drivers,Aliases,System,Date,Time,Number六个不同的标记页,它们都十分重要,例如,在Drivers中,Drive
Name里面列出了在Delphi中可以使用的数据库种类的名字。Delphi所支持的数据库十分广泛,如access、dbase、paradox、foxpro等。对于那些在Drive Name中没有出现的数据库 , 只需要通过 ODBC 相连接罢了。
对于设计中文软件的程序员来说,Drivers中Parameters的设置尤为重要,只要将它的LANGDRIVER设置为dBASECHScp936即可。

　　三.劳务输出人员管理系统

　　1.建立劳务输出人员数据库(LWSC.dbf)

　　在delphi中,建立一个数据库主要有二种方式:一是利用Database Desktop的集成环境,二是利用Table控件在程序中建立数据库。本系统利用第一种方式。在Database
Desktop的集成环境中,选择File菜单下的New子菜单,从中选取Table命令,即可建立劳务输出人员数据库LWSC.dbf。值得强调的是数据库的Table Properties,它包含两项 : indexes 和 Table
Language。其中Indexes用来设置数据库的索引。有一点要注意,使用Setkey...Gotokeg查找有一个条件,就是查找的字段必须已经建立了索引;而Table Language
用来设置数据库使用的语言字符集。对于本系统我们将姓名、出生年月、出国日期、职称等字段建立了索引,选择dBASECHScp936(简体汉字字符集)为数据库的语言字符集。

　　2.主窗口的设计

　　主窗口是本系统的核心窗口,它是在窗口Forml基础上建立的。窗口Forml的属性如表1:

属性子属性值
left 　 178
Top 　 86
width 　 430
Height 　 336
Caption 　劳务输出人员管理系统
Font color clwindowtext
　 Height -13
　 Name  system
　 Style 〔〕
position 　 poscreenCerter
Windowstate 　 wsMaximized
Menu 　 MainMenu1

　　其中菜单控件MainMenu位于Standard标记页上,在Form1中放置这个控件。在MainMenu1控件的属性设置标记页中,Items属性是用来设置菜单中的各菜单项的,按下该项,
就会打开一个标题为Form1.MainMenu1的窗口,在该窗口中有一个蓝色且内部有虚线的框在菜单栏上,此时在虚线框上即可设置菜单项。本系统的菜单如表2:

增添修改删除查找打印统计系统
追加
插入根据姓名
出国日期
技术种类
职称根据姓名
出国日期
合同期限
国内单位
国外单位
技术种类
职称根据姓名
出国日期
出国日期
国内单位
国外单位
技术种类
职称个别打印
批量打印
显示统计数据
统计报表系统信息
口令设置
退出
　　

窗口Form2的属性 (表3) 属性子属性值
left 　 140
top 　 125
borderIcons 　〔biMinimize,
biMaximize〕
　　 bsdialog
borderstyle 　输入提示
Caption color clwindowText
Font Height -11
　 Name system
　 Style 〔〕

Form2中Label1的属性(表4) 属性值
Caption  输入查找姓名

08209t05

Form2中Editl的属性(表5) 属性  值
text 空
Taborder 0

Form2中其它控件的属性(表6) 按钮名属性值
BitBtn1  Caption 确认
　 Style bsNew
BitBtn2 Caption  查下一个
　 Style  bsNew
BitBtn3 Caption 关闭
　 Style  bsNew

　

Form3中按钮和数据控件的属性(表7) 控件名属性  值
BitBtn1 Caption 关闭
　 kind  bkclose
　 Style bsNew
Table1 DatabaseName C:\asd
　 IndexName 姓名
　 TableName LWSC.DBF
　 TableType ttDbase
DataSource1 Dataset table1

　

窗口Form3的属性(表8)  属性子属性值
left 　 60
Top 　 40
Borderstyle 　 bsdialog
Caption 　按姓名查询的记录
clientHeight 　 420
clientwidth 　 530
Font Color clwindowText
　 Height -11
　 Name System
　 Style 〔〕

　　3. 菜单项的程序设计和子窗口的建立

　　当主窗口及主菜单设计完成后,就开始着手进行菜单项的程序设计和建立它们所对应的子窗口。例如,对于查找--姓名菜单项,对应的子窗口有2个,为Form2、Form3,这两个窗口以及它们里面控件的属性如下:

　　
菜单项查找--姓名所对应的子窗口以及子窗口里面的控件设计完成后,便可进行它们的程序设计。打开主窗口,将鼠标指针指向菜单查找--姓名,双击该菜单项,便可进入该项的程序设计,对于其它控件的程序设计,都可采用这种方式。限于篇幅,下面仅给出有关查找--姓名菜单项的部分源程序�
５ピ募﨤wdy2.pas源程序如下:

　　unit Lwdy2;

　　interface

　　uses

　　 SysUtils,WinTypes,WinProcs,Messages,Classes,Buttons,Graphics,

　　 Controls,Forms,Dialogs,ExtCtrls,StdCtrls,Lwdy3;

　　Type

　　 TForm2=class(TForm)

　　 Label1: TLabel;

　　 Edit1: TEdit;

　　 BitBtn1:TBitBtn;

　　 BitBtn2:TBitBtn;

　　 BitBtn3:TBitBtn;

　　 procedure BitBtn1click(Sender: TObject);

　　 procedure BitBtn2click(Sender: TObject);

　　 private

　　 { private declaration}

　　 public

　　 { public declaration}

　　 end;

　　var

　　 Form2: TForm2;

　　implementation

　　 {$R *.DFM}

　　procedure TForm2.BitBtn1click(Sender: TObject);

　　 var

　　 STRU: TForm3;

　　 begin

　　 STRU:= TForm3.Create(Self);

　　 STRU.Table1.Open;

　　 STRU.Table1.Setkey;

　　 STRU.Table1.FieldByName('姓名').AsString:=Edit1.Text;

　　 if STRU.Table1.Gotokey then

　　 begin

　　 with STRU do

　　 begin

　　 Edit1.Text:= Table1.FieldByName('姓名').AsString;

　　 Edit2.Text:= Table1.FieldByName('性别').AsString;

　　 Edit3.Text:= Table1.FieldByName('出身年月').AsString;

　　 Edit4.Text:= Table1.FieldByName('民族').AsString;

　　 Edit5.Text:= Table1.FieldByName('政治面貌').AsString;

　　 Edit6.Text:= Table1.FieldByName('婚否').AsString;

　　 Edit7.Text:= Table1.FieldByName('国内单位').AsString;

　　 Edit8.Text:= Table1.FieldByName('出国日期').AsString;

　　 Edit9.Text:= Table1.FieldByName('合同期限').AsString;

　　 Edit10.Text:= Table1.FieldByName('技术种类').AsString;

　　 Edit11.Text:= Table1.FieldByName('职称').AsString;

　　 Edit12.Text:= Table1.FieldByName('国外单位').AsString;

　　 Edit13.Text:= Table1.FieldByName('备注').AsString;

　　 end;

　　 STRU.Show;

　　 end

　　 else

　　 begin

　　 if Application.MessageBox('无此记录','提示框',

　　 mb_RETRYCANCEL+mb_ICONQUESTION)=IDCANCEL then

　　 close;

　　 end;

　　 end;

　　procedure TForm2.BitBtn2click(Sender: TObject);

　　 var

　　 STRU: TForm3;

　　 begin

　　 STRU:= TForm3.Create(Self);

　　 STRU.Table1.Next;

　　 if not STRU.Table1.Gotokey then

　　 begin

　　 Application.MessageBox('没有下一个记录','提示框',

　　 mb_OK+mb_ICONSTOP);

　　 STRU.Table1.close;

　　 close;

　　 end;

　　 end;

　　end.

　　四、结束语

　　Delphi是一个优秀的可视化软件开发环境,可广泛应用于系统软件和数据库的开发。世界上许多著名的电脑杂志都将它列为最优秀的开发软件。我们相信不久之后,在对 Windows前端开发工具的选择上,Delphi将会成为大部分人的首选。

　　安徽经济管理干部学院 230059

　　

　　

[一九九八年第四期]

--
※ 来源:．紫丁香 bbs.hit.edu.cn．[FROM: jxjd.hit.edu.cn]

Database 版 (精华区)