Отчет по ЛР 01 (Лабораторная работа по делфи), страница 2
Описание файла
Файл "Отчет по ЛР 01" внутри архива находится в папке "Лабораторная работа по делфи". Документ из архива "Лабораторная работа по делфи", который расположен в категории "". Всё это находится в предмете "информационные технологии" из 2 семестр, которые можно найти в файловом архиве РТУ МИРЭА. Не смотря на прямую связь этого архива с РТУ МИРЭА, его также можно найти и в других разделах. Архив можно найти в разделе "лабораторные работы", в предмете "информационные технологии" в общих файлах.
Онлайн просмотр документа "Отчет по ЛР 01"
Текст 2 страницы из документа "Отчет по ЛР 01"
Add_form.P_vladelec.SetBounds(0,0,265,129);
Add_form.P_vladelec.Visible:=True;
Add_form.V_familiya.Text := Vladeles.FieldByName('Familiya').AsString;
Add_form.V_name.Text := Vladeles.FieldByName('Name').AsString;
Add_form.V_otchestvo.Text := Vladeles.FieldByName('Otchestvo').AsString;
Add_form.V_lgota.Text := Vladeles.FieldByName('Lgota').AsString;
Add_form.ShowModal;
End;
If (DBG.DataSource.DataSet = Telefons) Then Begin
Add_form.Caption := 'Изменение номера телефона';
Add_form.SetBounds(add_form.Left,add_form.Top,272,103);
Add_form.P_telefon.SetBounds(0,0,265,69);
Add_form.P_telefon.Visible:=True;
Add_form.T_number.Text := Telefons.FieldByName('Number').AsString;
Add_form.ShowModal;
End;
If (DBG.DataSource.DataSet = Settings) Then Begin
Add_form.Caption := 'Изменение установки телефона';
Add_form.SetBounds(add_form.Left,add_form.Top,272,171);
Add_form.P_settings.SetBounds(0,0,265,137);
Add_form.P_settings.Visible:=True;
Add_form.S_date.Date := Settings.FieldByName('Data').AsDateTime;
if Settings.FieldByName('Type').AsBoolean then
Add_form.S_type.ItemIndex := 0 else
Add_form.S_type.ItemIndex := 1;
Add_form.CB_number.Text := '';
Add_form.CB_vladelec.Text := '';
Add_form.CB_number.Items.Clear;
Add_form.CB_vladelec.Items.Clear;
Telefons.First;
While not Telefons.Eof Do Begin
Add_form.CB_number.Items.Add(Telefons.FieldByName('Number').AsString);
Telefons.Next;
end;
While not Vladeles.Eof Do Begin
Add_form.CB_vladelec.Items.Add(Vladeles.FieldByName('Familiya').AsString);
Vladeles.Next;
end;
Add_form.CB_number.ItemIndex := Settings.FieldByName('ID_Telefon').AsInteger - 1;
Add_form.CB_vladelec.ItemIndex := Settings.FieldByName('ID_Vladeles').AsInteger - 1;
Add_form.ShowModal;
End;
end;
procedure TATC.N9Click(Sender: TObject);
begin
DBGDblClick(Sender);
end;
procedure TATC.N10Click(Sender: TObject);
var
BS: Integer;
begin
BS := MessageDlg('Удалить запись?',mtInformation,[mbYes,mbNo], 0);
if BS = mrNo then Exit;
If (DBG.DataSource.DataSet = Vladeles) Then begin
if Settings.Locate('ID_Vladeles',Vladeles.FieldByName('ID_Vladeles').AsInteger,[]) Then begin
BS := MessageDlg('Найдены записи ссылающиеся на установки телефонов, продолжить?',mtInformation,[mbYes,mbNo], 0);
if BS = mrNo then Exit;
Settings.First;
While not Settings.Eof do begin
If Settings.FieldByName('ID_Vladeles').AsInteger = Vladeles.FieldByName('ID_Vladeles').AsInteger then
Settings.Delete
else
Settings.Next;
end;
end;
Vladeles.Delete;
end;
If (DBG.DataSource.DataSet = Telefons) Then begin
if Settings.Locate('ID_telefon',Telefons.FieldByName('ID_tel').AsInteger,[]) Then begin
BS := MessageDlg('Найдены записи ссылающиеся на установки телефонов, продолжить?',mtInformation,[mbYes,mbNo], 0);
if BS = mrNo then Exit;
Settings.First;
While not Settings.Eof do begin
If Settings.FieldByName('ID_Telefon').AsInteger = Telefons.FieldByName('ID_tel').AsInteger then
Settings.Delete
else
Settings.Next;
end;
end;
Vladeles.Delete;
end;
If (DBG.DataSource.DataSet = Settings) Then Settings.Delete;
end;
procedure TATC.FormCreate(Sender: TObject);
begin
Podsctet(Settings,Vladeles, Label2, Label3);
end;
procedure TATC.N12Click(Sender: TObject);
begin
F_Otchet.QuickRep1.Preview;
end;
end.
Скриншоты программы