Литература.
Разработка приложения для автоматизации работы аптеки
Паченко К., Тейксейра С., «Borland Delphi 6». Руководство разработчика / К. Паченко, С. Тейксейра. -М.: Издательский дом «Вильямс», 2002. -1120с. Гофман В. Э., Хомоненко А. Д. «Delphi. Быстрый старт» / В. Э. Гофман, А. Д. Хомоненко. — СПб.: БХВ — Петербург, 2003. Архангельский А. Я. Программирование в Delphi 7 / А. Я. Архангельский. — М.: ООО «Бином-Пресс», 2004 г. -1152 с.: ил. Аблязов В. И… Читать ещё >
Литература. Разработка приложения для автоматизации работы аптеки (реферат, курсовая, диплом, контрольная)
- 1. Аблязов В. И., Редько С. Г. Проектирование баз данных в среде Microsoft Office Access [Текст] / В. И. Аблязов. -М.: Мир, 2008 г.49 с.
- 2. Антропльский А. Б., Вигурский // Информационные ресурсы России. 1999. — № 4
- 3. Архангельский А. Я. Программирование в Delphi 7 [Текст] / А. Я. Архангельский. — М.: ООО «Бином-Пресс», 2004 г. -1152 с.: ил.
- 4. Гофман В. Э., Хомоненко А. Д. «Delphi. Быстрый старт» [Текст] / В. Э. Гофман, А. Д. Хомоненко. — СПб.: БХВ — Петербург, 2003
- 5. Паченко К., Тейксейра С., «Borland Delphi 6». Руководство разработчика [Текст] / К. Паченко, С. Тейксейра. -М.: Издательский дом «Вильямс», 2002. -1120с.
>
Листинг программыunit Unit1;
interface.
uses.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,.
Dialogs, StdCtrls, jpeg, ExtCtrls;
type.
TForm1 = class (TForm).
Image1: TImage;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
procedure Button1Click (Sender: TObject);
procedure Button2Click (Sender: TObject);
procedure Button3Click (Sender: TObject);
procedure Button4Click (Sender: TObject);
procedure Button5Click (Sender: TObject);
procedure Button6Click (Sender: TObject);
procedure Button7Click (Sender: TObject);
private.
{ Private declarations }.
public.
{ Public declarations }.
end;
var.
Form1: TForm1;
Implementation.
uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8;
{$R *.dfm}.
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. Button4Click (Sender: TObject);
begin.
Form5.Show;
end;
procedure TForm1. Button5Click (Sender: TObject);
begin.
Form6.Show;
end;
procedure TForm1. Button6Click (Sender: TObject);
begin.
Form7.Show;
end;
procedure TForm1. Button7Click (Sender: TObject);
begin.
Form8.Show;
end;
end.
unit Unit2;
interface.
uses.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,.
Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, DB, ADODB;
type.
TForm2 = class (TForm).
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DataSource1: TDataSource;
Label1: TLabel;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
private.
{ Private declarations }.
public.
{ Public declarations }.
end;
var.
Form2: TForm2;
implementation.
{$R *.dfm}.
end.
unit Unit3;
interface.
uses.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,.
Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls;
type.
TForm3 = class (TForm).
ADOConnection1: TADOConnection;
Label1: TLabel;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
ADOTable1: TADOTable;
private.
{ Private declarations }.
public.
{ Public declarations }.
end;
var.
Form3: TForm3;
implementation.
{$R *.dfm}.
end.
unit Unit4;
interface.
uses.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,.
Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls;
type.
TForm4 = class (TForm).
Label1: TLabel;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
private.
{ Private declarations }.
public.
{ Public declarations }.
end;
var.
Form4: TForm4;
implementation.
{$R *.dfm}.
end.
unit Unit5;
interface.
uses.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,.
Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls;
type.
TForm5 = class (TForm).
ADOConnection1: TADOConnection;
Label1: TLabel;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
ADOTable1: TADOTable;
private.
{ Private declarations }.
public.
{ Public declarations }.
end;
var.
Form5: TForm5;
implementation.
{$R *.dfm}.
end.
unit Unit6;
interface.
uses.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,.
Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, StdCtrls, ADODB;
type.
TForm6 = class (TForm).
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
Label1: TLabel;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
private.
{ Private declarations }.
public.
{ Public declarations }.
end;
var.
Form6: TForm6;
implementation.
{$R *.dfm}.
end.
unit Unit7;
interface.
uses.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,.
Dialogs, StdCtrls, jpeg, ExtCtrls;
type.
TForm7 = class (TForm).
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
private.
{ Private declarations }.
public.
{ Public declarations }.
end;
var.
Form7: TForm7;
implementation.
{$R *.dfm}.
end.
unit Unit8;
interface.
uses.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,.
Dialogs, StdCtrls;
type.
TForm8 = class (TForm).
Label1: TLabel;
Button1: TButton;
Button2: TButton;
procedure Button1Click (Sender: TObject);
procedure Button2Click (Sender: TObject);
private.
{ Private declarations }.
public.
{ Public declarations }.
end;
var.
Form8: TForm8;
Implementation.
uses Unit1;
{$R *.dfm}.
procedure TForm8. Button1Click (Sender: TObject);
begin.
Form1.Close;
end;
procedure TForm8. Button2Click (Sender: TObject);
begin.
Form8.Close;
end;
end.