Информационная система учета и контроля посещаемости студентов

Form1->ComboBox1->Text + «% ' and студент. Группа = группа. Код_группы»;

Form1->ADOQuery1->Active = true; // вывод списка всех студентов

}

//---------------------------------------------------------------------------

void __fastcall TForm1: : FormResize (TObject *Sender)

{

Form1->DBGrid1->Width = Form1->Width - 30; //подгоняем размеры грида к

Form1->DBGrid1->Height = Form1->Height - 120; //размерам формы

}

//---------------------------------------------------------------------------

void __fastcall TForm1: : DBGrid1DblClick (TObject *Sender)

{ TDateTime t;

int c = Form1->Edit2->Text. ToInt () ; //если двойной клик на

int b = Form1->Edit1->Text. ToInt () ; //поле с количеством пропусков студента

if (DBGrid1->SelectedField->Index == 2)

{

Form1->DataSource1->Edit () ;

Form1->DBGrid1->SelectedField->AsInteger =

Form1->DBGrid1->SelectedField->AsInteger + 1;

//то увеличиваем значение на 1

Form1->ADOQuery2->SQL->Text =

«insert into пропуски (студент, дата_пропуска, предмет) values ('« +

Edit2->Text + «', '« +

t. CurrentDate () + «', '« + Edit1->Text. ToInt () + «') «;

//и добавляем запись с номером студента сегоднеяшней датой, и номером пропущенного предмета в таблицу пропусков

Form1->ADOQuery2->ExecSQL () ;

m[DBGrid1->DataSource->DataSet->RecNo] = 1; // запоминаем номер измененной строки для раскрашивания

}

}

//---------------------------------------------------------------------------

void __fastcall TForm1: : DBGrid1CellClick (TColumn *Column)

{ if (ComboBox3->Text == ««) { //если при нажатии на грид предмет не выбран

ShowMessage («Выберите предмет!») ; //то выводим соответствующее сообщение

}

if (Form1->DBGrid1->SelectedField->Index==2) //запоминаем код

{ //прогулявшего студента

int a;

a = Form1->DBGrid1->SelectedField->Index - 2;

Form1->Edit2->Text = Form1->DBGrid1->Fields[a]->Text;

}

}

//---------------------------------------------------------------------------

void __fastcall TForm1: : ComboBox1Select (TObject *Sender)

{

Form1->ADOQuery1->SQL->Text =

«select код_студ, ФИО, Пропуски from Студент, Группа where группа. Название like'« +

Form1->ComboBox1->Text + «% ' and студент. Группа = группа. Код_группы»;

Form1->ADOQuery1->Active = true; //Вывед списка студентов выбранной группы

// DBGrid1->Columns->Items[2]->PickList->Add ('1') ;

}

//---------------------------------------------------------------------------

void __fastcall TForm1: : FormClose (TObject *Sender, TCloseAction &Action)

{

Form1->Hide () ; //при закрытии формы

MainForm->Show () ; //показывать основную

}

//---------------------------------------------------------------------------

void __fastcall TForm1: : DBGrid1DrawDataCell (TObject *Sender, const TRect &Rect, TField *Field,

TGridDrawState State)

{

for (int i = 0; i < DBGrid1->DataSource->DataSet->RecordCount; i++)

{

if (m[DBGrid1->DataSource->DataSet->RecNo]==1) //отрисовка красным

{ //измененных полей

DBGrid1->Canvas->Font->Color = clWhite;

DBGrid1->Canvas->Brush->Color = clRed;

}

}

DBGrid1->DefaultDrawDataCell (Rect, Field, State) ;

}

//---------------------------------------------------------------------------

void __fastcall TForm1: : ComboBox3Change (TObject *Sender)

{

Edit1->Text = ComboBox3->ItemIndex+1; //получение индекса выбранного предмета

// Form1->ADOQuery1->SQL->Text =

// «select код_студ, ФИО, Пропуски from Студент, Группа where группа. Названиеlike'« +

// Form1->ComboBox1->Text + «% ' and студент. Группа = группа. Код_группы»;

// Form1->ADOQuery1->Active = true; //

}

//---------------------------------------------------------------------------

Размещено на Allbest.ru