Реферат Розробка програми "Автоматизована інформаційна довідкова система аптеки"

Тема: Новые рефераты

=x.naimlek;:=x.cena;;; (check);. Caption:=(« ; Найдорожчий препарат »+ naimmx +« коштує »+ floattostr (mx));. Caption:=(« Найдешевший препарат »+ naimmn +« коштує »+ floattostr (mn));; TForm5.Button2Click (Sender: TObject);;; TForm5.FormCreate (Sender: TObject);. Cells [0,0]:="Найменування препарату»;. cells [1,0]:=«Термін зберігання»;; TForm5. Button3Click (Sender: TObject); (sorg, «sorg»); (sorg); i:=1; not eof (sorg) do (sorg, y); y.srokchran> 3 then.cells [0, i]:=y.naimlek;. Cells [1, i]:=inttostr (y.srokchran );:=i +1;; end; (sorg);;. Unit6;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls;=class (TForm): TLabel;: TButton; Button1Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm6;

{$ R *. dfm} TForm6.Button1Click (Sender: TObject);;;. Unit7;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls;=class ( TForm): TLabel;: TLabel;: TLabel;: TButton; Button1Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm7;

{$ R *. dfm} TForm7.Button1Click (Sender: TObject);

begin;.

Додаток Б

Форми програми.

Головна форма:

Форма файлу «Лікарські засоби:

Форма файлу «Термін зберігання»:

Форма «Висновок дешевого і дорогого препарату»:

Форма «Відомість»:

Форма «Розробники»: