Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Презентации / Презентация по Информатике на тему "Автоматтандырылған ақпараттық жүйелер"

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


  • Информатика

Поделитесь материалом с коллегами:

Развитие новых медицинских технологий, в первую очередь, в кардиологии и онко...
Кому нужна донорская кровь? Ежегодно в Казахстане в переливании крови нуждают...
Техническое переоснащение учреждений Службы крови. Создание единой информацио...
Техническое переоснащение учреждений Службы крови. За счет средств федерально...
Создание единой информационной базы данных по заготовке, переработке, хранен...
Развитие системы массового безвозмездного донорства крови и ее компонентов....
unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Gr...
unit Unit3; interface uses Windows, Messages, SysUtils, Variants, Classes, Gr...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Gr...
DBGrid1: TDBGrid; Image1: TImage; save1: TMenuItem; procedure N2Click(Sender...
procedure TForm1.N4Click(Sender: TObject); begin dbgrid1.Options := dbgrid1.O...
{ procedure TForm1.Button3Click(Sender: TObject); begin case ComboBox1.ItemIn...
procedure TForm1.DBGrid1CellClick(Column: TColumn); begin dbgrid1.Options :=...
unit Unit5; interface uses Windows, Messages, SysUtils, Variants, Classes, Gr...
unit Unit4; interface uses Windows, Messages, SysUtils, Variants, Classes, Gr...
var Form4: TForm4; implementation uses Unit5; {$R *.dfm} procedure TForm4.N3C...
1 из 38

Описание презентации по отдельным слайдам:

№ слайда 1
Описание слайда:

№ слайда 2 Развитие новых медицинских технологий, в первую очередь, в кардиологии и онко
Описание слайда:

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

№ слайда 3 Кому нужна донорская кровь? Ежегодно в Казахстане в переливании крови нуждают
Описание слайда:

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

№ слайда 4 Техническое переоснащение учреждений Службы крови. Создание единой информацио
Описание слайда:

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

№ слайда 5 Техническое переоснащение учреждений Службы крови. За счет средств федерально
Описание слайда:

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

№ слайда 6 Создание единой информационной базы данных по заготовке, переработке, хранен
Описание слайда:

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

№ слайда 7 Развитие системы массового безвозмездного донорства крови и ее компонентов.
Описание слайда:

Развитие системы массового безвозмездного донорства крови и ее компонентов. Реализуется комплекс мероприятий, направленных на развитие регулярного и безвозмездного донорства крови.

№ слайда 8
Описание слайда:

№ слайда 9 unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Gr
Описание слайда:

unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, 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.

№ слайда 10
Описание слайда:

№ слайда 11 unit Unit3; interface uses Windows, Messages, SysUtils, Variants, Classes, Gr
Описание слайда:

unit Unit3; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, 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.

№ слайда 12
Описание слайда:

№ слайда 13
Описание слайда:

№ слайда 14
Описание слайда:

№ слайда 15
Описание слайда:

№ слайда 16
Описание слайда:

№ слайда 17
Описание слайда:

№ слайда 18
Описание слайда:

№ слайда 19
Описание слайда:

№ слайда 20
Описание слайда:

№ слайда 21
Описание слайда:

№ слайда 22 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Gr
Описание слайда:

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, 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;

№ слайда 23 DBGrid1: TDBGrid; Image1: TImage; save1: TMenuItem; procedure N2Click(Sender
Описание слайда:

DBGrid1: TDBGrid; Image1: TImage; save1: TMenuItem; 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;

№ слайда 24 procedure TForm1.N4Click(Sender: TObject); begin dbgrid1.Options := dbgrid1.O
Описание слайда:

procedure TForm1.N4Click(Sender: TObject); begin dbgrid1.Options := dbgrid1.Options + [dgEditing]; Table1.Edit; end; procedure TForm1.N5Click(Sender: TObject); begin Form2.Show; end; procedure TForm1.N6Click(Sender: TObject); begin 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;

№ слайда 25 { procedure TForm1.Button3Click(Sender: TObject); begin case ComboBox1.ItemIn
Описание слайда:

{ procedure TForm1.Button3Click(Sender: TObject); begin case ComboBox1.ItemIndex of 0: begin Table1.Filtered := true; Table1.Filter := '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;

№ слайда 26 procedure TForm1.DBGrid1CellClick(Column: TColumn); begin dbgrid1.Options :=
Описание слайда:

procedure TForm1.DBGrid1CellClick(Column: TColumn); begin dbgrid1.Options := dbgrid1.Options - [dgEditing]; end; procedure TForm1.Button1Click(Sender: TObject); begin if not Table1.Locate('Ochestva',Edit4.Text, []) then ShowMessage('Записи нет'); end; procedure TForm1.BitBtn5Click(Sender: TObject); begin Table1.Filtered:=False; end; procedure TForm1.save1Click(Sender: TObject); begin Form1.table1.Append; end; end.

№ слайда 27
Описание слайда:

№ слайда 28
Описание слайда:

№ слайда 29
Описание слайда:

№ слайда 30
Описание слайда:

№ слайда 31
Описание слайда:

№ слайда 32
Описание слайда:

№ слайда 33
Описание слайда:

№ слайда 34 unit Unit5; interface uses Windows, Messages, SysUtils, Variants, Classes, Gr
Описание слайда:

unit Unit5; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, 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.

№ слайда 35
Описание слайда:

№ слайда 36
Описание слайда:

№ слайда 37 unit Unit4; interface uses Windows, Messages, SysUtils, Variants, Classes, Gr
Описание слайда:

unit Unit4; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, 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;

№ слайда 38 var Form4: TForm4; implementation uses Unit5; {$R *.dfm} procedure TForm4.N3C
Описание слайда:

var Form4: TForm4; implementation uses Unit5; {$R *.dfm} procedure TForm4.N3Click(Sender: TObject); begin dbgrid1.Options := dbgrid1.Options + [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.


Автор
Дата добавления 04.05.2016
Раздел Информатика
Подраздел Презентации
Просмотров85
Номер материала ДБ-065713
Получить свидетельство о публикации

Похожие материалы

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