Руководство программиста (описание программный код добавление, изменение, удаление, поиск и сортировка данных в главном файле; формирование отчетов, ведомостей)
Добавление
begin
if edit1.text='' then
begin
showmessage('Введите код покупателя!'+#13'Внимание код покупателя не должен повторяться');
edit1.setfocus;
exit;
end;
if edit2.text='' then
begin
showmessage('Введите название покупателя');
edit2.setfocus;
exit;
end;
if edit3.text='' then
begin
showmessage('Введите адрес');
edit3.setfocus;
exit;
end;
if edit4.text='' then
begin
showmessage('Введите телефон');
edit4.setfocus;
exit;
end;
if edit5.text='' then
begin
showmessage('Введите факс');
edit5.setfocus;
exit;
end;
try
query1.Close;
query1.sql[1]:=('VALUES ('''+edit1.text+''','+''''+edit2.text+''')');
query1.execsql;
query2.Close;
query2.sql[1]:=('VALUES ('''+edit1.text+''','+''''+edit2.text+''','+''''+edit3.text+''','+''''+edit4.text+''','+''''+edit5.text+''')');
query2.execsql;
except
showmessage('Нельзя вводить повторяющиеся значения!');
end;
form1.table2.Close;
form1.table2.open;
form1.table1.Close;
form1.table1.open;
edit1.text:='';
edit2.text:='';
edit3.text:='';
edit4.text:='';
edit5.text:='';
end;
end;
Изменение:
procedure TForm6.FormActivate(Sender: TObject);
var i:byte;
begin
combobox1.Clear;
form1.Table3.First;
for i:=1 to form1.Table3.RecordCount do
begin
combobox1.Items.Add(form1.Table3.Fields[0].Asstring);
form1.Table3.Next;
end;
end;
procedure TForm6.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.Text<>'' then
begin
form2.query1.Close;
form2.query1.sql[5]:=('Dogovor.Iddog = '''+ComboBox1.Text+'''');
form2.query1.Open;
end;
edit1.text:=form2.query1.fields[4].value;
edit2.text:=form2.query1.fields[5].value;
edit3.text:=form2.query1.fields[3].value;
end;
procedure TForm6.Button1Click(Sender: TObject);
begin
if (ComboBox1.Text<>'') AND (edit1.Text<>'') and (edit2.Text<>'') and (edit3.Text<>'')then
begin
query1.Close;
query1.sql[1]:=('SET Sena='''+edit3.Text+''', Kolich='''+edit2.Text+'''');
query1.sql[2]:=('WHERE Iddog ='''+ComboBox1.Text+'''');
query1.ExecSQL;
form1.Table3.Close;
form1.Table3.open;
edit3.text:='';
edit1.text:='';
edit2.text:='';
end;
end;
end.
Удаление:
procedure TForm9.FormActivate(Sender: TObject);
var i:byte;
begin
combobox1.Clear;
form1.Table4.First;
for i:=1 to form1.Table4.RecordCount do
begin
combobox1.Items.Add(form1.Table4.Fields[1].Asstring);
form1.Table4.Next;
end;
end;
procedure TForm9.Button1Click(Sender: TObject);
begin
Query1.Close;
Query2.Close;
Query2.SQL[5]:=('Name ='''+combobox1.Text+'''');
Query1.SQL[2]:=('Name ='''+combobox1.Text+'''');
Query2.ExecSQL;
Query1.ExecSQL;
form1.Table4.Close;
form1.Table5.Close;
form1.Table4.Open;
form1.Table5.Open;
end;
end.
Сортировка:
procedure TForm8.RadioButton5Click(Sender: TObject);
begin
if radiobutton1.Checked then
form1.table5.IndexName:= 'KT ASC';
if radiobutton2.Checked then
form1.table5.IndexName:= 'KT DESC';
end;
procedure TForm8.RadioButton1Click(Sender: TObject);
begin
groupbox2.Visible:=true;
radiobutton3.Checked:= false;
radiobutton4.Checked:= false;
radiobutton5.Checked:= false;
radiobutton6.Checked:= false;
radiobutton7.Checked:= false;
end;
procedure TForm8.RadioButton2Click(Sender: TObject);
begin
groupbox2.Visible:=true;
radiobutton3.Checked:= false;
radiobutton4.Checked:= false;
radiobutton5.Checked:= false;
radiobutton6.Checked:= false;
radiobutton7.Checked:= false;
end;
procedure TForm8.RadioButton3Click(Sender: TObject);
begin
if radiobutton1.Checked then
form1.table5.IndexName:= 'N_nakl ASC';
if radiobutton2.Checked then
form1.table5.IndexName:= 'N_nakl DESC';
end;
procedure TForm8.RadioButton4Click(Sender: TObject);
begin
if radiobutton1.Checked then
form1.table5.IndexName:= 'N_dog ASC';
if radiobutton2.Checked then
form1.table5.IndexName:= 'N_dog DESC';
end;
procedure TForm8.RadioButton6Click(Sender: TObject);
begin
if radiobutton1.Checked then
form1.table5.IndexName:= 'Date ASC';
if radiobutton2.Checked then
form1.table5.IndexName:= 'Date DESC';
end;
procedure TForm8.RadioButton7Click(Sender: TObject);
begin
if radiobutton1.Checked then
form1.table5.IndexName:= 'Kolvo ASC';
if radiobutton2.Checked then
form1.table5.IndexName:= 'Kolvo DESC';
end;
end.
Поиск:
Программный код для первого запроса для кнопки «Найти»:
form1.query1.Close;
form1.query1.SQL[4]:=('where Name = '''+edit1.text+'''');
form1.query1.Open;
Программный код для второго запроса для кнопки «Договор»:
query1.Close;
query1.SQL[5]:=('Dogovor.Iddog = '''+combobox1.Text+'''');
query1.Open;
Диаграмма:
на вкладке Data Controls выбирается компонент DBChart. Затем нужно щелкнуть два раза на компоненте DBChart, выбрать нужную гистограмму и нажать Add. На вкладке Series выбрать вкладку DatsSourse(Query1: Select distinct Name,Sena,Kolich; From dogovor) и ввести необходимые параметры.
Диаграмма строится на основе данных из таблицы Договор и отображает соответствие цен определённым товарам.
- Оглавление
- 1.Задание на программирование
- 2. Определение целей и выделение задач
- 3. Анализ входной и выходной информации
- 3.1 Функциональные зависимости внутри файлов исходных данных (файл n, наименование поля, имя поля, тип данных, функциональная связь)
- 3.2 Логическая структура исходных данных программы (связи между файлами, ключевые поля, типы связей)
- 3.3 Структура взаимосвязей между исходными и результирующими данными
- 4. Техническое задание на программирование
- 4.1 Выбор типа операционной системы (сравнение двух систем: Windows, Linux)
- 4.2 Выбор языка программирования
- 4.3 Сетевой вариант работы программы
- 4.4 Технологии работы с базами данных (bde, ado, odbc и визуальные (невизуальные) компоненты для работы с бд)
- 4.5 Перенос программы на различные платформы (особенности Delphi, Kylix, библиотеки компонентов vcl, clx)
- 5.2.2 Функционально-модульная структура программы (состав, назначение, характеристика и взаимосвязь программных модулей, процедур и функций)
- Главный модуль
- 5.2.3 Структурная схема алгоритмов (добавление, изменение, удаление, поиск и сортировка данных в главном файле; формирование отчетов, ведомостей)
- 5.3 Осуществление выбора инструментальных средств разработки программных модулей (описание назначения, свойств, методов и событий для визуальных (невизуальных) компонентов общего назначения)
- 6.Рабочий проект
- 6.1 Описание применения
- Руководство пользователя
- Детальное описание работы с программой
- Графический интерфейс (описание форм, состава используемых объектов, их свойств, методов и событий для работы с исходными и результирующими данными)
- Диалоговый режим (условия, описание и особенности использования диалогов для ввода (редактирования) данных и задания параметров сервисных функций)
- Руководство программиста (описание программный код добавление, изменение, удаление, поиск и сортировка данных в главном файле; формирование отчетов, ведомостей)
- 7.Жизненный цикл программного продукта
- 7.1 Основные процессы жц
- 7.2 Вспомогательные процессы жц
- 8.Список использованных источников