unit3.pas

图书管理系统 简介 随着科学技术的飞速发展

unit Unit3;

interface

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

type
  Taddreaderfrm = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Edit3: TEdit;
    Label5: TLabel;
    Button1: TButton;
    Button2: TButton;
    Label6: TLabel;
    ComboBox1: TComboBox;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Edit4: TEdit;
    Label10: TLabel;
    Edit5: TEdit;
    sexedit: TEdit;
    Table1: TTable;
    Label11: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  addreaderfrm: Taddreaderfrm;

implementation

{$R *.dfm}



procedure Taddreaderfrm.Button1Click(Sender: TObject);
begin
  sexedit.Text:=combobox1.Text;
    if (edit1.text='') or (edit2.text='') or (edit3.text='') or (edit4.text='') then
                                                                    begin
                                                                    showmessage('关键字不能为空');
                                                                    abort;
                                                                    end;
   table1.Open;
   table1.IndexFieldNames:='学号';
   if table1.FindKey([edit2.Text]) then

                                     showmessage('已存在这个同学的学号')

      else
        begin
        table1.InsertRecord([edit2.text,edit1.Text,edit3.Text,sexedit.Text,edit4.Text,edit5.Text,5,0,'1']);
         showmessage('添加成功');
         edit1.Text:='';
   edit2.Text:='';
  edit3.Text:='';
   edit4.Text:='';
   edit5.Text:='';
         end;



end;

procedure Taddreaderfrm.Button2Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';

end;

end.