710253
столько раз учителя, ученики и родители
посетили сайт «Инфоурок»
за прошедшие 24 часа
+Добавить материал
и получить бесплатное
свидетельство о публикации
в СМИ №ФС77-60625 от 20.01.2015
Дистанционные курсы профессиональной переподготовки и повышения квалификации для педагогов

Дистанционные курсы для педагогов - курсы профессиональной переподготовки от 1.410 руб.;
- курсы повышения квалификации от 430 руб.
Московские документы для аттестации

ВЫБРАТЬ КУРС СО СКИДКОЙ ДО 90%

ВНИМАНИЕ: Скидка действует ТОЛЬКО до конца апреля!

(Лицензия на осуществление образовательной деятельности №038767 выдана ООО "Столичный учебный центр", г.Москва)

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

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

библиотека
материалов
Развитие новых медицинских технологий, в первую очередь, в кардиологии и онко...
Кому нужна донорская кровь? Ежегодно в Казахстане в переливании крови нуждают...
Техническое переоснащение учреждений Службы крови. Создание единой информацио...
Техническое переоснащение учреждений Службы крови. За счет средств федерально...
Создание единой информационной базы данных по заготовке, переработке, хранен...
Развитие системы массового безвозмездного донорства крови и ее компонентов....
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 слайд
Описание слайда:

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.

Общая информация

Номер материала: ДБ-065713

Вам будут интересны эти курсы:

Курс повышения квалификации «Информационные технологии в деятельности учителя физики»
Курс повышения квалификации «Современные информационные технологии и их использование в работе преподавателей. Системы автоматизированного проектирования одежды и организация технологического процесса»
Курс повышения квалификации «Основы создания интерактивного урока: от презентации до видеоурока»
Курс повышения квалификации «Облачные технологии в образовании»
Курс «Оператор персонального компьютера»
Курс «3D Studio MAX»
Курс повышения квалификации «Развитие информационно-коммуникационных компетенций учителя в процессе внедрения ФГОС: работа в Московской электронной школе»
Курс профессиональной переподготовки «Информационные технологии в профессиональной деятельности: теория и методика преподавания в образовательной организации»
Курс повышения квалификации «Специфика преподавания информатики в начальных классах с учетом ФГОС НОО»
Курс повышения квалификации «Применение MS Word, Excel в финансовых расчетах»
Курс профессиональной переподготовки «Управление в сфере информационных технологий в образовательной организации»
Курс профессиональной переподготовки «Теория и методика обучения информатике в начальной школе»
Курс повышения квалификации «Специфика преподавания дисциплины «Информационные технологии» в условиях реализации ФГОС СПО по ТОП-50»
Курс повышения квалификации «Современные языки программирования интегрированной оболочки Microsoft Visual Studio C# NET., C++. NET, VB.NET. с использованием структурного и объектно-ориентированного методов разработки корпоративных систем»
Курс повышение квалификации «Применение интерактивных образовательных платформ на примере платформы Moodle»

Благодарность за вклад в развитие крупнейшей онлайн-библиотеки методических разработок для учителей

Опубликуйте минимум 3 материала, чтобы БЕСПЛАТНО получить и скачать данную благодарность

Сертификат о создании сайта

Добавьте минимум пять материалов, чтобы получить сертификат о создании сайта

Грамота за использование ИКТ в работе педагога

Опубликуйте минимум 10 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Свидетельство о представлении обобщённого педагогического опыта на Всероссийском уровне

Опубликуйте минимум 15 материалов, чтобы БЕСПЛАТНО получить и скачать данное cвидетельство

Грамота за высокий профессионализм, проявленный в процессе создания и развития собственного учительского сайта в рамках проекта "Инфоурок"

Опубликуйте минимум 20 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Грамота за активное участие в работе над повышением качества образования совместно с проектом "Инфоурок"

Опубликуйте минимум 25 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Почётная грамота за научно-просветительскую и образовательную деятельность в рамках проекта "Инфоурок"

Опубликуйте минимум 40 материалов, чтобы БЕСПЛАТНО получить и скачать данную почётную грамоту

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