明辉站/技术开发/内容

用Delphi的Tquery控件充分发挥数据库系统SQL技巧

技术开发2023-08-04 阅读
[摘要]综观现有的RAD工具——Microsoft的Visual Basic、Sybase的PowerBuilder及Inprise的Delphi,它们都提供了相应的数据库控件。软件开发人员利用这些控件可以有效、方便地实施数据库编程,但编写高效及功能强大的数据库应用软件应该直接、动态地利用数据库管理系统的...
综观现有的RAD工具——Microsoft的Visual Basic、Sybase的PowerBuilder及Inprise的Delphi,它们都提供了相应的数据库控件。软件开发人员利用这些控件可以有效、方便地实施数据库编程,但编写高效及功能强大的数据库应用软件应该直接、动态地利用数据库管理系统的SQL功能。

  下例的程序是在Delphi 4.0上开发的一个相对简单的人事管理软件的一部分,它能够满足复杂的动态查询、条件打印,实现全活动的工资字段管理和复杂计算功能。

  Delphi访问数据库,一般通过Borland数据库引驚(BDE,Borland DataBase Engine),通过BDE可以访问客户机/服务器数据库,如Microsoft SQL、Oracle、Sybase、DB2等,及本地数据库,如Access、Paradox、dBase等。本例采用的数据库是Sybase SQL Anywhere5.0。但应该指出的是,由于各个数据库系统的功能不一样,在编程考虑软件移植性的时候应注意使用标准isql,还要利用当前数据库的特殊功能。

  在Delphi里,可以直接发挥数据库SQL语句功能的控件除了Tquery,还有TupdateSQL、TstoredSQL等,利用这些控件可以实现查询、计算外,还可以建立、修改数据库表等等。本文以Delphi的Tquery控件为例,通过下面两段程序实现动态查询、复杂计算的方法,阐述数据库编程应充分发挥数据库系统功能这一概念。

  程序中用到的两个控件说明:

  * Tquery控件:name属性为DynamicQuery,如果用以查询,RequestLive属性为False,如果用以更改则要求RequestLive属性为True。

  * TdataSource控件:name属性为DynamicSource,DataSet属性为DynamicQuery。


  一、 动态查询的实现



  图一

  {下面程序是“执行查询”按钮被按下后的响应程序。它首先根据上图复合条件对话框生成的条件生成复杂的连接两表的SQL语句,然后利用Tquery控件将结果响应在显示窗口上。生成打印报表原理也一样}

  procedure TMainFrm.ExcuteQueryBtnClick(Sender: TObject);

  var

  condition:String;

  begin

  { MergeConditionDlg就是上图所示的对话框}

  if MergeConditionDlg.ShowModal = mrOK then

  begin

   { MainCondition.Text为上图“编辑主设限条件”显示的内容}

   if MergeConditionDlg.MainCondition.Text = '' then

   begin

   { SubCondition.Text为上图进入“子条件构造”对话框生成的内容 }

   if MergeConditionDlg.SubCondition.Text = '' then

   condition := ''

   else

   condition := '身份证 IN (SELECT 身份证 FROM 人员基本情况 WHERE '+ MergeConditionDlg.SubCondition.Text+') ';

   end

   else

   begin

   if MergeConditionDlg.SubCondition.Text = '' then

   condition := MergeConditionDlg.MainCondition.Text

   else

   condition := '('+MergeConditionDlg.MainCondition.Text+') AND (身份证 IN (SELECT 身份证 FROM 人员基本情况 WHERE '+ MergeConditionDlg.SubCondition.Text+')) ';

   end;

   with DataFrm do

   begin

   DynamicQuery.Close;

   DynamicQuery.SQL.Clear;

   DynamicQuery.SQL.Add('SELECT * FROM gzdaView ');

   if (condition〈〉 '') then

   DynamicQuery.SQL.Add('WHERE 身份证 IN (SELECT 身份证 FROM 人员基本情况 WHERE '+condition+') ');

   DynamicQuery.SQL.Add(' ORDER BY 单位编号,部门编号,行政级别编号,工作时间,出生日期,发放日期');

   DynamicQuery.Open;

