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

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

Delphi控件源码

开发平台：

Delphi

CalcForm.pas：源码内容
  1. unit CalcForm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Db, Grids, DBGrids, DBClient, DBTables, StdCtrls, Mask, DBCtrls, ExtCtrls,
  8.   Provider;
  10. type
  11.   TForm1 = class(TForm)
  12.     Table1: TTable;
  13.     ClientDataSet1: TClientDataSet;
  14.     DataSource1: TDataSource;
  15.     DBGrid1: TDBGrid;
  16.     ClientDataSet1Name: TStringField;
  17.     ClientDataSet1Capital: TStringField;
  18.     ClientDataSet1Continent: TStringField;
  19.     ClientDataSet1Area: TFloatField;
  20.     ClientDataSet1Population: TFloatField;
  21.     ClientDataSet1TotalArea: TAggregateField;
  22.     Panel1: TPanel;
  23.     Label2: TLabel;
  24.     DBEdit1: TDBEdit;
  25.     Button1: TButton;
  26.     Label1: TLabel;
  27.     DataSetProvider1: TDataSetProvider;
  28.     procedure Button1Click(Sender: TObject);
  29.     procedure ClientDataSet1ContinentGetText(Sender: TField;
  30.       var Text: String; DisplayText: Boolean);
  31.     procedure FormCreate(Sender: TObject);
  32.     procedure UpdateData(DataSet: TDataSet);
  33.   public
  34.     { Public declarations }
  35.   end;
  37. var
  38.   Form1: TForm1;
  40. implementation
  42. {$R *.DFM}
  44. procedure TForm1.Button1Click(Sender: TObject);
  45. begin
  46.   Label1.Caption :=
  47.     'Area: ' + ClientDataSet1TotalArea.DisplayText +
  48.     #13'Population : ' + FormatFloat ('###,###,###', ClientDataSet1.Aggregates [1].Value) +
  49.     #13'Number : ' + IntToStr (ClientDataSet1.Aggregates [0].Value);
  50. end;
  52. procedure TForm1.ClientDataSet1ContinentGetText(Sender: TField;
  53.   var Text: String; DisplayText: Boolean);
  54. begin
  55.   if gbFirst in ClientDataSet1.GetGroupState (1) then
  56.     Text := Sender.AsString
  57.   else
  58.     Text := '';
  59. end;
  61. procedure TForm1.FormCreate(Sender: TObject);
  62. begin
  63.   ClientDataSet1.Active := True;
  64. end;
  66. procedure TForm1.UpdateData(DataSet: TDataSet);
  67. begin
  68.   ClientDataSet1.ApplyUpdates(0);
  69. end;
  71. end.