开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
CalcF.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：2k
源码类别：

Delphi控件源码

开发平台：

Delphi

CalcF.pas：源码内容
  1. unit CalcF;
  3. interface
  5. uses
  6.   SysUtils, Windows, Messages, Classes, Graphics, Controls,
  7.   StdCtrls, Forms, DBCtrls, DB, DBGrids, DBTables, Grids, ExtCtrls;
  9. type
  10.   TCalcForm = class(TForm)
  11.     DBGrid1: TDBGrid;
  12.     DBNavigator: TDBNavigator;
  13.     Panel1: TPanel;
  14.     Panel2: TPanel;
  15.     DataSource1: TDataSource;
  16.     Table1: TTable;
  17.     Table1PopulationDensity: TFloatField;
  18.     Table1Area: TFloatField;
  19.     Table1Population: TFloatField;
  20.     Table1Name: TStringField;
  21.     Table1Capital: TStringField;
  22.     Table1Continent: TStringField;
  23.     procedure FormCreate(Sender: TObject);
  24.     procedure Table1CalcFields(DataSet: TDataset);
  25.     procedure DBGrid1EditButtonClick(Sender: TObject);
  26.   private
  27.     { private declarations }
  28.   public
  29.     { public declarations }
  30.   end;
  32. var
  33.   CalcForm: TCalcForm;
  35. implementation
  37. uses Dialogs;
  39. {$R *.DFM}
  41. procedure TCalcForm.FormCreate(Sender: TObject);
  42. begin
  43.   Table1.Open;
  44. end;
  46. procedure TCalcForm.Table1CalcFields(DataSet: TDataset);
  47. begin
  48.   // plain version (very dangerous)
  49. {  Table1PopulationDensity.Value :=
  50.     Table1Population.Value / Table1Area.Value;}
  52.   // version based on exceptions (ok)
  53. {  try
  54.     Table1PopulationDensity.Value :=
  55.       Table1Population.Value / Table1Area.Value;
  56.   except
  57.     on Exception do
  58.       Table1PopulationDensity.Value := 0;
  59.   end;}
  61.   // definitive version
  62.   if not Table1Area.IsNull and
  63.       (Table1Area.Value <> 0) then
  64.     Table1PopulationDensity.Value :=
  65.       Table1Population.Value / Table1Area.Value
  66.   else
  67.       Table1PopulationDensity.Value := 0;
  68. end;
  70. procedure TCalcForm.DBGrid1EditButtonClick(Sender: TObject);
  71. begin
  72.   MessageDlg (Format (
  73.     'The population density (%.2n)'#13 +
  74.     'is the Population (%.0n)'#13 +
  75.     'devided by the Area (%.0n).'#13#13 +
  76.     'Edit these two fields to change it.',
  77.     [Table1PopulationDensity.AsFloat,
  78.     Table1Population.AsFloat,
  79.     Table1Area.AsFloat]),
  80.     mtInformation, [mbOK], 0);
  81. end;
  83. end.