{DbgridDlg对话框根据DBGrid数据源的不同显示不同的结果}

   DBgridDlg.DBGrid.DataSource := DataFrm.DynamicSource;

   if DBgridDlg.ShowModal = mrOK then

   begin

   Tryjbqk.DisableControls;

   Tryjbqk.Locate('身份证',DynamicQuery.FieldByName('身份证').Value,[]);

   Tryjbqk.EnableControls;

   end;

   end;

  end;

  end;


  二、动态计算、修改数据库记录的实现



  图二

  {下面的过程是在用户按下“产生复合条件”按钮后执行的,它的任务是调用生成复
合条件的对话框,并将结果返回给工资项计算定义表(下面有解释)的SubQuery字段,
并显示到如图上“#3> =0”显示的Memo框上 }

  procedure TGzxFzjsDlg.GeneratingComplexBtnClick(Sender: TObject);

  begin

  { 调用生成复杂表达式的对话框,即(一)图 所示的对话框 }

  if MergeConditionDlg.ShowModal = mrOK then

  begin

  { Tgzxjs 为 Class(Ttable),是一个存放工资项字段计算表达式的表,
它由gzx(对应工资表中的工资项)、bh(计算定义的编号,同时也决定批量计算的顺序
)、isCurrent(在批量处理时是否被计算)、SingleExp(简单的计算表达式,实际的
表达式由于在该版本的Delphi中不能正常处理Text字段,而以文件形式被存放在硬盘上)、
SubQuery(执行的限制条件,即该项定义的计算只对符合条件的工资表记录进行计算)
等5字段组成,该表的SubQuery字段被修改后,自动调用一个过程,将对应的计算表达式
删除 }

   DataFrm.Tgzxjs.Edit;

   if MergeConditionDlg.MainCondition.Text = '' then

   begin

   if MergeConditionDlg.SubCondition.Text = '' then

   DataFrm.TgzxjsSubQuery.AsString := ''

   else

   DataFrm.TgzxjsSubQuery.AsString := '身份证 IN (SELECT 身份证 FROM 人员基
本情况 WHERE '+ MergeConditionDlg.SubCondition.Text+') ';

   end

   else

   begin

   if MergeConditionDlg.SubCondition.Text = '' then

   DataFrm.TgzxjsSubQuery.AsString := MergeConditionDlg.MainCondition.Text

   else

   DataFrm.TgzxjsSubQuery.AsString := '('+MergeConditionDlg.MainCondition.Text+')
