Реализации информационной подсистемы "Advancement"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
?ь запись?',mtConfirmation,[mbYes,mbNo],0)= mrYes then
DM.SPECIALTY.Delete;;
TfmSpecialtyDiscipline.BitBtnSelectFromListClick(
Sender: TObject);
j, max: Integer;
fmDisciplineCheckListBox:= TfmDisciplineCheckListBox.Create(nil);//программное создание формы
fmDisciplineCheckListBox.CheckListBox1.Items.Clear;
DM.DISCIPLINE.First;
for j:= 1 to DM.DISCIPLINE.RecordCount do begin
fmDisciplineCheckListBox.CheckListBox1.Items.Add(DM.DISCIPLINEDName.Value);
DM.DISCIPLINE.Next;
end;
fmDisciplineCheckListBox.CheckBoxSelectAll.Checked:= false;
max:= fmDisciplineCheckListBox.CheckListBox1.Items.Capacity - 1;
if fmDisciplineCheckListBox.ShowModal = mrOK then begin
for j:= 0 to max do begin
if fmDisciplineCheckListBox.CheckListBox1.Checked[j] = true then begin
DM.SPECIALTYDISCIPLINE.Append;
DM.SPECIALTYDISCIPLINEDisciplineID.Value:= j + 1;
DM.SPECIALTYDISCIPLINE.Post;
end;
end;
DM.SPECIALTYDISCIPLINE.First;
DM.SPECIALTYDISCIPLINE.Refresh;
DBGrid2.Refresh;
end
else
fmDisciplineCheckListBox.Free;//освобождаем ресурс;
TfmSpecialtyDiscipline.BitBtnDisciplineIDelClick(
Sender: TObject);
if DM.STUDENTDISCIPLINE.RecordCount = 0 then begin
MessageDlg('Нет записи для удаления!',mtError,[mbOK],0);
Exit;
end
else if MessageDlg('Удалить запись?',mtConfirmation,[mbYes,mbNo],0)= mrYes then begin
DM.STUDENTDISCIPLINE.Delete;
end;;
TfmSpecialtyDiscipline.BitBtnDisciplineIAddClick(
Sender: TObject);
fmDisciplineSelect:= TfmDisciplineSelect.Create(nil);//программное создание формы
DM.SPECIALTYDISCIPLINE.Append;
if fmDisciplineSelect.ShowModal = mrOK then begin
DM.STUDENTDISCIPLINEDisciplineID.Value:= DM.SPECIALTYSpecialtyID.Value;
DM.SPECIALTYDISCIPLINE.Post;
end
else
DM.SPECIALTYDISCIPLINE.Cancel;
fmDisciplineSelect.Free;//освобождаем ресурс;
TfmSpecialtyDiscipline.BitBtnDisciplineIEditClick(
Sender: TObject);
fmDiscipline:= TfmDiscipline.Create(nil);//программное создание формы
fmDiscipline.ShowModal;
fmDiscipline.Free;//освобождаем ресурс;
end.