Вход

Проектирование и разработка информационной системы учреждения дополнительного образования школьников на примере Арского Дворца школьников.

Дипломная работа
Дата создания 14.06.2016
Страниц 90
Вы будете перенаправлены на сайт нашего партнёра, где сможете оформить покупку данной работы.
6 930руб.
КУПИТЬ

Содержание

- Содержание

Фрагмент работы для ознакомления

procedure TForm2.RzBitBtn1Click(Sender: TObject);begin//Загрузка формы добавления услуги form3.edit1.clear; form3.edit2.clear; form3.Show;end;procedure TForm2.RzBitBtn3Click(Sender: TObject);beginclose;end;procedure TForm2.RzBitBtn2Click(Sender: TObject);begin//Загрузка формы изменения тарифа за услугиform4.Label3.Caption:=trim(form1.ADOQuery1nam.AsString); form4.Edit1.Text:=form1.ADOQuery1stm.AsString; form4.Show;end;end.procedure TForm3.RzBitBtn2Click(Sender: TObject);beginClose;end;procedure TForm3.RzBitBtn1Click(Sender: TObject);varcode:integer;begin//Поиск идентификатора для услугиwith form3.ADOQuery1 dobeginclose;sql.Clear;sql.Add('select max(code_usl) from usl');open;end;if form3.ADOQuery1.RecordCount=0 then code:=1 else code:=1+form3.ADOQuery1Expr1000.AsInteger;//Добавление услугиform1.ADOQuery1.AppendRecord([code,edit1.Text,edit2.Text]); edit1.clear; edit2.clear;showmessage('Записано');end;end.unit Unit4;procedure TForm4.RzBitBtn2Click(Sender: TObject);beginclose;end;procedure TForm4.RzBitBtn1Click(Sender: TObject);varcode:integer;begincode:=form1.ADOQuery1code_usl.AsInteger;//Установка тарифа за услуги with form1.ADOQuery1 dobeginclose;sql.Clear;sql.Add('update usl set stm='+edit1.Text+' where code_usl='+inttostr(code));execsql;close;sql.Clear;sql.Add('select * from usl');active:=true;end;form1.ADOQuery1.Locate('code',code,[]);showmessage('Записано');end;end.procedure TForm5.RzRapidFireButton1Click(Sender: TObject);varcode:integer;begin//Поиск идентификатора группыwith form5.ADOQuery1 dobeginclose;sql.Clear;sql.Add('select max(code_grp) from grp');open;end;//Запись в справочник группif form5.ADOQuery1.RecordCount=0 then code:=1 else code:=1+form5.ADOQuery1Expr1000.AsInteger;form1.ADOQuery2.AppendRecord([code,edit1.Text]); edit1.clear;showmessage('Записано');end;end.unit Unit6;procedure TForm6.RzBitBtn3Click(Sender: TObject);beginclose;end;procedure TForm6.RzBitBtn1Click(Sender: TObject);begin//Открытие формы добавления новой записи в справочник контингента. Очистка полейform7.Edit2.clear; form7.Edit3.clear; form7.Edit4.clear; form7.Edit5.clear;with form1.ADOQuery2 dobeginclose;sql.Clear;sql.Add('select * from grp');active:=true;end;//Поиск идентификатораwith adoquery1 dobeginclose;sql.Clear;sql.Add('select max(code_det) from det');open;end;if form6.ADOQuery1.RecordCount=0 then form7.Edit1.Text:='1' else form7.Edit1.Text:=inttostr(1+form6.ADOQuery1Expr1000.AsInteger); form7.Show;end;procedure TForm6.RzBitBtn2Click(Sender: TObject);begin//Подготовка формы изменения текущей записи справочника контингентаwith form1.ADOQuery2 dobeginclose;sql.Clear;sql.Add('select * from grp');active:=true;end;form1.ADOQuery2.Locate('nam',trim(form1.ADOQuery4nam.AsString),[]); form8.Edit1.Text:=form1.ADOQuery4code_det.AsString; form8.DateTimePicker1.Date:=form1.ADOQuery4dtr.AsDateTime; form8.Edit2.Text:=form1.ADOQuery4fio.AsString; form8.Edit3.Text:=form1.ADOQuery4fio_r.AsString; form8.Edit4.Text:=form1.ADOQuery4adr.AsString; form8.Edit5.Text:=form1.ADOQuery4tel.AsString; form8.Show;end;end.procedure TForm7.RzBitBtn2Click(Sender: TObject);beginclose;end;procedure TForm7.RzBitBtn1Click(Sender: TObject);begin form1.ADOQuery3.Open;//Новаязаписьвсправочникконтингентаform1.ADOQuery3.AppendRecord([edit1.Text,edit2.Text,datetimepicker1.Date,edit3.Text,edit4.Text,edit5.Text,form1.ADOQuery2code_grp.AsInteger]);with form1.ADOQuery4 dobeginclose;sql.Clear;sql.add('select * from zp1');active:=true;end;//Очистка полей form7.Edit2.clear; form7.Edit3.clear; form7.Edit4.clear; form7.Edit5.clear;form1.ADOQuery4.Locate('code_det',strtoint(edit1.Text),[]); edit1.Text:=inttostr(1+strtoint(edit1.Text));showmessage('Записано');end;end.procedure TForm8.RzBitBtn2Click(Sender: TObject);beginclose;end;procedure TForm8.RzBitBtn1Click(Sender: TObject);begin//Изменение текущей записи в справочнике контингентаwith form1.ADOQuery3 dobeginclose;sql.Clear;sql.Add('update det set fio='+form1.Label1.Caption+trim(edit2.Text)+form1.Label1.Caption+' where code_det='+edit1.Text);execsql;close;sql.Clear;sql.Add('update det set fio_r='+form1.Label1.Caption+trim(edit3.Text)+form1.Label1.Caption+' where code_det='+edit1.Text);execsql;close;sql.Clear;sql.Add('update det set adr='+form1.Label1.Caption+trim(edit4.Text)+form1.Label1.Caption+' where code_det='+edit1.Text);execsql;close;sql.Clear;sql.Add('update det set tel='+form1.Label1.Caption+trim(edit5.Text)+form1.Label1.Caption+' where code_det='+edit1.Text);execsql;close;sql.Clear;sql.Add('update det set code_grp='+form1.ADOQuery2code_grp.AsString+' where code_det='+edit1.Text);execsql;close;sql.Clear;sql.Add('select * from det');active:=true;end;with form1.ADOQuery4 dobeginclose;sql.Clear;sql.add('select * from zp1');active:=true;end;//Переход к измененной текущей записиform1.ADOQuery4.Locate('code_det',strtoint(edit1.Text),[]);showmessage('Записано');end;end.procedure TForm9.RzBitBtn1Click(Sender: TObject);var i:integer;begin//Подбор оказываемых услуг. Выбор группыform9.CheckListBox1.clear;with form1.ADOQuery3 dobeginclose;sql.Clear;sql.Add('select * from det where code_grp='+form1.ADOQuery2code_grp.AsString);open;end;//Заполнение списка для выбора оказанных услугfor i:=1 to form1.ADOQuery3.RecordCount dobeginchecklistbox1.Items.Add(trim(form1.ADOQuery3fio.AsString)); form1.ADOQuery3.Next;end;end;procedure TForm9.RzBitBtn3Click(Sender: TObject);beginclose;end;procedure TForm9.RzBitBtn2Click(Sender: TObject);vari,code:integer;begin form1.ADOQuery5.Open;//Поиск идентификатораwith adoquery1 dobeginclose;sql.Clear;sql.Add('select max(code) from gur_usl');open;end;if form9.ADOQuery1.RecordCount=0 then code:=1 else code:=1+form9.ADOQuery1Expr1000.AsInteger;//Выбор отмеченных записей для журнала оказанных услугfor i:=1 to form9.CheckListBox1.Items.Count dobeginif form9.CheckListBox1.Checked[i-1]=true thenbeginwith form1.ADOQuery3 dobeginclose;sql.Clear;sql.Add('select * from det where (fio='+form1.Label1.Caption+trim(form9.CheckListBox1.Items[i-1])+form1.Label1.Caption+')');open;end;//Записьвжурналпосещенныхзанятийform1.ADOQuery5.AppendRecord([code,form1.ADOQuery1code_usl.AsInteger,form1.ADOQuery3code_det.AsInteger,datetimepicker1.Date,0,form1.ADOQuery1stm.AsCurrency, form1.ADOQuery6code_sotr.AsInteger]);code:=code+1;end;end;showmessage('Записано');end;end.

Список литературы

- список литературы
Пожалуйста, внимательно изучайте содержание и фрагменты работы. Деньги за приобретённые готовые работы по причине несоответствия данной работы вашим требованиям или её уникальности не возвращаются.
Сколько стоит
заказать работу?
1
Заполните заявку - это бесплатно и ни к чему вас не обязывает. Окончательное решение вы принимаете после ознакомления с условиями выполнения работы.
2
Менеджер оценивает работу и сообщает вам стоимость и сроки.
3
Вы вносите предоплату 25% и мы приступаем к работе.
4
Менеджер найдёт лучшего автора по вашей теме, проконтролирует выполнение работы и сделает всё, чтобы вы остались довольны.
5
Автор примет во внимание все ваши пожелания и требования вуза, оформит работу согласно ГОСТам, произведёт необходимые доработки БЕСПЛАТНО.
6
Контроль качества проверит работу на уникальность.
7
Готово! Осталось внести доплату и работу можно скачать в личном кабинете.
После нажатия кнопки "Узнать стоимость" вы будете перенаправлены на сайт нашего официального партнёра Zaochnik.com
© Рефератбанк, 2002 - 2017