Презентация, доклад по Информатике на тему Автоматтандырылған ақпараттық жүйелер

требует увеличения производства препаратов крови и ее компонентов. Без принятия срочных мер по увеличению числа доноров невозможно развитие методик лечения, способных существенно увеличить шансы на выздоровление тяжелых больных.
За время, прошедшее с начала реализации Программы , удалось стабилизировать ситуацию и даже добиться увеличения числа доноров.

Очень часто кровь требуется пострадавшим от ожогов и травм, при тяжелых родах или при проведении сложных операций, больным онкологическими заболеваниями. В клиниках, где проводятся операции на сердце, на одно лечебное место необходимо 12-15 литров в год! Некоторым людям компоненты и препараты, помогающие свертыванию крови, нужны в течение всей жизни. Кроме того, кровь необходима для производства ряда лекарственных препаратов.

системы
массового
безвозмездного
донорства крови
и ее компонентов

Цели Программы:
Программа ставит перед собой цель — развитие казахской Службы крови для обеспечения лечебных учреждений необходимым объемом безопасных и эффективных компонентов и препаратов крови отечественного производства.


Программа реализуется по трем основным направлениям:

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

крови и ее компонентов. Сегодня донорский учёт ведется в медицинском учреждении, где осуществляется сдача крови. При обращении оформляется «Учетная карточка донора», в которой содержатся паспортные данные донора и осуществляются отметки о количестве сданной крови и ее компонентов. Одновременно сведения о доноре заносятся и в электронную базу данных. Эти базы данных ведутся в каждом регионе самостоятельно и пока никак не связаны между собой.
Благодаря внедряемой автоматизированной системе учитывать и отслеживать донорские материалы можно будет в режиме реального времени. Улучшится взаимодействие между станциями переливаниями крови и лечебными учреждениями, будет обеспечена возможность эффективного управления ресурсами крови в масштабах города, региона, всей страны.
Кроме того, благодаря данной системе будет обеспечена еще большая безопасность для граждан, так как станет возможным отстранение от донорства тех людей, кому это абсолютно противопоказано.

на развитие регулярного и безвозмездного донорства крови.

StdCtrls, jpeg, ExtCtrls, Buttons;
type
TForm2 = class(TForm)
Label1: TLabel;
Button1: TButton;
BitBtn1: TBitBtn;
Image1: TImage;
procedure BitBtn1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Unit3, Unit1;
{$R *.dfm}
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
close;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
Form3.Show;
Form2.Hide ;
end;
end.

StdCtrls, jpeg, ExtCtrls, IdSocks, IdCoder, IdCoder3to4,
IdCoderUUE, IdCoderXXE, IdIntercept, IdLogBase, IdLogEvent,
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdGopher;
type
TForm3 = class(TForm)
Button1: TButton;
Button2: TButton;
Image1: TImage;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Unit1, Unit2, Unit4;
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject);
begin
Form2.Show; Form3.Hide;
end;
procedure TForm3.Button2Click(Sender: TObject);
begin
form1.Visible:=true;
form3.Visible:=false;
end;
procedure TForm3.Button3Click(Sender: TObject);
begin
Form4.Show;
end;
end.

DB, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids, Menus, StdCtrls,
Buttons, ComCtrls, jpeg;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
DataSource1: TDataSource;
Table1: TTable;
RadioGroup1: TRadioGroup;
BitBtn1: TBitBtn;
Label1: TLabel;
GroupBox1: TGroupBox;
Edit1: TEdit;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Edit2: TEdit;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
N5: TMenuItem;
Label2: TLabel;
Button3: TButton;
Edit3: TEdit;
Label3: TLabel;
Edit4: TEdit;
Button2: TButton;
StatusBar1: TStatusBar;
PopupMenu1: TPopupMenu;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
Panel1: TPanel;
TreeView1: TTreeView;
Button1: TButton;

procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Table1AfterScroll(DataSet: TDataSet);
procedure DBGrid1CellClick(Column: TColumn);
procedure Button1Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure save1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3;
{$R *.dfm}
procedure TForm1.N2Click(Sender: TObject);
begin
dbgrid1.Options := dbgrid1.Options + [dgEditing];
Table1.Insert;
dbgrid1.Options := dbgrid1.Options - [dgEditing];
end;
procedure TForm1.N3Click(Sender: TObject);
begin
dbgrid1.Options := dbgrid1.Options + [dgEditing];
if MessageDlg('Вы действительно хотите удалить запись?',
mtWarning, [mbYes, mbNo], 0) =
mrYes then
Table1.Delete;
end;

