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

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

Delphi控件源码

开发平台：

Delphi

DbTrackF.pas：源码内容
  1. unit DbTrackF;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls,
  7.   Forms, Dialogs, DB, ExtCtrls, DBCtrls, StdCtrls, ComCtrls,
  8.   DBTables, Mask, MdTrack;
  10. type
  11.   TForm1 = class(TForm)
  12.     Label1: TLabel;
  13.     Label2: TLabel;
  14.     Label3: TLabel;
  15.     Label4: TLabel;
  16.     Label5: TLabel;
  17.     DBText1: TDBText;
  18.     DBEdit1: TDBEdit;
  19.     DBEdit2: TDBEdit;
  20.     DBEdit3: TDBEdit;
  21.     DBEdit5: TDBEdit;
  22.     DBNavigator1: TDBNavigator;
  23.     Table1: TTable;
  24.     Table1OrderNo: TFloatField;
  25.     Table1ItemNo: TFloatField;
  26.     Table1PartNo: TFloatField;
  27.     Table1Qty: TIntegerField;
  28.     Table1Discount: TFloatField;
  29.     DataSource2: TDataSource;
  30.     MdDbTrack1: TMdDbTrack;
  31.     MdDbTrack2: TMdDbTrack;
  32.     CheckTable: TCheckBox;
  33.     BtnConnect: TButton;
  34.     BtnDisconnect: TButton;
  35.     Bevel1: TBevel;
  36.     procedure CheckTableClick(Sender: TObject);
  37.     procedure BtnConnectClick(Sender: TObject);
  38.     procedure BtnDisconnectClick(Sender: TObject);
  39.   private
  40.     { Private declarations }
  41.   public
  42.     { Public declarations }
  43.   end;
  45. var
  46.   Form1: TForm1;
  48. implementation
  50. {$R *.DFM}
  52. procedure TForm1.CheckTableClick(Sender: TObject);
  53. begin
  54.   Table1.Active := CheckTable.Checked;
  55. end;
  57. procedure TForm1.BtnConnectClick(Sender: TObject);
  58. begin
  59.   MdDbTrack2.DataField := 'Discount';
  60. end;
  62. procedure TForm1.BtnDisconnectClick(Sender: TObject);
  63. begin
  64.   MdDbTrack2.DataField := '';
  65. end;
  67. end.