Диплом: Автоматизация процесса контроля знаний учащихся ГУО "Средняя школа №8 г. Полоцка"

Поиск по базе
Скачать
Заказать новую работу
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
130
if fmain.RadioGroup1.ItemIndex = 0 then fmain.BitBtn10.Caption:=' Удалить
успеваемость ' else fmain.BitBtn10.Caption:='Удалить контактные данные';
end;
//преподаватели
if fmain.PageControl1.TabIndex = 1 then
begin
fmain.DBGrid5.Columns.Clear;
if fmain.RadioGroup1.ItemIndex = 0 then
fmain.DBGrid5.DataSource:=fdm.DSUchNagrus else begin
fmain.DBGrid5.DataSource:=fdm.DSKDPrep;
fdm.TKDPrep.MasterFields:='ИДПреподаватель';
fdm.TKDPrep.MasterSource:=fdm.DSPrepod; end;
if fmain.RadioGroup1.ItemIndex = 0 then fmain.BitBtn10.Caption:='Удалить
успеваемость' else fmain.BitBtn10.Caption:= 'Удалить контактные данные'';
end;
end;
procedure TfMain.PageControl1Change(Sender: TObject);
Var s:string;
begin
fmain.RadioGroup1.Items.Clear;
//классы
if fmain.PageControl1.TabIndex = 0 then
begin
ClearSvz;
fmain.RadioGroup1.Items.Add('Успеваемость');
fmain.RadioGroup1.Items.Add('Контактные данные');
fmain.RadioGroup1.ItemIndex:=0;
131
fmain.DBGrid1.DataSource:=fdm.DSKlass;
fmain.DBGrid2.DataSource:=fdm.DSUchenik;
fdm.TUchenik.MasterFields:='ИДКласс';
fdm.TUchenik.MasterSource:=fdm.DSKlass;
fmain.DBGrid3.DataSource:=fdm.DSUspev;
fdm.TUspev.MasterSource:=fdm.DSUchenik;
fdm.TUspev.MasterFields:='ИДУчащийся';
fmain.BitBtn6.Caption:='Новый учащийся';
fmain.BitBtn9.Caption:='Редактирование учащихся';
fmain.BitBtn2.Caption:='Удалить учащегося';
fmain.BitBtn4.Caption:='Новый класс';
fmain.BitBtn7.Caption:='Редактирование класса';
fmain.BitBtn8.Caption:='Новый класс';
fmain.GroupBox1.Visible:=false;
fmain.BitBtn10.Visible:=true;
fmain.BitBtn6.Visible:=true;
fmain.BitBtn9.Visible:=true;
fmain.BitBtn2.Visible:=true;
fmain.BitBtn4.Visible:=true;
fmain.BitBtn7.Visible:=true;
fmain.BitBtn8.Visible:=true;
fmain.BitBtn5.Visible:=true;
fmain.Panel4.Visible:=true;
fmain.ComboBox1.Items.Clear;
s:='Фамилии учащегося';
fmain.ComboBox1.Items.Add(s);
132
s:='Имени учащегося';
fmain.ComboBox1.Items.Add(s);
s:='Отчеству учащегося';
fmain.ComboBox1.Items.Add(s);
s:='Домашнему адресу' ;
fmain.ComboBox1.Items.Add(s);
fmain.RadioGroup1.Visible:=true;
fmain.BitBtn6.Left:=280;
fmain.BitBtn9.Left:=280;
fmain.BitBtn2.Left:=280;
fmain.ComboBox1.Visible:=true;
fmain.Edit1.Visible:=true;
fmain.BitBtn6.Enabled:=true;
fmain.BitBtn9.Enabled:=true;
fmain.BitBtn2.Enabled:=true;
if fauth.ComboBox1.ItemIndex = 1 then
begin
fmain.BitBtn4.Enabled:=true;
fmain.BitBtn7.Enabled:=true;
fmain.BitBtn8.Enabled:=true;
end
end;
//преподватели
if fmain.PageControl1.TabIndex = 1 then
begin
ClearSvz;
fmain.RadioGroup1.Items.Add('Учебная нагрузка');
133
fmain.RadioGroup1.Items.Add('Контактные данные');
fmain.RadioGroup1.ItemIndex:=0;
fmain.DBGrid4.DataSource:=fdm.DSPrepod;
fmain.DBGrid5.DataSource:=fdm.DSUchNagrus;
fdm.TUchNagrus.MasterFields:='ИДПреподавателя';
fdm.TUchNagrus.MasterSource:=fdm.DSPrepod;
fmain.BitBtn6.Caption:='Новый учащийся';
fmain.BitBtn9.Caption:='Редактирование учащихся';
fmain.BitBtn2.Caption:='Удалить учащегося';
fmain.BitBtn4.Caption:='Новый класс';
fmain.BitBtn7.Caption:='Редактирование класса';
fmain.BitBtn8.Caption:='Новый класс';
fmain.GroupBox1.Visible:=true;
s:='по фамилии';
fmain.ComboBox2.Items.Add(s);
s:='по имени';
fmain.ComboBox2.Items.Add(s);
s:='по отчеству';
fmain.ComboBox2.Items.Add(s);
fmain.BitBtn10.Visible:=true;
fmain.BitBtn6.Visible:=true;
fmain.BitBtn9.Visible:=true;
fmain.BitBtn2.Visible:=true;
fmain.BitBtn4.Visible:=true;
fmain.BitBtn7.Visible:=true;
fmain.BitBtn8.Visible:=true;
fmain.BitBtn5.Visible:=true;
fmain.Panel4.Visible:=true;
134
fmain.ComboBox1.Items.Clear;
s:='Фамилии преподавателя;
fmain.ComboBox1.Items.Add(s);
s:='Имени преподавателя';
fmain.ComboBox1.Items.Add(s);
s:='Отчеству преподавателя';
fmain.ComboBox1.Items.Add(s);
s:='Образование преподавателя' ;
fmain.ComboBox1.Items.Add(s);
fmain.BitBtn6.Left:=280;
fmain.BitBtn9.Left:=280;
fmain.BitBtn2.Left:=280;
fmain.RadioGroup1.Visible:=true;
if fauth.ComboBox1.ItemIndex = 1 then
begin
fmain.BitBtn6.Enabled:=false;
fmain.BitBtn9.Enabled:=false;
fmain.BitBtn2.Enabled:=false;
fmain.BitBtn4.Enabled:=false;
fmain.BitBtn7.Enabled:=false;
fmain.BitBtn8.Enabled:=false;
end
end;
//Учебная нагрузка
if fmain.PageControl1.TabIndex = 3 then
begin
ClearSvz;
fmain.RadioGroup1.ItemIndex:=0;
135
fmain.DBGrid7.DataSource:=fdm.DSUchNagrus;
fmain.DBGrid8.DataSource:=fdm.DSUspev;
fdm.TUspev.MasterSource:=fdm.DSUchNagrus;
fdm.TUspev.MasterFields:='ИДУчебНагрузка';
fmain.GroupBox1.Visible:=false;
fmain.BitBtn10.Visible:=false;
fmain.BitBtn6.Visible:=true;
fmain.BitBtn6.Caption:='Новая учебная нагрузка';
fmain.BitBtn9.Visible:=true;
fmain.BitBtn9.Caption:='Редактировать учебную нагрузку';
fmain.BitBtn2.Visible:=true;
fmain.BitBtn2.Caption:='Удалить учебную нагрузку';
fmain.BitBtn4.Visible:=false;
fmain.BitBtn7.Visible:=false;
fmain.BitBtn8.Visible:=false;
fmain.BitBtn5.Visible:=false;
fmain.RadioGroup1.Visible:=false;
fmain.BitBtn6.Left:=20;
fmain.BitBtn9.Left:=20;
fmain.BitBtn2.Left:=20;
end;
//Добавление оценки
if fmain.PageControl1.TabIndex = 4 then
begin
if fauth.ComboBox1.ItemIndex = 1 then
begin
ClearSvz;
fmain.ADOTable2.Active:=true;
136
fmain.ADOQuery4.Active:=true;
fmain.GroupBox1.Visible:=false;
fmain.BitBtn10.Visible:=false;
fmain.BitBtn6.Visible:=false;
fmain.BitBtn9.Visible:=false;
fmain.BitBtn2.Visible:=false;
fmain.BitBtn4.Visible:=false;
fmain.BitBtn7.Visible:=false;
fmain.BitBtn8.Visible:=false;
fmain.BitBtn5.Visible:=false;
fmain.Panel4.Visible:=false;
fmain.BitBtn6.Left:=280;
fmain.BitBtn9.Left:=280;
fmain.BitBtn2.Left:=280;
end
else
begin
ClearSvz;
fmain.ADOTable1.Active:=true;
fmain.Tuch.Active:=true;
fmain.ADOQuery2.Active:=true;
fmain.ADOQuery1.Active:=true;
fmain.GroupBox1.Visible:=false;
fmain.BitBtn10.Visible:=false;
fmain.BitBtn6.Visible:=false;
fmain.BitBtn9.Visible:=false;
fmain.BitBtn2.Visible:=false;
fmain.BitBtn4.Visible:=false;
fmain.BitBtn7.Visible:=false;
fmain.BitBtn8.Visible:=false;
fmain.BitBtn5.Visible:=false;
137
fmain.Panel4.Visible:=false;
fmain.BitBtn6.Left:=280;
fmain.BitBtn9.Left:=280;
fmain.BitBtn2.Left:=280; end;
end;
//Успеваемость
if fmain.PageControl1.TabIndex = 5 then
begin
ClearSvz;
fmain.ADOTable2.Active:=true;
fmain.ADOQuery4.Active:=true;
fmain.GroupBox1.Visible:=false;
fmain.BitBtn10.Visible:=false;
fmain.BitBtn6.Visible:=false;
fmain.BitBtn9.Visible:=false;
fmain.BitBtn2.Visible:=false;
fmain.BitBtn4.Visible:=false;
fmain.BitBtn7.Visible:=false;
fmain.BitBtn8.Visible:=false;
fmain.BitBtn5.Visible:=false;
fmain.Panel4.Visible:=false;
fmain.BitBtn6.Left:=280;
fmain.BitBtn9.Left:=280;
fmain.BitBtn2.Left:=280;
end;
//Предметы
if fmain.PageControl1.TabIndex = 2 then
begin
ClearSvz;
138
fmain.Edit1.Visible:=false;
fmain.ComboBox1.Visible:=false;
fmain.RadioGroup1.Visible:=false;
fmain.Label10.Visible:=false;
fmain.GroupBox1.Visible:=false;
fmain.BitBtn10.Visible:=false;
fmain.BitBtn6.Visible:=true;
fmain.BitBtn6.Caption:='Добавить предмет';
fmain.BitBtn9.Visible:=true;
fmain.BitBtn9.Caption:='Редактировать предмет';
fmain.BitBtn2.Visible:=true;
fmain.BitBtn2.Caption:='Удалить предмет ';
fmain.BitBtn4.Visible:=false;
fmain.BitBtn7.Visible:=false;
fmain.BitBtn8.Visible:=false;
fmain.BitBtn5.Visible:=false;
fmain.Panel4.Visible:=true;
fmain.BitBtn6.Left:=20;
fmain.BitBtn9.Left:=20;
fmain.BitBtn2.Left:=20;
if fauth.ComboBox1.ItemIndex = 1 then
begin
fmain.BitBtn6.Enabled:=false;
fmain.BitBtn9.Enabled:=false;
fmain.BitBtn2.Enabled:=false;
end
end;
end;
procedure TfMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
139
CanClose := MessageBox(Application.Handle,'Вы действительно хотите
выйти из программы?','Предупреждение',MB_YESNO)=ID_YES; //по-русски
end;
procedure TfMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Application.Terminate;
end;
procedure TfMain.N4Click(Sender: TObject);
begin
fmain.Close;
end;
procedure TfMain.DBLookupComboBox1Click(Sender: TObject);
Var i,n:integer;
begin
fmain.DBLookupListBox1.Enabled:=true;
fmain.StringGrid1.ColCount:=5;
n:=Tuch.RecordCount+1;
fmain.StringGrid1.RowCount:=n;
AdoQuery2.Close;
AdoQuery2.SQL.Clear;
AdoQuery2.SQL.Add('Select * From Учебная нагрузка Where Класс =
'+IntToStr(DBLookupComboBox1.KeyValue));
AdoQuery2.Open;
AdoQuery2.Active:=true;
fmain.StringGrid1.ColWidths[0]:=200;
for i:=1 to n do
begin

Смотрите также:

"Автоматизация обработки заявок ООО "Проектно-Строительная Компания"
"Автоматизация процесса аттестации персонала для ООО "Нэт Бай Нэт Холдинг"
"Анализ интернет-активности конкурентов ( на примере конкурентов "Газпром нефть")
"Бухгалтерский учёт и аудит расчётов с подотчётними лицами в организации на примере ООО "ЛОЦ 10""
«Психологическое сопровождение персонала в организации на примере ООО «Крокус»
Cовершенствование деловой оценки персонала в организации (на примере ООО "Даймонд кейтеринг развитие")
IPO - инструмент финансирования деятельности организации. На примере ПАО «Нефтяная компания «Лукойл»
PR как средство продвижения организации (на примере ПАО "Тамбовский завод "Комсомолец им. Н.С. Артемова")
PR-коммуникации в сфере общественного питания (на примере кафе-кондитерской «Cream Cheese»)
SMM как средство повышения эффективности работы учреждений социокультурной сферы (на примере Малого театра)