Разработка системы сохранения результатов анкетирования в базе данных MS SQL Server
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
ristavkaGroup.Items[ado.FieldByName(Pristavka).Asinteger];.Cells[1,14]:=ado.FieldByName(Game).AsString;.Cells[1,15]:=ado.FieldByName(GameInfo).AsString;.Cells[1,16]:=Form1.DonatBox.Items[ado.FieldByName(Donat).AsInteger];.Cells[1,17]:=ado.FieldByName(Film).AsString;.Cells[1,18]:=ado.FieldByName(Info).AsString;;;TInfoForm.FormCreate(Sender: TObject);.SQL.Clear;.sql.Text:=select * from Table_1 order by id asc;;.Open;.enabled:=true;.enabled:=true;.last;.Caption:=Всего анкет: +ado.FieldByName(id).AsString+ ;.First;.ColWidths[0]:=220;.ColWidths[1]:=680;.Cells[0,0]:=Номер анкеты;.Cells[0,1]:=Имя;.Cells[0,2]:=Фамилия;.Cells[0,3]:=Отчество;.Cells[0,4]:=Пол;.Cells[0,5]:=Профессия;
InfoGrid.Cells[0,6]:=Дата рождения;.Cells[0,7]:=Время затрачиваемое на игры;.Cells[0,8]:=Игровой опыт;.Cells[0,9]:=Любимый жанр игр;.Cells[0,10]:=Отношение к платформерам;.Cells[0,11]:=Операционная система;.Cells[0,12]:=Конфигурация компьютера;.Cells[0,13]:=Наличие приставки;.Cells[0,14]:=Любимая игра;.Cells[0,15]:=Информация о любимой игре;.Cells[0,16]:=Трача денег на игры;.Cells[0,17]:=Любимый фильм;.Cells[0,18]:=Информация о себе;
0)then.First;i0) then.First;i<strtoint(edit1.text) do.Next;:=i+1;;; end else(Введите правильное значение номера анкеты!);.clear;;;TInfoForm.CloseButtonClick(Sender: TObject);.Release;;.