Содержание

Введение . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 5

Постановка задачи . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .6

Структура программы . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .7

Листинг программы . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .8

Список использованной литературы . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 14

Введение

В наше время обучение студентов трудоёмкий процесс. И всё по причине того, что преподавателю приходится не только составлять план обучения, но находить всю информацию и носить с собой много бумаг. Для этого была создана данная программа, в которая охватывает все разделы и темы по предмету согласно перспективно – тематического плана преподавателя.

Для выполнения курсовой работы выбрана среда программирования -Borland Delphi 7. Это универсальный язык общего назначения, который применяется во многих областях программирования. В Delphi успешно проектируются многие приложения. Реализация Delphi осуществлена для машин в диапазоне от самых простых персональных компьютеров до самых мощных суперкомпьютеров и для всех операционных систем.

Постановка задачи

1. Написать программу, позволяющую за минимальное количество времени получить доступ к нужной информации;

2. Обеспечить структурированную подачу информаций пользователю;

3. Установить функцию печати;

4. Разработать удобный и дружественный пользовательский интерфейс, позволяющий быструю адаптацию пользователя к программе.

Структура программы

Листинг программы

procedure TForm1.Label8Click(Sender: TObject);

begin

okey();

end;

procedure TForm1.Label9Click(Sender: TObject);

begin

okey();

end;

procedure TForm1.Label10Click(Sender: TObject);

begin

okey();

end;

procedure TForm1.Label7MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

s:=11;

end;

procedure TForm1.Label7Click(Sender: TObject);

begin

okey();

end;

procedure TForm1.N2Click(Sender: TObject);

begin

case s of

1:MessageDlg('Это таблица содержит информацию о пациентах.',mtInformation,[mbok],0);

2:MessageDlg('Данная таблица содержит информацию о врачах выписывающих рецепт.',mtInformation,[mbok],0);

3:MessageDlg('Данная таблица содержит информацию о диагнозах.',mtInformation,[mbok],0);

4:MessageDlg('Данная таблица содержит перечень всех должностей.',mtInformation,[mbok],0);

5:MessageDlg('Данная таблица содержит перечень всех индигриентов и их наличие.',mtInformation,[mbok],0);

6:MessageDlg('Данная таблица содержит перечень всех лекарств.',mtInformation,[mbok],0);

7:MessageDlg('Данная таблица содержит перечень всех сотрудниках.',mtInformation,[mbok],0);

8:MessageDlg('В данную таблицу заносится информация из рецептов.',mtInformation,[mbok],0);

9:MessageDlg('В данную таблицу заносится информация относительно выписанных в рецепте лекарств.',mtInformation,[mbok],0);

10:MessageDlg('В данную таблицу заносится информация о составе лекарства.',mtInformation,[mbok],0);

11:MessageDlg('Данная таблица содержит перечень всех категориях.',mtInformation,[mbok],0);

12:MessageDlg('Отчет о самых продаваемых лекарствах.',mtInformation,[mbok],0);

13:MessageDlg('Отчет о выписанных пациенту лекарствах.',mtInformation,[mbok],0);

14:MessageDlg('Отчет содержащий информацию о товаре и его заменителях. ',mtInformation,[mbok],0);

end;

end;

procedure TForm1.Label12MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

s:=12;

end;

procedure TForm1.Label12Click(Sender: TObject);

begin

okey();

end;

procedure TForm1.Label13MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

s:=13;

end;

procedure TForm1.Label13Click(Sender: TObject);

begin

okey();

end;

procedure TForm1.Label14MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

s:=14;

end;

procedure TForm1.Label14Click(Sender: TObject);

begin

okey();

end;

end.

unit Unit2;

interface

uses

SysUtils, Classes, DB, ADODB;

type

TDataModule1 = class(TDataModule)

ADOConnection1: TADOConnection;

ADOTablevr: TADOTable;

ADOTabledia: TADOTable;

ADOTabledol: TADOTable;

ADOTableind: TADOTable;

ADOTablekat: TADOTable;

ADOTablelek: TADOTable;

ADOTablepat: TADOTable;

ADOTablerec: TADOTable;

ADOTablereclec: TADOTable;

ADOTablesos: TADOTable;

ADOTablesot: TADOTable;

DataSourcevr: TDataSource;

DataSourcedia: TDataSource;

DataSourcedol: TDataSource;

DataSourceind: TDataSource;

DataSourcekat: TDataSource;

DataSourcelek: TDataSource;

DataSourcepat: TDataSource;

DataSourcerec: TDataSource;

DataSourcereclec: TDataSource;

DataSourcesos: TDataSource;

DataSourcesot: TDataSource;

ADOTablevrDSDesigner: TAutoIncField;

ADOTablevrDSDesigner2: TWideStringField;

ADOTablevrDSDesigner3: TIntegerField;

ADOTabledolDSDesigner: TAutoIncField;

ADOTabledolDSDesigner2: TWideStringField;

ADOTablevrTOWN: TStringField;

ADOTablediaDSDesigner: TAutoIncField;

ADOTablediaDSDesigner2: TWideStringField;

