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

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

Delphi控件源码

开发平台：

Delphi

DbAwForm.pas：源码内容
  1. unit DbAwForm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Db, DBTables, StdCtrls, Mask, DBCtrls, ExtCtrls, Grids, DBGrids, ComCtrls;
  9. type
  10.   TDbaForm = class(TForm)
  11.     Table1: TTable;
  12.     DataSource1: TDataSource;
  13.     Panel1: TPanel;
  14.     Button2: TButton;
  15.     PageControl1: TPageControl;
  16.     TabSheet1: TTabSheet;
  17.     TabSheet2: TTabSheet;
  18.     DBGrid1: TDBGrid;
  19.     DBNavigator1: TDBNavigator;
  20.     DBRadioGroup1: TDBRadioGroup;
  21.     DBCheckBox1: TDBCheckBox;
  22.     DBEdit1: TDBEdit;
  23.     DBEdit2: TDBEdit;
  24.     DBComboBox1: TDBComboBox;
  25.     DBText1: TDBText;
  26.     Label1: TLabel;
  27.     Label2: TLabel;
  28.     Label3: TLabel;
  29.     Label4: TLabel;
  30.     procedure FormCreate(Sender: TObject);
  31.     procedure Button2Click(Sender: TObject);
  32.   private
  33.     { Private declarations }
  34.   public
  35.     procedure AddRandomData;
  36.   end;
  38. var
  39.   DbaForm: TDbaForm;
  41. implementation
  43. {$R *.DFM}
  45. procedure TDbaForm.FormCreate(Sender: TObject);
  46. begin
  47.   if not Table1.Exists then
  48.     Table1.CreateTable;
  49.   Table1.Open;
  50. end;
  52. procedure TDbaForm.Button2Click(Sender: TObject);
  53. begin
  54.   AddRandomData;
  55. end;
  57. const
  58.   FirstNames : array [1..10] of string =
  59.     ('John', 'Paul', 'Mark', 'Joseph', 'Bill',
  60.     'Peter', 'Tim', 'Ralph', 'Bob', 'Gary');
  61.   LastNames : array [1..10] of string =
  62.     ('Ford', 'Osborse', 'White', 'MacDonald', 'Lee',
  63.     'Young', 'Parker', 'Reed', 'Gates', 'Green');
  64.   NoDept = 4;
  65.   NoBranch = 30;
  66.   NewRecords = 10;
  68. procedure TDbaForm.AddRandomData;
  69. var
  70.   I: Integer;
  71. begin
  72.   Randomize;
  73.   for I := 1 to NewRecords do
  74.     Table1.InsertRecord ([
  75.       LastNames [Random (High (LastNames)) + 1],
  76.       FirstNames [Random (High (FirstNames)) + 1],
  77.       Random (NoDept) + 1,
  78.       DbComboBox1.Items [Random (NoBranch) + 1],
  79.       Boolean (Random (2)),
  80.       Date - Random (1000)]);
  81.   ShowMessage (IntToStr (NewRecords) + ' added');
  82. end;
  84. end.