Похожие работы на «Разработка программного обеспечения для Отделения Реанимации и Интенсивной Терапии новорожденных МГБ N1 г. Сургута »

Разработка программного обеспечения для Отделения Реанимации и Интенсивной Терапии новорожденных МГБ N1 г. Сургута
Программирование и комп-ры, Разработка программного обеспечения для Отделения Реанимации и Интенсивной Терапии новорожденных МГБ N1 г. Сургута ... ... Text) and (EditDS.Text <> '') then BtnSAVE.Enabled := True else BtnSAVE.Enabled := False; TblDS.Locate('TITLE', EditDS.Text, [loPartialKey]); end; end ...
... Text) and (EditDS.Text <> '') then BtnSAVE.Enabled := True else BtnSAVE.Enabled := False; TblDS.Locate('TITLE', EditDS.Text, [loPartialKey]); end; end ...


База данных Бюро знакомств [нестрогое соответствие]
Программирование и комп-ры, База данных Бюро знакомств, Курсовая ... Writeln(ff,'Приглашение в кафе "Ночной Тарзан"');//Добавляем строку в файл Writeln(ff,'На вечер знакомства с '+table1.fieldbyname('Family').asstring+ ...
... Execute then memo1.Lines.SaveToFile(SaveDialog1.FileName);//Открываем окно диалога сохранения файла и сохраняем текстовую область Memo1 в указанный ...


Утилита диагностики компьютера [нестрогое соответствие]
Программирование и комп-ры, Утилита диагностики компьютера, Диплом ... begin form2.show; end; procedure GetPrName(processor1:Tlabel); var SI:TsystemInfo; begin GetSystemInfo(SI); Case SI.dwProcessorType of 386:Processor1. ...
... TProcessorClockCounter.TestPrecizeProc; // This procedure is intended for testing small block of // code when it must be put in the processor cache ...


Разработка программы психотестирования [нестрогое соответствие]
Программирование и комп-ры, Разработка программы психотестирования, Курсовая ... speedbutton1.Enabled:=true; rb1.Enabled:=false; rb2.Enabled:=false; rb3.Enabled:=false; inc(testcount,test[defque].count[1]) end; procedure TfrmTest. ...
... speedbutton1.Enabled:=true; rb1.Enabled:=false; rb2.Enabled:=false; rb3.Enabled:=false; inc(testcount,test[defque].count[2]) end; procedure TfrmTest. ...


Система рейтингового контроля знаний [нестрогое соответствие]
Программирование и комп-ры, Система рейтингового контроля знаний, Курсовая ... N5; TMenuItem *N6; TBitBtn *BitBtn1; TBitBtn *BitBtn2; TBitBtn *BitBtn3; TMenuItem *N7; void __fastcall N10Click(TObject *Sender); void __fastcall ...
... QRListForm->QuickReport->Preview(); ... - void __fastcall TForm1::N20Click(TObject *Sender) { Form3->ShowModal(); DM1->Table1->Refresh(); ... - void ...


Разработка интерактивной среды обучения работе [нестрогое соответствие]
Программирование и комп-ры, Разработка интерактивной среды обучения работе, Курсовая ... first:=false; fontemp:=frmlesson.canvas.font; drawpage end else begin nopaint:=true; drawpage; nopaint:=false end end; procedure TfrmLesson.FormShow( ...
... show; pic1.hide; } inc(numpage); if not speedbutton1.enabled then speedbutton1.Enabled:=true; frmlesson.cmdYes.hide; frmlesson.cmdno.hide; { frmlesson ...


Автоматизированная система распределения мест и оценок качества олимпиадных заданий [нестрогое соответствие]
Педагогика, Автоматизированная система распределения мест и оценок качества олимпиадных заданий , Диплом и связанное с ним ... n1,n2,n3,n4,n5,n6,snum:double; begin Fio:=Edit1.Text; Sch:=Edit2.Text; if (Fio='') or (Sch='') then begin Application.MessageBox('Не введено ФИО или ...
... Sch; Post; end; Edit1.Text:=''; Edit2.Text:=''; Edit3.Text:=''; Edit4.Text:=''; Edit5.Text:=''; Edit6.Text:=''; Edit7.Text:=''; Edit8.Text:=''; Edit1. ...


Файловая оболочка (Delphi 30 ) [нестрогое соответствие]
Программирование и комп-ры, Файловая оболочка (Delphi 30 ), Курсовая ... Определение видимых строк в контектсном меню файловой области //в момент его вызова begin if MainForm.FileList.SelCount=0 then begin with MainForm. ...
... begin if MainForm.CMDirList.Items.Count=0 then PasteDir.Enabled:=False else PasteDir.Enabled:=True; If Length(MainForm.Directory.Directory) <= 3 then ...


Экспертная система [нестрогое соответствие]
Программирование и комп-ры, Экспертная система, Курсовая ... n of 1: begin Form1.Button1.Visible := true; Form1.Button1.Caption := str; end; 2: begin Form1.Button2.Visible := true; Form1.Button2.Caption := str; ...
... Visible := false; 3: Form1.Button3.Visible := false; 4: Form1.Button4.Visible := false; end; end; closefile (Namebzd); end; procedure TForm1.ExitClick ...


Программная система обработки и анализа изображений [нестрогое соответствие]
Программирование и комп-ры, Программная система обработки и анализа изображений, Курсовая ... real; { Угол, под которым выделять линии } xStart, xEnd, yStart, yEnd: word; BegSelect: boolean; procedure DefGradient(var Gx, Gy: real; x,y: word) ...
... begin OptionForm := nil; try OptionForm := TOptionForm.Create(Self); with OptionForm do begin RectXEdit.Text := FloatToStr(DetectRectX); RectYEdit. ...