ADOTableindDSDesigner: TAutoIncField;

ADOTableindDSDesigner2: TWideStringField;

ADOTableindDSDesigner3: TIntegerField;

ADOTablekatDSDesigner: TAutoIncField;

ADOTablekatDSDesigner2: TWideStringField;

ADOTablelekDSDesigner: TAutoIncField;

ADOTablelekDSDesigner2: TWideStringField;

ADOTablelekDSDesigner3: TIntegerField;

ADOTablelekDSDesigner4: TIntegerField;

ADOTablelekTOWN: TStringField;

ADOTablepatDSDesigner: TAutoIncField;

ADOTablepatDSDesigner2: TWideStringField;

ADOTablerecDSDesigner: TAutoIncField;

ADOTablerecDSDesigner2: TIntegerField;

ADOTablerecDSDesigner3: TIntegerField;

ADOTablerecDSDesigner5: TIntegerField;

ADOTablereclecDSDesigner: TAutoIncField;

ADOTablereclecDSDesigner2: TIntegerField;

ADOTablereclecDSDesigner3: TIntegerField;

ADOTablereclecTOWN: TStringField;

ADOTablesosDSDesigner: TAutoIncField;

ADOTablesosDSDesigner2: TIntegerField;

ADOTablesosDSDesigner3: TIntegerField;

ADOTablesosTOWN: TStringField;

ADOTablesosTOWN1: TStringField;

ADOTablelekDSDesigner5: TIntegerField;

ADOTablelekTOWN1: TStringField;

ADOTablesotDSDesigner: TAutoIncField;

ADOTablesotDSDesigner2: TWideStringField;

ADOTablesotDSDesigner3: TIntegerField;

ADOTablesotDSDesigner4: TIntegerField;

ADOTablesotDSDesigner5: TIntegerField;

ADOTablesotTOWN: TStringField;

ADOTablerecTOWN1: TStringField;

ADOTablerecTOWN: TStringField;

ADOTablerecTOWN2: TStringField;

ADOTablerecDSDesigner4: TWideStringField;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

ADOQuery2: TADOQuery;

private

{ Private declarations }

public

{ Public declarations }

end;

var

DataModule1: TDataModule1;

implementation

uses Unit1;

{$R *.dfm}

end.

unit Unit3;

interface

uses

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

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids;

type

Ttab = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;

DataCol: Integer; Column: TColumn; State: TGridDrawState);

private

{ Private declarations }

public

{ Public declarations }

end;

var

tab: Ttab;

implementation

{$R *.dfm}

procedure Ttab.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;

DataCol: Integer; Column: TColumn; State: TGridDrawState);

begin

IF TDBGrid(Sender).DataSource.DataSet.RecNo mod 2 = 1

Then TDBGrid(Sender).Canvas.Brush.Color:=RGB($CC,$CC,$99);

IF gdSelected IN State

Then Begin

TDBGrid(Sender).Canvas.Brush.Color:= clHighLight;

TDBGrid(Sender).Canvas.Font.Color := clHighLightText;

End;

TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);

end;

end.

unit Unit4;

interface

uses

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

Dialogs, QuickRpt, QRCtrls, ExtCtrls, QRExport;

type

Totc = class(TForm)

private

{ Private declarations }

public

{ Public declarations }

end;

var

otc: Totc;

implementation

uses Unit1, Unit2, Unit3;

{$R *.dfm}

end.

unit Unit5;

interface

uses

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

Dialogs, QRCtrls, QuickRpt, ExtCtrls, DB, ADODB;

type

Totc1 = class(TForm)

QuickRep1: TQuickRep;

TitleBand1: TQRBand;

QRLabel1: TQRLabel;

QRSysData1: TQRSysData;

ColumnHeaderBand1: TQRBand;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

DetailBand2: TQRBand;

QRDBText1: TQRDBText;

QRGroup1: TQRGroup;

QRDBText3: TQRDBText;

ADOQuery2: TADOQuery;

QRGroup2: TQRGroup;

QRDBText2: TQRDBText;

QRLabel4: TQRLabel;

private

{ Private declarations }

public

{ Public declarations }

end;

var

otc1: Totc1;

implementation

uses Unit1, Unit2, Unit3, Unit4;

{$R *.dfm}

end.

unit Unit6;

interface

uses

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

Dialogs, QRCtrls, QuickRpt, ExtCtrls;

type

Totc2 = class(TForm)

QuickRep1: TQuickRep;

TitleBand1: TQRBand;

QRLabel1: TQRLabel;

QRSysData1: TQRSysData;

ColumnHeaderBand1: TQRBand;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

DetailBand2: TQRBand;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

QRDBText4: TQRDBText;

QRDBText5: TQRDBText;

QRDBText6: TQRDBText;

QRLabel4: TQRLabel;

QRLabel5: TQRLabel;

QRLabel6: TQRLabel;

QRLabel7: TQRLabel;

private

{ Private declarations }

public

{ Public declarations }

end;

var

otc2: Totc2;

implementation

uses Unit1, Unit2, Unit3, Unit4, Unit5;

{$R *.dfm}

end.