Содержание
Введение . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 5
Постановка задачи . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .6
Структура программы . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .7
Листинг программы . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .8
Список использованной литературы . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 14
Введение
В наше время обучение студентов трудоёмкий процесс. И всё по причине того, что преподавателю приходится не только составлять план обучения, но находить всю информацию и носить с собой много бумаг. Для этого была создана данная программа, в которая охватывает все разделы и темы по предмету согласно перспективно – тематического плана преподавателя.
Для выполнения курсовой работы выбрана среда программирования -Borland Delphi 7. Это универсальный язык общего назначения, который применяется во многих областях программирования. В Delphi успешно проектируются многие приложения. Реализация Delphi осуществлена для машин в диапазоне от самых простых персональных компьютеров до самых мощных суперкомпьютеров и для всех операционных систем.
Постановка задачи
Написать программу, позволяющую за минимальное количество времени получить доступ к нужной информации;
Обеспечить структурированную подачу информаций пользователю;
Установить функцию печати;
Разработать удобный и дружественный пользовательский интерфейс, позволяющий быструю адаптацию пользователя к программе.
Структура программы
Листинг программы
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.