Автор работы: Пользователь скрыл имя, 11 Июня 2013 в 10:46, курсовая работа
В настоящее время, когда ЭВМ прочно вошли в производственную деятельность человека, нет необходимости доказывать эффективность использования вычислительной техники в системах управления технологическими процессами, проектирования, научных исследований, административного управления, в учебном процессе, банковских расчетах, здравоохранении, сфере обслуживания и т.д.
Введение
1 Анализ предметной области
2 Постановка задачи
3 Структура базы данных
4 Разработка программы
4.1 Программная реализация
4.2 Анализ организации данных
4.3 Анализ программного кода
5 Описание программы
5.1 Интерфейс пользователя
5.2 Инструкция пользователя
5.3 Системные требования.
Выводы
Перечень ссылок
Приложение А
Приложение Б
Приложение В
Приложение Г
Приложение Д
Приложение Е
//ñòèðàþ âñå äàííûå íà ôîðìå
eKontinent.Clear;
eLanguage1.Clear;
eLanguage2.Clear;
eLanguage3.Clear;
eCapital.Clear;
eCountry.Clear;
eKontinent.Text := DM.tbKontinentKontinent.Value;
//íàõîäèì âñå ãîñóäàðñòâåííûå ÿçûêè
DM.qWork.SQL.Clear;
DM.qWork.SQL.Add('Select Language from Language
where ID in (Select ID_Language from Main where ID_Country in (Select
ID from Country where Country = '''+DM.tbCountryCountry.Value+
DM.qWork.Open;
eLanguage1.Text := DM.qWork.FieldByName('
if DM.qWork.RecordCount >= 2 then
begin
DM.qWork.Next;
eLanguage2.Text := DM.qWork.FieldByName('
end;
if DM.qWork.RecordCount = 3 then
begin
DM.qWork.Next;
eLanguage3.Text := DM.qWork.FieldByName('
end;
DM.qWork.Close;
eCountry.Text := DM.tbCountryCountry.Text;
eCapital.Text := DM.tbCountryCapital.Text;
end;
procedure TfrmView.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = VK_Escape then frmView.Close;
end;
end.