Электронный классный журнал
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
ger;.Clear;.Items.Add('Оценкиза'+FormatDateTime('dd.mm.yyyy',cal.Date));:=0;.SQL.Clear;.SQL.Add('selectocenka,id_predmfromuspevaemostwhereid_stud='+Edit7.Text);.SQL.Add('anddata_ocenki='+''''+FormatDateTime('mm.dd.yyyy',cal.Date)+'''');.SQL.Add('orderbyid_predm');.Open;.First;.Eof=falsedo:=0tolength(predmet)-1doifq.Fields[1].Value=ID_Predmet[j]thenbreak;.Items.Add(predmet[j]+'-'+IntToStr(q.Fields[0].Value));.Next;;;
//------------------------------------------------------------------------------.TabSheet4Show(Sender:TObject);_1;;
//------------------------------------------------------------------------------.Button5Click(Sender:TObject);.Text=''thenexit;.Text=''thenexit;.SQL.Clear;.SQL.Add('selectocenkafromuspevaemostwhereid_stud='+Edit7.Text);.SQL.Add('anddata_ocenki='+''''+FormatDateTime('mm.dd.yyyy',cal.Date)+'''');.SQL.Add('andid_predm='+IntToStr(ID_Predmet[combobox1.ItemIndex]));.Open;.First;.Eof=falsethen('Оценкаужесуществует');;;.sql.Clear;.SQL.Add('insertintouspevaemostvalues(');.SQL.Add(Edit13.Text+',');//оценка.SQL.Add(Edit7.Text+',');//idстудента.SQL.Add(IntToStr(ID_Predmet[combobox1.ItemIndex])+',');//idпредмета.SQL.Add(Edit8.Text+',');//группа.SQL.Add(''''+FormatDateTime('mm.dd.yyyy',cal.Date)+''''+')');//дата.ExecSQL;('Данныеневнесены');;;('Оценкавнесена');;.Button6Click(Sender:TObject);.Text:='';.Text:='';.Text:='';.Text:='';.Text:='';.Text:='';;.