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

• 1 слайд

  Разработка автомотизировонной информационной системы
  " Учетная карта донора "
  

• 2 слайд

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

• 3 слайд

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

• 4 слайд

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

• 5 слайд

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

• 6 слайд

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

• 7 слайд

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

• 8 слайд

• 9 слайд

  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, 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, 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: 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.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.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 := 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, 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, 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.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.