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

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

Delphi控件源码

开发平台：

Delphi

CheckF.pas：源码内容
  1. unit CheckF;
  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.     Table1LastName: TStringField;
  14.     Table1FirstName: TStringField;
  15.     Table1Department: TSmallintField;
  16.     Table1Branch: TStringField;
  17.     Table1Senior: TBooleanField;
  18.     Table1HireDate: TDateField;
  19.     DBGrid1: TDBGrid;
  20.     DBCheckBox1: TDBCheckBox;
  21.     procedure FormCreate(Sender: TObject);
  22.     procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  23.       DataCol: Integer; Column: TColumn; State: TGridDrawState);
  24.     procedure DBGrid1ColEnter(Sender: TObject);
  25.     procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
  26.   private
  27.     { Private declarations }
  28.   end;
  30. var
  31.   DbaForm: TDbaForm;
  33. implementation
  35. {$R *.DFM}
  37. procedure TDbaForm.FormCreate(Sender: TObject);
  38. begin
  39.   if not Table1.Exists then
  40.   begin
  41.     Table1.CreateTable;
  42.     ShowMessage ('You can add data to this table'#13 +
  43.       'by using the DbAware example of Chapter 9');
  44.   end;
  45.   Table1.Open;
  46. end;
  48. procedure TDbaForm.DBGrid1DrawColumnCell(Sender: TObject;
  49.   const Rect: TRect; DataCol: Integer; Column: TColumn;
  50.   State: TGridDrawState);
  51. begin
  52.   if (gdFocused in State) and
  53.     (Column.Field = Table1Senior) then
  54.   begin
  55.     DBCheckBox1.SetBounds (
  56.       Rect.Left + DBGrid1.Left + 1,
  57.       Rect.Top + DBGrid1.Top + 1,
  58.       Rect.Right - Rect.Left + 1,
  59.       Rect.Bottom - Rect.Top + 1);
  60.   end;
  61. end;
  63. procedure TDbaForm.DBGrid1ColEnter(Sender: TObject);
  64. begin
  65.   if DBGrid1.Columns [DBGrid1.SelectedIndex].
  66.       Field = Table1Senior then
  67.     DBCheckBox1.Visible := True
  68.   else
  69.     DBCheckBox1.Visible := False;
  70. end;
  72. procedure TDbaForm.DBGrid1KeyPress(Sender: TObject; var Key: Char);
  73. begin
  74.   if DBCheckBox1.Visible and (Ord (Key) > 31) then
  75.   begin
  76.     Key := #0;
  77.     Table1.Edit;
  78.     DBCheckBox1.Checked := not
  79.       DBCheckBox1.Checked;
  80.     DBCheckBox1.Field.AsBoolean :=
  81.       DBCheckBox1.Checked;
  82.   end;
  83. end;
  85. end.