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

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

Delphi控件源码

开发平台：

Delphi

NonAwF.pas：源码内容
  1. unit NonAwF;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   DBTables, DB, StdCtrls, Grids, DBGrids, ComCtrls, DBActns, ActnList,
  8.   Mask, DBCtrls;
  10. type
  11.   TForm1 = class(TForm)
  12.     Table1: TTable;
  13.     EditName: TEdit;
  14.     Table1Name: TStringField;
  15.     Table1Capital: TStringField;
  16.     Table1Continent: TStringField;
  17.     Table1Area: TFloatField;
  18.     Table1Population: TFloatField;
  19.     EditCapital: TEdit;
  20.     EditPopulation: TEdit;
  21.     EditArea: TEdit;
  22.     Label1: TLabel;
  23.     Label2: TLabel;
  24.     Label3: TLabel;
  25.     Label4: TLabel;
  26.     Label5: TLabel;
  27.     ComboContinent: TComboBox;
  28.     Button1: TButton;
  29.     Button2: TButton;
  30.     StatusBar1: TStatusBar;
  31.     Button3: TButton;
  32.     Button4: TButton;
  33.     Button5: TButton;
  34.     ActionList1: TActionList;
  35.     DBEdit1: TDBEdit;
  36.     ActionNext: TAction;
  37.     ActionPrior: TAction;
  38.     ActionInsert: TAction;
  39.     ActionPost: TAction;
  40.     ActionCancel: TAction;
  41.     DataSource1: TDataSource;
  42.     procedure DataSource1DataChange(Sender: TObject; Field: TField);
  43.     procedure Table1BeforePost(DataSet: TDataSet);
  44.     procedure Table1AfterInsert(DataSet: TDataSet);
  45.     procedure EditKeyPress(Sender: TObject; var Key: Char);
  46.     procedure ComboContinentDropDown(Sender: TObject);
  47.     procedure DataSource1StateChange(Sender: TObject);
  48.     procedure EditNameExit(Sender: TObject);
  49.     procedure EditCapitalExit(Sender: TObject);
  50.     procedure ComboContinentExit(Sender: TObject);
  51.     procedure EditPopulationExit(Sender: TObject);
  52.     procedure EditAreaExit(Sender: TObject);
  53.     procedure ActionCancelExecute(Sender: TObject);
  54.     procedure ActionPriorExecute(Sender: TObject);
  55.     procedure ActionInsertExecute(Sender: TObject);
  56.     procedure ActionPostExecute(Sender: TObject);
  57.     procedure ActionNextExecute(Sender: TObject);
  58.     procedure ActionNextUpdate(Sender: TObject);
  59.     procedure ActionPriorUpdate(Sender: TObject);
  60.     procedure ActionInsertUpdate(Sender: TObject);
  61.     procedure ActionPostUpdate(Sender: TObject);
  62.     procedure ActionCancelUpdate(Sender: TObject);
  63.   private
  64.     { Private declarations }
  65.   public
  66.     { Public declarations }
  67.   end;
  69. var
  70.   Form1: TForm1;
  72. implementation
  74. {$R *.DFM}
  76. procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
  77. begin
  78.   EditName.Text := Table1Name.AsString;
  79.   EditCapital.Text := Table1Capital.AsString;
  80.   ComboContinent.Text := Table1Continent.AsString;
  81.   EditArea.Text := Table1Area.AsString;
  82.   EditPopulation.Text := Table1Population.AsString;
  83. end;
  85. procedure TForm1.Table1BeforePost(DataSet: TDataSet);
  86. begin
  87.   if Table1Area.Value < 100 then
  88.     raise Exception.Create ('Area too small');
  89. end;
  91. procedure TForm1.Table1AfterInsert(DataSet: TDataSet);
  92. begin
  93.   Table1Continent.Value := 'Asia'; 
  94. end;
  96. procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);
  97. begin
  98.   if not (Table1.State in [dsEdit, dsInsert]) then
  99.     Table1.Edit;
  100. end;
  102. procedure TForm1.ComboContinentDropDown(Sender: TObject);
  103. begin
  104.   if not (Table1.State in [dsEdit, dsInsert]) then
  105.     Table1.Edit;
  106. end;
  108. procedure TForm1.DataSource1StateChange(Sender: TObject);
  109. var
  110.   strStatus: string;
  111. begin
  112.   case Table1.State of
  113.     dsBrowse: strStatus := 'Browse';
  114.     dsEdit: strStatus := 'Edit';
  115.     dsInsert: strStatus := 'Insert';
  116.   else
  117.     strStatus := 'Other state';
  118.   end;
  119.   StatusBar1.SimpleText := strStatus;
  120. end;
  122. procedure TForm1.EditNameExit(Sender: TObject);
  123. begin
  124.   if Table1.State in [dsEdit, dsInsert] then
  125.     if EditName.Text <> '' then
  126.       Table1Name.AsString := EditName.Text
  127.     else
  128.     begin
  129.       EditName.SetFocus;
  130.       raise Exception.Create ('Undefined Country');
  131.     end;
  132. end;
  134. procedure TForm1.EditCapitalExit(Sender: TObject);
  135. begin
  136.   if Table1.State in [dsEdit, dsInsert] then
  137.     Table1Capital.AsString := EditCapital.Text;
  138. end;
  140. procedure TForm1.ComboContinentExit(Sender: TObject);
  141. begin
  142.   if Table1.State in [dsEdit, dsInsert] then
  143.     Table1Continent.AsString := ComboContinent.Text;
  144. end;
  146. procedure TForm1.EditPopulationExit(Sender: TObject);
  147. begin
  148.   if Table1.State in [dsEdit, dsInsert] then
  149.     Table1Population.AsString := EditPopulation.Text;
  150. end;
  152. procedure TForm1.EditAreaExit(Sender: TObject);
  153. begin
  154.   if Table1.State in [dsEdit, dsInsert] then
  155.     Table1Area.AsString := EditArea.Text;
  156. end;
  158. procedure TForm1.ActionCancelExecute(Sender: TObject);
  159. begin
  160.   Table1.Cancel;
  161. end;
  163. procedure TForm1.ActionPriorExecute(Sender: TObject);
  164. begin
  165.   Table1.Prior
  166. end;
  168. procedure TForm1.ActionInsertExecute(Sender: TObject);
  169. begin
  170.   Table1.Insert;
  171. end;
  173. procedure TForm1.ActionPostExecute(Sender: TObject);
  174. begin
  175.   Table1.Post;
  176. end;
  178. procedure TForm1.ActionNextExecute(Sender: TObject);
  179. begin
  180.   Table1.Next;
  181. end;
  183. procedure TForm1.ActionNextUpdate(Sender: TObject);
  184. begin
  185.   ActionNext.Enabled := not Table1.EOF; 
  186. end;
  188. procedure TForm1.ActionPriorUpdate(Sender: TObject);
  189. begin
  190.   ActionPrior.Enabled := not Table1.BOF;
  191. end;
  193. procedure TForm1.ActionInsertUpdate(Sender: TObject);
  194. begin
  195.   ActionInsert.Enabled := Table1.State = dsBrowse;
  196. end;
  198. procedure TForm1.ActionPostUpdate(Sender: TObject);
  199. begin
  200.   ActionPost.Enabled := Table1.State in [dsEdit, dsInsert];
  201. end;
  203. procedure TForm1.ActionCancelUpdate(Sender: TObject);
  204. begin
  205.   ActionCancel.Enabled := Table1.State in [dsEdit, dsInsert];
  206. end;
  208. end.