Готовые ????????? ??????

Диплом  Разработка электронного библиотечного каталога

Содержание:

unit Avtors;

interface

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

type
TfAvtors = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
DBGrid1: TDBGrid;
procedure Edit1Change(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
fAvtors: TfAvtors;

implementation

uses DM;

{$R *.dfm}

procedure TfAvtors.Edit1Change(Sender: TObject);
begin
Button1.Enabled := True;
end;

procedure TfAvtors.Button1Click(Sender: TObject);
begin
fDm.TAvtors.Append; //добавляем строку в конец таблицы
fDm.TAvtors['FIO'] := Edit1.Text; //присваиваем значение
fDm.TAvtors.Post; //принимаем изменения
Button1.Enabled := False; //снова отключаем кнопку
Edit1.Text := ''; //очищаем поле Edit

end;

procedure TfAvtors.Button2Click(Sender: TObject);
begin
//удаляем запись, если таблица не пуста:
if not fDm.TAvtors.Eof then fDm.TAvtors.Delete
else ShowMessage('Таблица пуста!');
end;

end.

Только программа на Delphi.