数据保护与自动计算

数据保护与自动计算
1引言
使用EXCEL管理数据具有方便、快捷、易学易用等优点，但用EXCEL保存的数据最大的缺点是数据操作的随意性太大，数据的安全性较差，另外，不便于数据的共享。

采用FOXPRO系统开发出的应用系统可以避免EXCEL操作数据的一些缺点，但操作数据的方便易用性上又大打折扣。

例如，在FOXPRO中可以通过BROWSE获得类似EXCEL 的纵横表编辑功能，也可以对表和字段级加以保护，但对纵横表中的记录进行保护不易实现；VFP中提供的GRID构件可以实现类似的功能，但由于VFP的实现有赖于数据环境的设置，这种要求对于编制多用户系统极不方便。

因此，我们采用DELPHI提供的丰富的组件来实现数据录入界面的制作，并可以较好地实现数据的保护并实现数据的自动计算。

2数据保护的类型
数据保护依其保护的范围不同可以分为4个层次，即数据库、表、记录、字段4个级别的保护。

数据库、表的保护在各种系统中均能较方便地实现。

对EXCEL，可以将文件设置为只读属性加以保护；对FOXPRO的BROWSE命令，可以通过加参数NOMODIFY、NODELETE、NOAPPEND实现，也可以制作查询来实现。

下面我们主要涉及在DELPHI网格构件中实现数据保护的方法。

3数据保护方法
为便于阐述DELPHI中数据的保护方法，我们这里举一个简单的例子加以说明。

例子的功能是要实现支付结算数据的录入以及金额的计算，数据栏目的设置如下表。

字段名称字段类型字段宽
度小数位
数
备注
序号字符型6
报价单代码字符型12
项目名称字符型20
单位字符型6
工程量数字型123
单价数字型82
金额数字型142
提交逻辑型1
在DELPHI中创建一个新的工程项目，在窗体中放入Table1（表构件）、DataSource1（数据源构件）、DBNavigator1（数据导航构件）、DBGrid1（网格构件）。

3.1表一级的保护
数据表的保护可以采用“查询构件”，即显示的内容只能浏览，不能修改。

但我们编程时通常采用“表构件”来导入数据，这样可以较少的构件，通过构件属性的设置、变化、裁剪，对表或记录或字段进行不同级别的保护。

要对整个表加以保护，在编程环境下可以直接将表构件Table1的Readonly属性设为True；在允许环境下可以使用语句Table1.Readonly:=True;
实现表的只读保护，通常这个语句可以放置于窗体产生例程中，即：procedure TForm1.FormCreate(Sender:TObject);
begin
table1.close;
table1.readonly:=true;
table1.open;
end;
3.2字段级的保护
在我们的例子中，“金额”是由“单价”和“工程量”相乘直接得来的，勿需人工输入，也没有必要输入，其他的栏目是要人工输入的，这就要求对字段“金额”的数据加以保护，即该字段是只读的。

实现这一功能的方法有两种，其一是直接在编程时，双击网格构件，加入所以字段，然后定位到要“保护”的字段，将其Readonly属性设置为True即可。

方法二是用程序代码来设置，这种方式适合于运行方式对属性的改变，要保护“金额”字段，可在窗体产生例程中添加如下代码：
procedure TForm1.FormCreate(Sender:TObject);
begin
table1.open;
dbgrid1.columns[6].readonly:=true;
end;
3.3记录级的保护
实现记录级的保护，就是要防止对满足一定条件的记录作修改和删除操作。

若窗体中没有“数据导航构件”，则只需要屏蔽“网格构件”Options属性中的DgEditing就可以了；否则，还要屏蔽“数据导航构件”Visiblebuttons属性中的nbdelete。

我们的例子要实现的功能是，若“提交”字段为“真”，则该记录禁止删除和修改，否则，记录既可删除也可修改。

（1）成功的方法
很容易想到，3.2条目中保护单个字段的方法推广到所有的字段既是对记录的保护。

事实上，这也是最成功的方法。

要实现此功能，需在“数据源构件”的ondatachange例程添加如下代码：procedure TForm1.DataSource1DataChange(Sender:TObject;Field:TField);
begin
if table1.FieldByName('提交').asboolean then begin
dbgrid1.columns[0].readonly:=true;
dbgrid1.columns[1].readonly:=true;
dbgrid1.columns[2].readonly:=true;
dbgrid1.columns[3].readonly:=true;
dbgrid1.columns[4].readonly:=true;
dbgrid1.columns[5].readonly:=true;
dbgrid1.columns[6].readonly:=true;
dbgrid1.columns[7].readonly:=true;
dbnavigator1.visiblebuttons:=[nbFirst,nbPrior,nbNext,nbLast,
nbInsert,nbEdit,nbPost,nbCancel,nbRefresh];
end else begin
dbgrid1.columns[0].readonly:=false;
dbgrid1.columns[1].readonly:=false;
dbgrid1.columns[2].readonly:=false;
dbgrid1.columns[3].readonly:=false;
dbgrid1.columns[4].readonly:=false;
dbgrid1.columns[5].readonly:=false;
dbgrid1.columns[6].readonly:=true;
dbgrid1.columns[7].readonly:=false;
dbnavigator1.visiblebuttons:=[nbFirst,nbPrior,nbNext,nbLast,
nbInsert,nbDelete,nbEdit,nbPost,nbCancel,nbRefresh];
end;
end;
注意，采用这种方法时，在编程方式下，一定要将DbGrid1网格构件Options中dgAlwaysShowEditor属性设置为“真”，否则，所有记录按Ctrl_Del键都是可删除的。

（2）不成功的方法
下面的方法可以防止对记录进行修改，但不能防止删除，所以称为不成功的方法。

procedure TForm1.DataSource1DataChange(Sender:TObject;Field:TField);
begin
if table1.FieldByName('提交').asboolean then begin
dbgrid1.options:=[dgTitles,dgIndicator,dgColumnResize,
dgColLines,dgRowLines,dgTabs,dgConfirmDelete,dgCancelOnExit];
dbnavigator1.visiblebuttons:=[nbFirst,nbPrior,nbNext,nbLast,
nbInsert,nbEdit,nbPost,nbCancel,nbRefresh];
end else begin
dbgrid1.options:=[dgEditing,dgTitles,dgIndicator,dgColumnResize,
dgColLines,dgRowLines,dgTabs,dgConfirmDelete,dgCancelOnExit];
dbnavigator1.visiblebuttons:=[nbFirst,nbPrior,nbNext,nbLast,
nbInsert,nbDelete,nbEdit,nbPost,nbCancel,nbRefresh];
end;
end;
这段代码依DELPHI的有关书籍的介绍应该是可以防删除的，但实际情况相左，可能是软件方面的BUG。

虽然不成功，但在只防止修改，不防止删除时，用这种方法是非常简单的。

4数据自动计算的实现
在我们的例子中，“金额”是由“单价”和“工程量”相乘直接得来的，勿需人工输入。

这可在“数据源构件”的onupdatedata例程添加如下代码实现：
procedure TForm1.DataSource1UpdateData(Sender:TObject);
begin
table1.fieldbyname('金额').asfloat:=table1.fieldbyname('单价').asfloat
*table1.fieldbyname('工程量').asfloat;
END;
（文中的方法，对delphi3、delphi5是成功的，但对delphi6及其以上的版本是不成功的。

解决的办法是修改delphi源代码中dbgrid组件的相关“行删除”代码）。