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

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

Delphi控件源码

开发平台：

Delphi

MultiRec.pas：源码内容
  1. unit MultiRec;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, Mask, DBCtrls, DBTables, DB, ComCtrls, ExtCtrls, DBCGrids;
  9. type
  10.   TForm1 = class(TForm)
  11.     DBCtrlGrid1: TDBCtrlGrid;
  12.     Table1: TTable;
  13.     DataSource1: TDataSource;
  14.     Table1Name: TStringField;
  15.     Table1Capital: TStringField;
  16.     Table1Continent: TStringField;
  17.     Table1Area: TFloatField;
  18.     Table1Population: TFloatField;
  19.     DBEdit1: TDBEdit;
  20.     DBEdit2: TDBEdit;
  21.     Label1: TLabel;
  22.     Label2: TLabel;
  23.     Panel1: TPanel;
  24.     TrackBar1: TTrackBar;
  25.     LabelCols: TLabel;
  26.     procedure TrackBar1Change(Sender: TObject);
  27.     procedure FormResize(Sender: TObject);
  28.   private
  29.     { Private declarations }
  30.   public
  31.     { Public declarations }
  32.   end;
  34. var
  35.   Form1: TForm1;
  37. implementation
  39. {$R *.DFM}
  41. procedure TForm1.TrackBar1Change(Sender: TObject);
  42. begin
  43.   LabelCols.Caption := Format (
  44.     '%d Columns', [TrackBar1.Position]);
  45.   DBCtrlGrid1.ColCount := TrackBar1.Position;
  46.   DBCtrlGrid1.Width := ClientWidth;
  47. end;
  49. procedure TForm1.FormResize(Sender: TObject);
  50. begin
  51.   DBCtrlGrid1.RowCount :=
  52.     (ClientHeight - Panel1.Height) div 100;
  53.   DBCtrlGrid1.Height := ClientHeight - Panel1.Height;
  54.   DBCtrlGrid1.Width := ClientWidth;
  55. end;
  57. end.