в. Також на формі розташовані дві кнопки:
кнопка «Висновок відомості»: виводить відомість по двох файлів в StringGrid1;
кнопка «Вихід»: закриває форму.
Також на формі розташовані компоненти Label1 і Edit1:
компонент «Label1»: компонент виводить назву Editа1;
компонент «Edit1»: виводить суму всіх препаратів, попередньо порахувавши у процедурі.
Висновок
Мета, поставлена ??в курсовому проекті виконана. Розроблено програмний продукт «автоматизована інформаційна довідкова система аптеки», який може бути використаний в роботі фармацевтичних установах.
Список літератури:
1.Рудаков А.В. Технологія розробки програмних продуктів: навч. Посібник для студ. Сред.проф. освіти / О.В. Рудаков.- М.:
Видавничий центр «Академія», 2006. - 208 с
. Культин Н.Б. Основи програмування в Delphi - 7 - / Н.Б. Культин.-СПб: БХВ-Петербург, 2005. - 608 с.: Ил
Додаток А
програма інформація форматування тестування
Лістинг програми
unit Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Menus, StdCtrls;=class (TForm): TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem ;: TMenuItem;: TLabel;: TMenuItem;: TLabel;: TMenuItem;: TMenuItem; N4Click (Sender: TObject); N2Click (Sender: TObject); N3Click (Sender: TObject); N5Click (Sender: TObject); N6Click (Sender : TObject); N7Click (Sender: TObject); N8Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm1; Unit4, Unit2, Unit3, Unit5, Unit6, Unit7;
{$ R *. dfm} TForm1.N4Click (Sender: TObject);. Show;; TForm1.N2Click (Sender: TObject);. Show;; TForm1.N3Click (Sender: TObject); . Show;; TForm1.N5Click (Sender: TObject);;; TForm1.N6Click (Sender: TObject);. Show;; TForm1.N7Click (Sender: TObject);. Show;; TForm1.N8Click (Sender: TObject); . Show;;. Unit2;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Grids, Buttons, ExtCtrls;=class (TForm): TStringGrid;: TButton;: TButton;: TButton;: TButton ;: TButton;: TLabel;: TEdit;: TEdit;: TLabel;: TLabel;: TButton;: TButton;: TButton; Button7Click (Sender: TObject); StringGrid1Click (Sender: TObject); Button1Click (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject); Button4Click (Sender: TObject); Button5Click (Sender: TObject); Button6Click (Sender: TObject); FormCreate (Sender: TObject); Button8Click (Sender: TObject);
{Private declarations}
{Public declarations};=record: string [20];: string [6];: integer;: real;;: TForm2;, check1: file of z1;: z1;, i: integer;
{$ R *. dfm} TForm2.Button7Click (Sender: TObject);;; TForm2.StringGrid1Click (Sender: TObject);. Cells [0,0]:="Найменування ліки»; . Cells [1,0]:="Одиниця измерения»;.Cells[2,0]:=«Количество»;.Cells[3,0]:=«Цена»;;TForm2.Button1Click(Sender: TObject); (check, «check»); rewrite (check);:=StrToInt (edit1.Text); i:=1 to n do.naimlek:=st...
