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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
progressdemo.pas
资源名称：qqdelphiprog.rar　[点击查看]
上传用户：hylc_2004
上传日期：2014-01-23
资源大小：46800k
文件大小：3k
源码类别：

Delphi控件源码

开发平台：

Delphi

progressdemo.pas：源码内容
  1. unit progressdemo;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  7.   Dialogs, dbcgrids, DB, DBTables, ExtCtrls, fcpanel,
  8.   fctrackbar, ComCtrls, fcLabel, StdCtrls, fcDemoRichEdit, Grids, DBGrids,
  9.   fcProgressBar, Gauges;
  11. type
  12.   TProgressForm = class(TForm)
  13.     fcGroupBox1: TfcGroupBox;
  14.     fcDemoRichEdit1: TfcDemoRichEdit;
  15.     fcGroupBox4: TfcGroupBox;
  16.     DBCtrlGrid1: TDBCtrlGrid;
  17.     DataSource1: TDataSource;
  18.     Table1: TTable;
  19.     fcProgressBar1: TfcProgressBar;
  20.     Table1OrderNo: TFloatField;
  21.     Table1CustNo: TFloatField;
  22.     Table1SaleDate: TDateTimeField;
  23.     Table1ShipDate: TDateTimeField;
  24.     Table1EmpNo: TIntegerField;
  25.     Table1ShipToContact: TStringField;
  26.     Table1ShipToAddr1: TStringField;
  27.     Table1ShipToAddr2: TStringField;
  28.     Table1ShipToCity: TStringField;
  29.     Table1ShipToState: TStringField;
  30.     Table1ShipToZip: TStringField;
  31.     Table1ShipToCountry: TStringField;
  32.     Table1ShipToPhone: TStringField;
  33.     Table1ShipVIA: TStringField;
  34.     Table1PO: TStringField;
  35.     Table1Terms: TStringField;
  36.     Table1PaymentMethod: TStringField;
  37.     Table1ItemsTotal: TCurrencyField;
  38.     Table1TaxRate: TFloatField;
  39.     Table1Freight: TCurrencyField;
  40.     Table1AmountPaid: TCurrencyField;
  41.     Table1PercentPaid: TFloatField;
  42.     fcProgressBar2: TfcProgressBar;
  43.     fcProgressBar3: TfcProgressBar;
  44.     Timer1: TTimer;
  45.     procedure fcTrackBar6DrawTickText(Sender: TObject; TickValue: Double;
  46.       var ATickText: String; var ARect: TRect; var DoDefault: Boolean);
  47.     procedure Table1CalcFields(DataSet: TDataSet);
  48.     procedure Timer1Timer(Sender: TObject);
  49.   private
  50.     { Private declarations }
  51.   public
  52.     { Public declarations }
  53.   end;
  55. var
  56.   ProgressForm: TProgressForm;
  58. implementation
  60. {$R *.dfm}
  62. procedure TProgressForm.fcTrackBar6DrawTickText(Sender: TObject;
  63.   TickValue: Double; var ATickText: String; var ARect: TRect;
  64.   var DoDefault: Boolean);
  65. var TickInt: integer;
  66. begin
  67.   TickInt:= Round(TickValue);
  68.   if (abs(TickValue-TickInt)<0.01) then
  69.   begin
  70.     case TickInt of
  71.       0: ATickText:= 'Low';
  72.       1: ATickText:= 'Medium';
  73.       2: ATickText:= 'High';
  74.       3: ATickText:= 'Top Priority';
  75.     end;
  76.   end;
  77. end;
  79. procedure TProgressForm.Table1CalcFields(DataSet: TDataSet);
  80. begin
  81. dataset.fieldbyname('PercentPaid').asinteger:=
  82.    trunc(dataset.fieldbyname('AmountPaid').asfloat/
  83.          dataset.fieldbyname('ItemsTotal').asfloat * 100);
  85. end;
  87. procedure TProgressForm.Timer1Timer(Sender: TObject);
  88. begin
  89.   if fcprogressbar2.progress>=100 then
  90.   begin
  91.      fcprogressbar2.Progress:=0;
  92.      fcprogressbar3.progress:=0;
  93.   end;
  94.   fcprogressbar2.StepIt;
  95.   fcprogressbar3.StepIt;
  96. end;
  98. end.