unit6.~pas

上次我同样上传了个score-manager

unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, Buttons, StdCtrls, Mask, DBCtrls, ExtCtrls;

type
  Tregform = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DataSource1: TDataSource;
    Table1: TTable;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  regform: Tregform;

implementation

{$R *.dfm}

procedure Tregform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

procedure Tregform.BitBtn1Click(Sender: TObject);
begin
  if (edit1.Text = '') and (edit2.Text ='')and(edit3.Text ='')then
  messagedlg('没有输入新记录的字段值!',mterror,[mbcancel],0)
  else
  with table1 do
   begin
    indexfieldnames:='编号';
    if findkey([edit1.text]) then
    messagedlg('已经存在这条记录!',mterror,[mbcancel],0)
    else
    insertrecord([edit1.text,edit2.Text,edit3.Text,nil]);
    showmessage('成功注册!');
    edit1.Text := '';
    edit2.Text := '';
    edit3.Text := '';
   end;

end;

end.