Автор работы: Пользователь скрыл имя, 21 Мая 2013 в 08:11, курсовая работа
Подходя к современным требованиям нельзя не отметить, что эффективная работа всецело зависит от уровня оснащения электронным оборудованием, таким, как компьютеры, средства связи, копировальные устройства, а также соответствующего программного обеспечения. Ни одна современная организация не обходится без систем сбора и обработки информации. Чем больше стадий, тем этот процесс сложнее, чем больше и разнообразнее спектр информации, тем больше потребность в автоматизированном сборе, обработке и хранении информации в электронном виде. Поиск информации в бумажном виде занимает от минуты до нескольких дней, в зависимости от того, когда информация была собрана, поиск в электронном хранилище данных выполняется за доли и единицы секунд.
Введение…………………………………………………………………………3
1 Интерфейсы компьютерных систем…………………………………………4
1.1 Эволюция пользовательских интерфейсов……………………………….4
1.2 Актуальность интерфейсов....……………………………………………....5
1.3 Понятие интерфейса пользователя………………………………………...6
1.4 Виды интерфейсов……………………………...…………………………...8
2 Разработка пользовательского интерфейса «Языковая школа»……..…...10
2.1 Подключение базы данных к проекту Delphi………….....……………10
2.2 Интерфейсное управление данными..……………..……………………11
2.3 Диалоги загрузки графических файлов…………….…………………..12
2.4 Главное и контекстное меню...……………………..……………………..14
2.5 Создание сортировки.……………………………..……………………….19
2.5 Создание фильтрации для записей таблицы…………….……………….21
2.7 Поиск и работа с записями набора данных……………..………………25
Заключение…………………………………………………………………...…29
Список использованной литературы...………………...…
DataM.PrepodaTable.Cancel;
end;
procedure TForm1.Del_ItemClick(Sender: TObject);
begin
if DBGrid1.DataSource = DataM.UchenikiSource then
begin
if Application.MessageBox(PChar('
'Внимание!', MB_YESNOCANCEL + MB_ICONQUESTION) = id_YES then
begin
DataM.UchenikiTable.Delete; //удаляем запись
end;
end;
if DBGrid1.DataSource = DataM.PrepodaSource then
begin
if Application.MessageBox(PChar('
'Внимание!', MB_YESNOCANCEL + MB_ICONQUESTION) = id_YES then
begin
DataM.PrepodaTable.Delete; //удаляем запись
end;
end;
end;
procedure TForm1.
Button: TNavigateBtn);
begin
if Button = nbDelete then
begin
Del_ItemClick(Sender); //вызываем процедуру удаления
Abort;
end;
end;
procedure TForm1.AddPop_ItemClick(
begin
Add_ItemClick(Sender);
end;
procedure TForm1.EditPop_ItemClick(
begin
Edit_ItemClick(Sender);
end;
procedure TForm1.DelPop_ItemClick(
begin
Del_ItemClick(Sender);
end;
procedure TForm1.DBEdit20Change(Sender: TObject);
begin
StatusBar1.Panels[3].Text
:= IntToStr(DataM.PrepodaTable.
StatusBar1.Panels[4].Text
:= DataM.PrepodaTableFamiliya_P.
if DataM.PrepodaTableFoto.
begin
BitBtn2.Enabled := false;
DelFotoPop_Item.Enabled := false;
end
else
begin
BitBtn2.Enabled := true;
DelFotoPop_Item.Enabled := true;
end;
end;
procedure TForm1.DelFotoPop_ItemClick(
begin
BitBtn2Click(Sender);
end;
procedure TForm1.LoadFotoPop_ItemClick(
begin
BitBtn1Click(Sender);
end;
procedure TForm1.ShowHint(Sender: TObject);
begin
StatusBar1.Panels[1].Text := Application.Hint;
end;