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

-

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.