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

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

Delphi控件源码

开发平台：

Delphi

SendToF.pas：源码内容
  1. unit SendToF;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   DBTables, DB, StdCtrls, Grids, DBGrids, ComCtrls;
  9. type
  10.   TForm1 = class(TForm)
  11.     Table1: TTable;
  12.     Table1Name: TStringField;
  13.     Table1Capital: TStringField;
  14.     Table1Continent: TStringField;
  15.     Table1Area: TFloatField;
  16.     Table1Population: TFloatField;
  17.     EditCapital: TEdit;
  18.     EditPopulation: TEdit;
  19.     EditArea: TEdit;
  20.     Label1: TLabel;
  21.     Label2: TLabel;
  22.     Label3: TLabel;
  23.     Label4: TLabel;
  24.     Label5: TLabel;
  25.     ComboContinent: TComboBox;
  26.     Button1: TButton;
  27.     Button2: TButton;
  28.     ComboName: TComboBox;
  29.     procedure Button1Click(Sender: TObject);
  30.     procedure Button2Click(Sender: TObject);
  31.     procedure FormCreate(Sender: TObject);
  32.     procedure ComboNameKeyPress(Sender: TObject; var Key: Char);
  33.     procedure ComboNameClick(Sender: TObject);
  34.   private
  35.     { Private declarations }
  36.   public
  37.     procedure GetData;
  38.     procedure SendData;
  39.   end;
  41. var
  42.   Form1: TForm1;
  44. implementation
  46. {$R *.DFM}
  48. procedure TForm1.GetData;
  49. begin
  50.   Table1.FindNearest ([ComboName.Text]);
  51.   ComboName.Text := Table1Name.AsString;
  52.   EditCapital.Text := Table1Capital.AsString;
  53.   ComboContinent.Text := Table1Continent.AsString;
  54.   EditArea.Text := Table1Area.AsString;
  55.   EditPopulation.Text := Table1Population.AsString;
  56. end;
  58. procedure TForm1.SendData;
  59. begin
  60.   // raise an exception if there is no name
  61.   if ComboName.Text = '' then
  62.     raise Exception.Create ('Insert the name');
  64.   // check if the record is already in the table    
  65.   if Table1.FindKey ([ComboName.Text]) then
  66.   begin
  67.     // modify found record
  68.     Table1.Edit;
  69.     Table1Capital.AsString := EditCapital.Text;
  70.     Table1Continent.AsString := ComboContinent.Text;
  71.     Table1Area.AsString := EditArea.Text;
  72.     Table1Population.AsString := EditPopulation.Text;
  73.     Table1.Post;
  74.   end
  75.   else
  76.   begin
  77.     // insert new record
  78.     Table1.InsertRecord ([ComboName.Text,
  79.       EditCapital.Text, ComboContinent.Text,
  80.       EditArea.Text, EditPopulation.Text]);
  81.     // add to list
  82.     ComboName.Items.Add (ComboName.Text)
  83.   end;
  84. end;
  86. procedure TForm1.Button1Click(Sender: TObject);
  87. begin
  88.   GetData;
  89. end;
  91. procedure TForm1.Button2Click(Sender: TObject);
  92. begin
  93.   SendData;
  94. end;
  96. procedure TForm1.FormCreate(Sender: TObject);
  97. begin
  98.   // fill the list of names
  99.   Table1.Open;
  100.   while not Table1.Eof do
  101.   begin
  102.     ComboName.Items.Add (Table1Name.AsString);
  103.     Table1.Next;
  104.   end;
  105. end;
  107. procedure TForm1.ComboNameKeyPress(Sender: TObject; var Key: Char);
  108. begin
  109.   if Key = #13 then
  110.     GetData;
  111. end;
  113. procedure TForm1.ComboNameClick(Sender: TObject);
  114. begin
  115.   GetData;
  116. end;
  118. end.