inputunit.pas

来自「数据库操作的简单例子 本程序是SQL的连接和初步使用。 一是要注册ODBC数据源」· PAS 代码 · 共 47 行

unit InputUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TInputForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  InputForm: TInputForm;

implementation

uses DataUnit;

{$R *.dfm}

procedure TInputForm.Button1Click(Sender: TObject);
begin
if (Length(Edit1.Text)<>0) and (Length(Edit2.Text)<>0) then
 begin
 Data.Table1.Append;
 Data.Table1.FieldByName('Name').AsString:=Edit1.Text;
  Data.Table1.FieldByName('IDNumber').AsString:=Edit2.Text;
   Data.Table1.FieldByName('Index').AsInteger:=Count;
   Data.Table1.Post;
   close;
 end;
 else
 ShowMessage('请填写完整！');
end;