Table1.IndexName:='a';
end;
procedure TForm1.N8Click(Sender: TObject);
begin
Table1.IndexName:='b';
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Case RadioGroup1.ItemIndex of
0:table1.IndexName:='b';
1:table1.IndexName:='a';
end;
end;
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
Table1.Filtered:=True;
If RadioButton1.Checked then
Table1.Filter:='Familiya='+''''+Edit1.Text+'''' ;
;
If RadioButton2.Checked then
Table1.Filter:='krov='+''''+Edit2.Text+'''' ;
end;

:= 'Imya LIKE %'+ Edit3.text+'%';
end;
1:
begin
Table1.Filtered := true;
Table1.Filter := 'Familiya LIKE %'+ Edit3.text+'%';
end;
2:
begin
Table1.Filtered := true;
Table1.Filter := 'Dojnost LIKE %'+ Edit3.text+'%';
end;
3:
begin
Table1.Filtered := true;
Table1.Filter := 'Staj LIKE '+ Edit3.text+'';
end;
if Table1.IsEmpty then
ShowMessage('ne naideno');
end;
end; }
procedure TForm1.Button3Click(Sender: TObject);
begin
if not Table1.Locate('Imya',Edit3.Text, []) then
ShowMessage('Записи нет');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Form3.show;
Form1.Hide;
end;
procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
begin
statusbar1.Panels[0].Text:='№ текущий записи: '+inttostr(table1.recno);
statusbar1.Panels[1].Text:='Количество записей: '+inttostr(table1.RecordCount);
end;

[]) then
ShowMessage('Записи нет');
end;
procedure TForm1.BitBtn5Click(Sender: TObject);
begin
Table1.Filtered:=False;
end;
procedure TForm1.save1Click(Sender: TObject);
begin
Form1.table1.Append;
end;
end.

StdCtrls, Buttons,unit4;
type
TForm5 = class(TForm)
GroupBox1: TGroupBox;
Edit1: TEdit;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Edit2: TEdit;
RadioButton3: TRadioButton;
Edit3: TEdit;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
Button1: TButton;
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
{$R *.dfm}
procedure TForm5.BitBtn4Click(Sender: TObject);
begin
Form4.Table1.Filtered:=True;
If RadioButton1.Checked then
Form4.Table1.Filter:='Kvartal='+''''+Edit1.Text+'''' ;
If RadioButton2.Checked then
Form4.Table1.Filter:='Mesyac='+''''+Edit2.Text+'''' ;
If RadioButton3.Checked then
Form4.Table1.Filter:='Familiya='+''''+Edit3.Text+'''' ;
end;
procedure TForm5.BitBtn5Click(Sender: TObject);
begin
//Form4.dbgrid1.Options := Form4.dbgrid1.Options + [dgEditing];
Form4.Table1.Filtered:=False;
//Insert;
//Table1.Filtered:=False;
end;
procedure TForm5.Button1Click(Sender: TObject);
begin
close;
end;
end.

Menus, DB, DBTables, Grids, DBGrids, StdCtrls, Buttons, jpeg,
ExtCtrls, ActnList;
type
TForm4 = class(TForm)
DBGrid1: TDBGrid;
MainMenu1: TMainMenu;
DataSource1: TDataSource;
Table1: TTable;
PopupMenu1: TPopupMenu;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
Image1: TImage;
Image2: TImage;
BitBtn1: TBitBtn;
ActionList1: TActionList;
Action1: TAction;
f1: TMenuItem;
N5: TMenuItem;
Button1: TButton;
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

[dgEditing];
if MessageDlg('Вы действительно хотите удалить запись?',
mtWarning, [mbYes, mbNo], 0) =
mrYes then
Table1.Delete;
end;
procedure TForm4.N4Click(Sender: TObject);
begin
dbgrid1.Options := dbgrid1.Options + [dgEditing];
Table1.Edit;
end;
procedure TForm4.BitBtn5Click(Sender: TObject);
begin
Table1.Filtered:=False;
end;
procedure TForm4.BitBtn1Click(Sender: TObject);
begin
Form5.Show;
end;
procedure TForm4.N5Click(Sender: TObject);
begin
Form4.Table1.Append;
end;
procedure TForm4.N2Click(Sender: TObject);
begin
dbgrid1.Options := dbgrid1.Options + [dgEditing];
Table1.Insert;
dbgrid1.Options := dbgrid1.Options - [dgEditing];
end;
procedure TForm4.Button1Click(Sender: TObject);
begin
close;
end;
end.