Курсовая работа: Разработка базы данных

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, Menus, StdCtrls;

type

TForm1 = class(TForm)

sg: TStringGrid;

mm: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

procedure FormCreate(Sender: TObject);

procedure N2Click(Sender: TObject); // Процедура нажатия пункта в главнам меню Фаил - Сохранить

procedure N3Click(Sender: TObject); // Процедура нажатия пункта в главнам меню Фаил - Загрузить

procedure N5Click(Sender: TObject); // Процедура нажатия пункта в главнам меню Файл - Выход

procedure N7Click(Sender: TObject); // Процедура нажатия пункта в главнам меню Продавец - Добавить

procedure N8Click(Sender: TObject); // Процедура нажатия пункта в главнам меню Продавец - Удалить

procedure N9Click(Sender: TObject); // Процедура нажатия пункта в главнам меню Продавец - Редактировать

procedure N10Click(Sender: TObject); // Процедура нажатия пункта в главнам меню Отчет

procedure N11Click(Sender: TObject); // Процедура нажатия пункта в главнам меню О программе private

{ Private declarations }

public

{ Public declarations }