Похожие работы на «База данных Бюро знакомств»

База данных Бюро знакомств
Программирование и комп-ры, База данных Бюро знакомств, Курсовая ... копируем в поле "DATE" таблицы Table3 значение поля "DATE" таблицы Table1 table3.FieldByName('pol').Asstring:=table1.FieldByName('pol').Asstring;//коп ...
... копируем в поле "TREB" таблицы Table3 значение поля "TREB" таблицы Table1 table3.FieldByName('name').Asstring:=table1.FieldByName('name').Asstring;//к ...


Разработка баз данных в Delphi [нестрогое соответствие]
Программирование и комп-ры, Разработка баз данных в Delphi, Лекция ... begin Table1.Insert; Table1.FieldByName('Name').AsString := 'Russia'; Table1.FieldByName('Capital').AsString := 'Moscow'; Table1.Post; end; procedure ...
... begin Table1.SetKey; Table1.FieldByName("CustNo").AsString := Edit1.Text; Table1.GotoKey; end; Первый вызов в этой процедуре установит Table1 в режим ...


Разработка интерактивной среды обучения работе [нестрогое соответствие]
Программирование и комп-ры, Разработка интерактивной среды обучения работе, Курсовая ... 0; assignfile(f,'ld.cfg'); reset(f); while not eof(f) do begin inc(n); read(f,lesson); names[n]:=lesson.filename; lblessons.Items.Add('Урок '+inttostr ...
... first:=false; fontemp:=frmlesson.canvas.font; drawpage end else begin nopaint:=true; drawpage; nopaint:=false end end; procedure TfrmLesson.FormShow( ...


Моделирование игровых программ [нестрогое соответствие]
Программирование и комп-ры, Моделирование игровых программ, Курсовая TObject); procedure ShowPole; procedure Mixer; procedure NewGame; procedure Formmas; procedure N11Click(Sender:
... function Finish: boolean; var row,col: integer; i: integer; begin row:=1; col:=1; Finish:= True; for i:=1 to 15 do begin if pole[row,col] <> i then ...


Разработка программы психотестирования [нестрогое соответствие]
Программирование и комп-ры, Разработка программы психотестирования, Курсовая ... assignfile(f,copy(testfilename,1,length(testfilename)-3)+'rts'); reset(f); while not eof(f) do begin read(f,r); if testcount in [r.min..r.max] then ...
... read(f,test[testnum]); inc(testnum) end; statictext1.Caption:='Всего вопросов '+inttostr(testnum); closefile(f); spinedit1.value:=1; spinedit1change( ...


HTML и базы данных [нестрогое соответствие]
Программирование и комп-ры, HTML и базы данных , Работа Курсовая ... 0); if gn1>=0 then Delete(gn1); gn1 := StrToIntDef(Values['Gr1'],0); gn2 := StrToIntDef(Values['Gr2'],0); end; //with if gn1=0 then Response.Content ...
... Request.ScriptName, gn1,0, OperKind])); end;//with storeqtp end;//with groupquery Response.Content := StoreQTP.Content; if Assigned(OrderCol) then ...


Автоматизированная система распределения мест и оценок качества олимпиадных заданий [нестрогое соответствие]
Педагогика, Автоматизированная система распределения мест и оценок качества олимпиадных заданий , Диплом и связанное с ним ... Olymp'; TableType := ttParadox; TableName := Edit1.Text; if not Form1.Table1.Exists then begin with FieldDefs do begin Clear; with AddFieldDef do ...
... DataType := ftFloat; Required := True; end; with AddFieldDef do begin Name := 'MARK3'; DataType := ftFloat; Required := True; end; with AddFieldDef do ...


Программа Клон [нестрогое соответствие]
Программирование и комп-ры, Программа Клон, Курсовая ... и | | | |адрес ячейки в массиве | | | |сопоставлен ячейке на поле. | | | |procedure | | | |TForm1.Button2Click(Sender: | | | |TObject) - при нажатии ...
... image2.Canvas.StretchDraw(b[i,j],image4.picture.bitmap); V2i:=i; v2j:=j; end else begin image2.Canvas.StretchDraw(b[v2i,v2j],image3.picture.bitmap) ...


Программирование на Object Pascal в среде Delphi [нестрогое соответствие]
Программирование и комп-ры, Программирование на Object Pascal в среде Delphi , Работа Лабораторная ... AssignFile(FileZap,FileNameZap); // назначить файлу FileZap имя FileNameZap ReWrite(FileZap); // открыть файл на запись for i:=1 to n do write(FileZap ...
... var i:integer; begin with OpenDialog1 do begin Title:='Открытие файла'; // заголовок окна диалога if Execute then // выполнение стандартного диалога ...


Лабораторные работы (в ХГТУ) [нестрогое соответствие]
Программирование и комп-ры, Лабораторные работы (в ХГТУ) , Работа Лабораторная ... table2.Delete; // переход, удаление и обновление Table1.AfterScroll(table1); end; Процедура нажатия на кнопку "добавить": procedure TSvaz.BitBtn3Click ...
... SHOW); // показать форму выбора автора Vibor_Avt.Show; svaz.Enabled:=false; // заблокировать форму end; После выхода из формы выбора автора управление ...