Разработка программной системы «Автоматизированная записная книжка», страница 4

1.  Если пользователь выбрал переход на форму «контакты», то открывается выбранная форма. Если пользователь выбрал «просмотреть все», то в таблице DBGrid1 выводятся все существующие записи, выполняется процедура (procedure TForm6.BitBtn1Click(Sender: TObject)):

begin

DataModule1.ADOQuery2.Close;

DataModule1.ADOQuery2.SQL.Clear;

DataModule1.ADOQuery2.SQL.Add('select * from Contact');

DataModule1.ADOQuery2.Open; end;

Если пользователь выбрал просмотр по группам, то в таблице DBGrid1 выводятся записи только этой группы выполняется процедура (procedure TForm6.ComboBox1Change(Sender: TObject)):

begin

DataModule1.ADOQuery2.Close;

DataModule1.ADOQuery2.SQL.Clear;

DataModule1.ADOQuery2.SQL.Add('select * from Contact where Gruppa= '''+ComboBox1.Text+''' ');

DataModule1.ADOQuery2.Open; end;

Если пользователю нужно найти данные определенного контакта он выбирает поиск:

если пользователь ищет нужную фамилию, он вводит в Edit1 фамилию и отмечает галочкой CheckBox1 и нажимает BitBtn10, если пользователь ищет нужный номер, он вводит в Edit1 номер и отмечает галочкой CheckBox2 и нажимает BitBtn10 выполняется процедура(procedure TForm6.BitBtn10Click(Sender: TObject)):

if CheckBox1.Checked then //поискпофамилии

begin

DataModule1.ADOQuery2.Close;

DataModule1.ADOQuery2.SQL.Clear;

DataModule1.ADOQuery2.SQL.Add('select * from Contact where FIO='''+Edit1.Text+'''');

DataModule1.ADOQuery2.Open;

end;

 if CheckBox2.Checked then//поискпотелефону

 begin

  DataModule1.ADOQuery2.Close;

DataModule1.ADOQuery2.SQL.Clear;

DataModule1.ADOQuery2.SQL.Add('select * from Contact where tel='''+Edit1.Text+'''');

DataModule1.ADOQuery2.Open; end;

Для сортировки пользователь нажимает нужное направление сортировки:

При нажатии BitBtn2 данные в DBGrid1 сортируются по номеру, выполняется процедура (procedure TForm6.BitBtn2Click(Sender: TObject)):

begin

DataModule1.ADOQuery2.Close;

DataModule1.ADOQuery2.SQL.Clear;

DataModule1.ADOQuery2.SQL.Add('select * from Contact order by ID_cont');

DataModule1.ADOQuery2.Open; end;

При нажатии BitBtn3 данные в DBGrid1 сортируются по ФИО, выполняется процедура (procedure TForm6.BitBtn3Click(Sender: TObject)):

begin

DataModule1.ADOQuery2.Close;

DataModule1.ADOQuery2.SQL.Clear;

DataModule1.ADOQuery2.SQL.Add('select * from Contact order by FIO');

DataModule1.ADOQuery2.Open; end;

При нажатии BitBtn5 данные в DBGrid1 сортируются по телефону, выполняется процедура (procedure TForm6.BitBtn5Click(Sender: TObject)):

begin

DataModule1.ADOQuery2.Close;

DataModule1.ADOQuery2.SQL.Clear;

DataModule1.ADOQuery2.SQL.Add('select * from Contact order by tel');

DataModule1.ADOQuery2.Open; end;

При нажатии BitBtn6 данные в DBGrid1 сортируются E-mail, выполняется процедура (procedure TForm6.BitBtn6Click(Sender: TObject)):

begin

DataModule1.ADOQuery2.Close;

DataModule1.ADOQuery2.SQL.Clear;

DataModule1.ADOQuery2.SQL.Add('select * from Contact order by e_mail');

DataModule1.ADOQuery2.Open; end;

При нажатии BitBtn7 данные в DBGrid1 сортируются по адресу, выполняется процедура (procedure TForm6.BitBtn7Click(Sender: TObject)):

begin

DataModule1.ADOQuery2.Close;

DataModule1.ADOQuery2.SQL.Clear;

DataModule1.ADOQuery2.SQL.Add('select * from Contact order by Adress');

DataModule1.ADOQuery2.Open; end;

При нажатии BitBtn4 данные в DBGrid1 сортируются по группам, выполняется процедура (procedure TForm6.BitBtn4Click(Sender: TObject)):

begin

DataModule1.ADOQuery2.Close;

DataModule1.ADOQuery2.SQL.Clear;

DataModule1.ADOQuery2.SQL.Add('select * from Contact order by Gruppa');

DataModule1.ADOQuery2.Open; end;

Но вместо кнопок пользователь видит заголовок таблицы.

При добавлении записи пользователем, выполняется процедура (procedure TForm3.BitBtn3Click(Sender: TObject)):

begin

DataModule1.ADOQuery1.Close;

 DataModule1.ADOQuery1.SQL.Clear;