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

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

Delphi控件源码

开发平台：

Delphi

FldTextF.pas：源码内容
  1. unit FldTextF;
  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.     DBCheckBox1: TDBCheckBox;
  21.     DBEdit1: TDBEdit;
  22.     DBEdit2: TDBEdit;
  23.     DBComboBox1: TDBComboBox;
  24.     DBText1: TDBText;
  25.     Label1: TLabel;
  26.     Label2: TLabel;
  27.     Label3: TLabel;
  28.     Label4: TLabel;
  29.     DBListBox1: TDBListBox;
  30.     Table1LastName: TStringField;
  31.     Table1FirstName: TStringField;
  32.     Table1Department: TSmallintField;
  33.     Table1Branch: TStringField;
  34.     Table1Senior: TBooleanField;
  35.     Table1HireDate: TDateField;
  36.     procedure FormCreate(Sender: TObject);
  37.     procedure Table1DepartmentGetText(Sender: TField; var Text: String;
  38.       DisplayText: Boolean);
  39.     procedure Table1DepartmentSetText(Sender: TField; const Text: String);
  40.   private
  41.     { Private declarations }
  42.   end;
  44. var
  45.   DbaForm: TDbaForm;
  47. implementation
  49. {$R *.DFM}
  51. procedure TDbaForm.FormCreate(Sender: TObject);
  52. begin
  53.   if not Table1.Exists then
  54.   begin
  55.     Table1.CreateTable;
  56.     ShowMessage ('You can add data to this table'#13 +
  57.       'by using the DbAware example of Chapter 11');
  58.   end;
  59.   Table1.Open;
  60. end;
  62. procedure TDbaForm.Table1DepartmentGetText(Sender: TField;
  63.   var Text: String; DisplayText: Boolean);
  64. begin
  65.   case Sender.AsInteger of
  66.     1: Text := 'Sales';
  67.     2: Text := 'Accounting';
  68.     3: Text := 'Production';
  69.     4: Text := 'Management';
  70.   else
  71.     Text := '[Error]';
  72.   end;
  73. end;
  75. procedure TDbaForm.Table1DepartmentSetText(Sender: TField;
  76.   const Text: String);
  77. begin
  78.   if Text = 'Sales' then
  79.     Sender.Value := 1
  80.   else if Text = 'Accounting' then
  81.     Sender.Value := 2
  82.   else if Text = 'Production' then
  83.     Sender.Value := 3
  84.   else if Text = 'Management' then
  85.     Sender.Value := 4
  86.   else
  87.     raise Exception.Create ('Error in Department field conversion');
  88. end;
  90. end.
  91.