Автоматизация рабочего места врача отдела эпидемиологии для ведения учета эпидемиологических заболеваний больных

  Close;

end;

 

end.

 

 

 

 

 

 

продолжение приложения 1

Unit4  {Модуль обрабатывающий события формы «сведения о больном»

 

unit Unit4;

 

interface

 

uses

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

  Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls, RxLookup;

 

type

  TForm4 = class(TForm)

    DBEdit1: TDBEdit;

    DBEdit2: TDBEdit;

    DBEdit3: TDBEdit;

    DBEdit4: TDBEdit;

    DBEdit5: TDBEdit;

    DBEdit6: TDBEdit;

    DBNavigator1: TDBNavigator;

    Button1: TButton;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    DBEdit7: TDBEdit;

    DBEdit8: TDBEdit;

    Label8: TLabel;

    Label9: TLabel;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form4: TForm4;

 

продолжение приложения 1

implementation

 

{$R *.dfm}

Uses MODULE, Unit3;

 

procedure TForm4.Button1Click(Sender: TObject);

begin

Close;

end;

 

procedure TForm4.Button2Click(Sender: TObject);

begin

  FrmInputAdress.ShowModal;

end;

 

end.

 

 

 

Unit5  {Модуль обрабатывающий события формы «Тип возбудителя»

 

unit Unit5;

 

interface

uses

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

  Dialogs, StdCtrls, ExtCtrls, DBCtrls, Mask;

 

type

  TForm5 = class(TForm)

    Label1: TLabel;

    DBEdit1: TDBEdit;

    DBNavigator1: TDBNavigator;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form5: TForm5;

продолжение приложения 1

implementation

Uses MODULE;

 

{$R *.dfm}

 

procedure TForm5.Button1Click(Sender: TObject);

begin

 Close;

end;

 

end.

 

Unit6  {Модуль обрабатывающий события формы «Добавление диагноза»

 

 

unit Unit6;

 

interface

 

uses

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

  Dialogs, ExtCtrls, DBCtrls, StdCtrls, Mask;

 

type

  TForm6 = class(TForm)

    Label1: TLabel;

    Button1: TButton;

    DBEdit1: TDBEdit;

    DBNavigator1: TDBNavigator;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form6: TForm6;

 

implementation

Uses MODULE;

 

{$R *.dfm}

продолжение приложения 1

procedure TForm6.Button1Click(Sender: TObject);

begin

 Close;

end;

 

end.

 

 

Unit7  {Модуль обрабатывающий события формы «Выбор типа отчета»

unit Unit7;

interface

uses

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

  Dialogs, StdCtrls, RpCon, RpConDS, RpDefine, RpRave, Grids, DBGrids,

  OleCtrls, VCFI;

type

  TForm7 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Button5: TButton;

    RvProject1: TRvProject;

    RvDSAdress: TRvDataSetConnection;

    RvDSVoz: TRvDataSetConnection;

    RvDSWork: TRvDataSetConnection;

    RvDSDiagnoz: TRvDataSetConnection;

    RvDSKarta: TRvDataSetConnection;

    Button6: TButton;

    RvProject2: TRvProject;

    RvProject3: TRvProject;

    RvProject4: TRvProject;

    RvProject5: TRvProject;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

 

    procedure Button4Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure Button6Click(Sender: TObject);

  private

    { Private declarations }

  public

продолжение приложения 1

    { Public declarations }

  end;

var

  Form7: TForm7;

  Parametr:string;

implementation

{$R *.dfm}

uses unit8,MODULE;

procedure TForm7.Button1Click(Sender: TObject);

begin

 Form8.Caption:='Введите диагноз для выборки';

 Form8.Edit1.Text:='';

Form8.ShowModal;

DataModule2.ADOQuery1.SQL.Text:='SELECT Diagnoz.Diagnoz, Karta.Number_kart, Men.FIO';

DataModule2.ADOQuery1.SQL.Add('FROM Men INNER JOIN (Diagnoz INNER JOIN Karta ON (Diagnoz.ID = Karta.Izvest_diagnoz) AND (Diagnoz.ID = Karta.End_diagnoz)) ON Men.ID = Karta.Men');

DataModule2.ADOQuery1.SQL.Add('WHERE (((Diagnoz.Diagnoz)="'+Parametr+'"));');

DataModule2.ADOQuery1.ExecSQL;

DataModule2.ADOQuery1.Active:=true;

RvProject1.ProjectFile:='PDiagnoz.rav';

RvProject1.Execute;

end;

 

procedure TForm7.Button2Click(Sender: TObject);

begin

 Form8.Caption:='Введите улицу для выборки';

 Form8.Edit1.Text:='';

Form8.ShowModal;

DataModule2.ADOQuery1.SQL.Text:='SELECT Adress.Striit, Adress.House, Adress.Korp, Men.FIO, Men.Sex, Men.DR, Men.MR, Men.GR';

DataModule2.ADOQuery1.SQL.Add('FROM Adress INNER JOIN Men ON Adress.ID = Men.Adress');

DataModule2.ADOQuery1.SQL.Add('WHERE (((Adress.Striit)="'+Parametr+'"));');

DataModule2.ADOQuery1.ExecSQL;

DataModule2.ADOQuery1.Active:=true;

RvProject2.ProjectFile:='PAdress.rav';

RvProject2.Execute;

end;

procedure TForm7.Button3Click(Sender: TObject);

begin

продолжение приложения 1

 Form8.Caption:='Введите возбудителя для выборки';

 Form8.Edit1.Text:='';

Form8.ShowModal;

DataModule2.ADOQuery1.SQL.Text:='SELECT Vozbud.Vid_vozb, Karta.Number_kart, Men.FIO, Men.Sex, Men.DR, Men.MR, Men.GR';

DataModule2.ADOQuery1.SQL.Add('FROM Vozbud INNER JOIN (Men INNER JOIN Karta ON Men.ID = Karta.Men) ON Vozbud.ID = Karta.Vozbud');

DataModule2.ADOQuery1.SQL.Add('WHERE (((Vozbud.Vid_vozb)="'+Parametr+'"))');

DataModule2.ADOQuery1.ExecSQL;

DataModule2.ADOQuery1.Active:=true;

RvProject3.ProjectFile:='PVozb.rav';

RvProject3.Execute;

end;

procedure TForm7.Button4Click(Sender: TObject);

begin

 Form8.Caption:='Введите место работы для выборки';

 Form8.Edit1.Text:='';

Form8.ShowModal;

DataModule2.ADOQuery1.SQL.Text:='SELECT Men.Work, Men.FIO, Men.Sex, Diagnoz.Diagnoz';

DataModule2.ADOQuery1.SQL.Add('FROM Diagnoz INNER JOIN (Men INNER JOIN Karta ON Men.ID = Karta.Men) ON (Diagnoz.ID = Karta.Izvest_diagnoz) AND (Diagnoz.ID = Karta.End_diagnoz)');

DataModule2.ADOQuery1.SQL.Add('WHERE (((Men.Work)="'+Parametr+'"))');

DataModule2.ADOQuery1.ExecSQL;

DataModule2.ADOQuery1.Active:=true;

RvProject4.ProjectFile:='PWork.rav';

RvProject4.Execute;

end;

procedure TForm7.Button5Click(Sender: TObject);

var

s:string;

begin

Form8.Caption:='Введите ФИО больного  для отчёта';

Form8.Edit1.Text:='';

Form8.ShowModal;

s:='SELECT Men.FIO, Men.Sex, Men.DR, Men.MR, Men.GR, Men.Work, Men.Type_Work, Men.Aborigen,';

s:=s+' Adress.Striit, Adress.House, Adress.Korp, Karta.Number_kart, Diagnoz.Diagnoz, ';

s:=s+'Vozbud.Vid_vozb, Karta.Date_posled, Karta.poliklin_aborigen, Karta.Date_Message_men, ';

продолжение приложения 1

s:=s+'Karta.Sposob_message, Karta.Who, Karta.Izvest_diagnoz, Karta.Simpton, Karta.Vijavlen, ';

s:=s+'Karta.Date_epid, Karta.Date_end, Karta.Date_zabolev, Karta.Date_obrashen, ';

s:=s+'Karta.Date_ustan_diagnoz, Karta.Date_hospital, Karta.Date_end_diagnoz, Karta.Mesto_hospital, ';

s:=s+'Karta.Ostav_home, Karta.Pozd_hospital, Karta.Lab_issledovan, Karta.Diagnoz_podtv,';

s:=s+'Karta.Klinicheski, Karta.Labodatorno, Karta.Bakteriolog, Karta.Microskopicheski, ';

s:=s+'Karta.Serologicheski, Karta.Biohimicheski, Karta.other, Karta.RKlinicheski, ';

 

s:=s+'Karta.RLabodatorno, Karta.RBakteriolog, Karta.RMicroskopicheski, Karta.RSerologicheski,';

s:=s+' Karta.RBiohimicheski, Karta.ROther, Karta.Data_immuniz, Karta.Vakcina, Karta.Revakcina, Karta.Men_privit';

DataModule2.ADOQuery1.SQL.Text:=s;

s:='FROM Adress INNER JOIN (Vozbud INNER JOIN (Men INNER JOIN (Diagnoz INNER JOIN Karta ON';

s:=s+'(Diagnoz.ID = Karta.Izvest_diagnoz) AND (Diagnoz.ID = Karta.End_diagnoz)) ON Men.ID = Karta.Men) ON Vozbud.ID = Karta.Vozbud) ON Adress.ID = Men.Adress';

DataModule2.ADOQuery1.SQL.Add(s);

DataModule2.ADOQuery1.SQL.Add('WHERE (((Men.FIO)="'+Parametr+'"));');

DataModule2.ADOQuery1.ExecSQL;

DataModule2.ADOQuery1.Active:=true;

RvProject5.ProjectFile:='PKarta.rav';

RvProject5.Execute;

end;

 

procedure TForm7.Button6Click(Sender: TObject);

begin

Close;

end;

end.

Unit Vvod_Dann  {Модуль обрабатывающий события формы «Окно ввода данных»

 

unit Vvod_Dann;

 

interface

 

uses

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

продолжение приложения 1

 

  Dialogs, Buttons, StdCtrls, DBCtrls, Mask, ExtCtrls, ComObj, RpDefine,

  RpRave, RpCon, RpConDS, Grids, DBGrids;

 

type

  TForm2 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label7: TLabel;

    Label13: TLabel;

    Label15: TLabel;

    Label14: TLabel;

    Label19: TLabel;

    Label20: TLabel;

    DBEdit1: TDBEdit;

    DBEdit9: TDBEdit;

    DBEdit10: TDBEdit;

    DBEdit11: TDBEdit;

    DBEdit12: TDBEdit;

    Label21: TLabel;

    Label22: TLabel;

    Label23: TLabel;

    Label17: TLabel;

    Label24: TLabel;

    Label25: TLabel;

    Label26: TLabel;

    Label27: TLabel;

    Label29: TLabel;

    DBEdit14: TDBEdit;

    DBEdit15: TDBEdit;

    DBEdit16: TDBEdit;

    DBNavigator1: TDBNavigator;

    DBEdit19: TDBEdit;

    Panel3: TPanel;

    Label30: TLabel;

    Label32: TLabel;

    Label33: TLabel;

    Label34: TLabel;

    Label35: TLabel;

    Panel4: TPanel;

    Panel5: TPanel;

продолжение приложения 1

    Panel6: TPanel;

    Panel7: TPanel;

    Panel8: TPanel;

    DBEdit20: TDBEdit;

    DBEdit21: TDBEdit;

    DBEdit22: TDBEdit;

    DBEdit23: TDBEdit;

    DBEdit24: TDBEdit;

    DBEdit17: TDBEdit;

    DBLookupComboBox1: TDBLookupComboBox;

    DBLookupComboBox2: TDBLookupComboBox;

    DBLookupComboBox3: TDBLookupComboBox;

    DBEdit2: TDBEdit;

    DBLookupComboBox4: TDBLookupComboBox;

    DBEdit3: TDBEdit;

    DBEdit4: TDBEdit;

    DBEdit5: TDBEdit;

    DBEdit7: TDBEdit;

    DBEdit8: TDBEdit;

    Label3: TLabel;

    Label6: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    Label10: TLabel;

    Label11: TLabel;

    Label12: TLabel;

    DBEdit6: TDBEdit;

    DBEdit13: TDBEdit;

    DBEdit18: TDBEdit;

    DBEdit25: TDBEdit;

    DBEdit26: TDBEdit;

    DBEdit27: TDBEdit;

    DBEdit28: TDBEdit;

    DBEdit29: TDBEdit;

    DBEdit30: TDBEdit;

    Label16: TLabel;

    Label18: TLabel;

    Label28: TLabel;

    Label31: TLabel;

    Label36: TLabel;

    DBEdit31: TDBEdit;

    DBEdit32: TDBEdit;

    DBEdit33: TDBEdit;

продолжение приложения 1   

DBEdit34: TDBEdit;

    DBEdit35: TDBEdit;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    SpeedButton1: TSpeedButton;

    SpeedButton2: TSpeedButton;

    procedure SpeedButton1Click(Sender: TObject);

    procedure DBComboBox10Change(Sender: TObject);

    procedure DBComboBox8Change(Sender: TObject);

    procedure SpeedButton2Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form2: TForm2;

 

implementation

 

uses Unit1, MODULE, Unit4, Unit6, Unit5;

 

{$R *.dfm}

 

procedure TForm2.SpeedButton1Click(Sender: TObject);

 

begin

Form1.Visible:=true;

Form2.Close;

end;

 

procedure TForm2.DBComboBox10Change(Sender: TObject);

begin

{case DBComboBox10.ItemIndex of

0:Panel12.Visible:=false;

1:Panel12.Visible:=true;

продолжение приложения 1

2:Panel12.Visible:=false;

end;}

end;

 

procedure TForm2.DBComboBox8Change(Sender: TObject);

begin

{case DBComboBox8.ItemIndex of

0:Panel1.Visible:=false;

1:Panel1.Visible:=true;

end;                   }

end;

 

procedure TForm2.SpeedButton2Click(Sender: TObject);

var

XLApp,Sheet,Colum:Variant;

index,i:Integer;

begin

 

end;

 

procedure TForm2.Button1Click(Sender: TObject);

begin

Form4.ShowModal;

end;

 

procedure TForm2.Button2Click(Sender: TObject);

begin

form6.ShowMOdal;

end;

 

procedure TForm2.Button3Click(Sender: TObject);

begin

Form6.ShowModal;

end;

 

procedure TForm2.Button4Click(Sender: TObject);

begin

Form5.ShowModal;

end;

end.

 

 

 

					ДП.23010565.019.2014 ПЗ
Изм.	Лист	№ докум.	Подп.	Дата
Разраб.		Соболев А.П.			ИНФОРМАЦИОННАЯ СИСТЕМА «ЭЛЕКТРОННАЯ КАРТА ЭПИДЕМИОЛОГИЧЕСКИХ ОБСЛЕДОВАНИЙ»	Лит.			Лист	Листов
Пров.		Колбасов П.А.				У			4	84
						ДИТИ НИЯУ МИФИ ПОуз -61
Н. .контр.		Летуновская Д.А.
Утв.		Ракова О.А.