Код программы. 
Разработка автоматизированной базы данных "Аптека"

Код главной формы.

unit Unit1;

interface.

uses.

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

Dialogs, StdCtrls, jpeg, ExtCtrls, Grids, DBGrids, Menus, XPMan;

type.

TForm1 = class (TForm).

MainMenu1: TMainMenu;

Image1: TImage;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

XPManifest1: TXPManifest;

procedure Button4Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure N5Click (Sender: TObject);

procedure N3Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form1: TForm1;

implementation.

uses unit2, unit3, unit4, unit6;

{$R *.dfm}.

procedure TForm1. Button4Click (Sender: TObject);

begin.

Close;

end;

procedure TForm1. Button1Click (Sender: TObject);

begin.

Form2.Show;

end;

procedure TForm1. Button2Click (Sender: TObject);

begin.

Form3.Show;

end;

procedure TForm1. Button3Click (Sender: TObject);

begin.

Form4.Show;

end;

procedure TForm1. N5Click (Sender: TObject);

begin.

Close;

end;

procedure TForm1. N3Click (Sender: TObject);

begin.

Form6.Show.

end;

end.

Код формы 2. Список лекарств.

unit Unit2;

interface.

uses.

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

Dialogs, Unit5, Grids, DBGrids, ExtCtrls, StdCtrls, DBCtrls, XPMan;

type.

TForm2 = class (TForm).

DBNavigator1: TDBNavigator;

DBGrid1: TDBGrid;

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form2: TForm2;

implementation.

{$R *.dfm}.

end.

Код формы 3. Фарм. группы.

unit Unit3;

interface.

uses.

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

Dialogs, Unit5, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls;

type.

TForm3 = class (TForm).

DBNavigator1: TDBNavigator;

DBGrid1: TDBGrid;

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form3: TForm3;

implementation.

{$R *.dfm}.

end.

Код формы 4. Книга продаж.

unit Unit4;

interface.

uses.

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

Dialogs, Unit5, Grids, DBGrids, ExtCtrls, StdCtrls, DBCtrls;

type.

TForm4 = class (TForm).

DBNavigator1: TDBNavigator;

DBGrid1: TDBGrid;

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form4: TForm4;

implementation.

{$R *.dfm}.

end.

Код DataModule5.

unit Unit5;

interface.

uses.

SysUtils, Classes, DB, DBTables;

type.

TDataModule5 = class (TDataModule).

DS_ProductInformation: TDataSource;

Database1: TDatabase;

TableProductInformation: TTable;

TableFarmGroups: TTable;

TableProdagi: TTable;

DS_FarmGroups: TDataSource;

DS_Prodagi: TDataSource;

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

DataModule5: TDataModule5;

implementation.

{$R *.dfm}.

end.

Код формы 6. О программе.

unit Unit6;

interface.

uses.

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

Dialogs, StdCtrls, jpeg, ExtCtrls;

type.

TForm6 = class (TForm).

Memo1: TMemo;

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Button1: TButton;

procedure Button1Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form6: TForm6;

implementation.

{$R *.dfm}.

procedure TForm6. Button1Click (Sender: TObject);

begin.

Close;

end;

end.