AND (身份证 IN (SELECT 身份证 FROM 人员基本情况 WHERE '+ MergeConditionDlg.SubCondition.Text+')) ';

   end;

  end;

  end;

  {下面的过程是在用户按下“加单一工资项值表达式”按钮后执行的,
它的任务是调用标准的输入的对话框,并将用户输入的简单算术表达式加到工资项计算表
达式上}

  procedure TGzxFzjsDlg.AddSingleExpClick(Sender: TObject);

  var

  InputValue :String;

  begin

  InputValue := InputBox('工资项值运算表达式输入框','#1,#2--#40、数字、
运算符组成,如#3、(#3+#8)*0.15、#4-#6+#40+18等等:','');

  DataFrm.Tgzxjs.Edit;

  GzxFzjsDlg.Expression.Text := GzxFzjsDlg.Expression.Text + InputValue;

  DataFrm.TgzxjsSingleExp.Value := DataFrm.TgzxjsSingleExp.Value + InputValue;

  DataFrm.Tgzxjs.Post;

  end;

  {下面的过程是在用户按下“清空计算表达式”按钮后执行的,它的任务是计算表达
式清空}

  procedure TGzxFzjsDlg.SpeedButton4Click(Sender: TObject);

  begin

   DataFrm.Tgzxjs.Edit;

   GzxFzjsDlg.Expression.Text := '';

   DataFrm.TgzxjsSingleExp.AsString := '';

   DataFrm.Tgzxjs.Post;

  end;

  {下面的过程是在用户按下“加合计函数表达式”按钮后执行的,它的任务是调用生
成合计函数表达式的的SUMExpressionDlg对话框,这里使用的合计函数有合计值(SUM)
、平均值(AVG)、最大值(MAX)、最小值(MIN)、记录数(COUNT)等5种,并将结果
加到计算表达式}

  procedure TGzxFzjsDlg.AddSumExpClick(Sender: TObject);

  begin

  with SUMExpressionDlg do

  begin

  if ShowModal = mrOK then

  begin

   DataFrm.Tgzxjs.Edit;

   case CalStyle.ItemIndex of {CalStyle是包括上述5种合计表达式的选项控件}

   0: //即SUM

   begin

   GzxFzjsDlg.Expression.Text := GzxFzjsDlg.Expression.Text + '(SELECT SUM('+SumExpression.Text+') FROM 工资表 WHERE '+DataFrm.TgzxjsSubQuery.AsString+')';

   DataFrm.TgzxjsSingleExp.AsString := DataFrm.TgzxjsSingleExp.AsString + 'SUM('+SumExpression.Text+')';

   end;

   1: //即AVG

   begin

   GzxFzjsDlg.Expression.Text := GzxFzjsDlg.Expression.Text + '(SELECT AVG('+SumExpression.Text+') FROM 工资表 WHERE '+DataFrm.TgzxjsSubQuery.AsString+')';

   DataFrm.TgzxjsSingleExp.AsString := DataFrm.TgzxjsSingleExp.AsString + 'AVG('+SumExpression.Text+')';

   end;

   2: //即MAX

   begin

   GzxFzjsDlg.Expression.Text := GzxFzjsDlg.Expression.Text + '(SELECT MAX('+SumExpression.Text+') FROM 工资表 WHERE '+DataFrm.TgzxjsSubQuery.AsString+')';

   DataFrm.TgzxjsSingleExp.AsString := DataFrm.TgzxjsSingleExp.AsString + 'MAX('+SumExpression.Text+')';

   end;

   3: //即MIN

   begin

   GzxFzjsDlg.Expression.Text := GzxFzjsDlg.Expression.Text + '(SELECT MIN('+SumExpression.Text+') FROM 工资表 WHERE '+DataFrm.TgzxjsSubQuery.AsString+')';

   DataFrm.TgzxjsSingleExp.AsString := DataFrm.TgzxjsSingleExp.AsString + 'MIN('+SumExpression.Text+')';

   end;

   4: //即COUNT

   begin

   GzxFzjsDlg.Expression.Text := GzxFzjsDlg.Expression.Text + '(SELECT COUNT('+SumExpression.Text+') FROM 工资表 WHERE '+DataFrm.TgzxjsSubQuery.AsString+')';

   DataFrm.TgzxjsSingleExp.AsString := DataFrm.TgzxjsSingleExp.AsString + 'COUNT('+SumExpression.Text+')';

   end;

   end;

   DataFrm.Tgzxjs.Post;

  end;

  end;

  end;

  {下面过程通过响应双击鼠标将对应的算术运算符+、-、X、/、(、)加到计算表
达式 }

  procedure TGzxFzjsDlg.AddOperationalCharacterDblClick(Sender: TObject);

  begin

  DataFrm.Tgzxjs.Edit;

  GzxFzjsDlg.Expression.Text := GzxFzjsDlg.Expression.Text + ListBox2.Items[ListBox2.ItemIndex];

  DataFrm.TgzxjsSingleExp.AsString := DataFrm.TgzxjsSingleExp.AsString + ListBox2.Items[ListBox2.ItemIndex];

  DataFrm.Tgzxjs.Post;

  end;

  {下面的过程是在用户按下“执行当前工资项计算”按钮后执行的,它的任务是对话
框显示的被定义工资项,对工资表中的该字段根据条件表达式和计算表达式进行重新计
算}

  procedure TGzxFzjsDlg.OKBtnClick(Sender: TObject);

  begin

  if DataFrm.Sgzxjs.State IN [dsEdit,dsInsert] then

   ShowMessage('记录正在编辑或插入状态,现退回!')

  else

  begin

  if Data.Confirm('真的需要根据条件和表达式对工资项 '+DataFrm.TgzxjsGzx.Value+' 执行工资项赋值吗?') then

  begin

  MyPromptFrm.Show; //显示进度和图片

  MyPromptFrm.Update;

  try

  DataFrm.DynamicQuery.Close;

  DataFrm.DynamicQuery.SQL.Clear;

  DataFrm.DynamicQuery.SQL.Add('UPDATE 工资表 SET '+DataFrm.TgzxjsGzx.Value+' = '+GzxFzjsDlg.Expression.Text);

  if DataFrm.TgzxjsSubQuery.AsString 〈〉 '' then

   DataFrm.DynamicQuery.SQL.Add(' Where '+DataFrm.TgzxjsSubQuery.AsString) ;

  DataFrm.DynamicQuery.ExecSQL;

  finally

  MyPromptFrm.Close;

  end;

  DataFrm.Tgz.Refresh;

  end;

  end;

  end;

  {下面的过程是在用户按下“执行批量计算”按钮后执行的,它的任务是对工资项
计算定义表中所定义的、并且批量处理标志为真的所有工资字段根据批量处理顺序、
条件表达式和计算表达式进行重新计算}

  procedure TGzxFzjsDlg.Button1Click(Sender: TObject);

  begin

  if DataFrm.Sgzxjs.State IN [dsEdit,dsInsert] then

   ShowMessage('记录正在编辑或插入状态,现退回!')

  else

  begin

  if Data.Confirm('真的需要执行批量工资项赋值吗?') then

  begin

  MyPromptFrm.Show;

  MyPromptFrm.Update;

  try

   DataFrm.Tgzxjs.First;

   while not DataFrm.Tgzxjs.Eof do

   begin

   if DataFrm.TgzxjsIsCurrent.Value = 1 then

   begin

   DataFrm.DynamicQuery.Close;

   DataFrm.DynamicQuery.SQL.Clear;

   DataFrm.DynamicQuery.SQL.Add('UPDATE 工资表 SET '+DataFrm.TgzxjsGzx.Value+' = '+GzxFzjsDlg.Expression.Text);

   if DataFrm.TgzxjsSubQuery.AsString 〈〉 '' then

   DataFrm.DynamicQuery.SQL.Add(' Where '+DataFrm.TgzxjsSubQuery.AsString) ;

   DataFrm.DynamicQuery.ExecSQL;

   end;

   if DataFrm.TgzxjsGzx.Value = '#37' then

   Gz.JsSds;

   DataFrm.Tgzxjs.Next;

   end;

  finally

   MyPromptFrm.Close;

  end;

  DataFrm.Tgz.Refresh;

  end;

  end;

  end;

  end. 

……

相关阅读