Автоматизация судебного заседания

Содержание
Стр.
Список обозначений 3
Введение 4
1 Теоретическая часть 5
1.1 Описание предметной области 5
1.2 Обоснование выбора среды разработки 9
1.3 Язык SQL 15
2 Практическая часть 17
2.1 Общее описание АИС 17
2.2 Структура таблиц 18
2.3 Руководство пользователя 19
Заключение 22
Список использованной литературы 23

dfm}procedure TForm1.CreateMSAccessDB(filename : String);varaccessMDB, DAOEngine : Variant;NameBD : String;beginNameBD := ('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ FileName + ';Jet OLEDB:Database Password=1');tryaccessMDB := CreateOleObject('ADOX.Catalog'); // ADOXDAOEngine :=CreateOleObject('DAO.DBEngine.36');excepttryDAOEngine :=CreateOleObject('DAO.DBEngine.35');exceptbeginShowMessage('Ошибкасоздания -> DAO.DBEngine'); Exit;end;end;end;tryaccessMDB.Create(NameBD); // работас ADOXaccessMDB := NULL;exceptbeginShowMessage('ОшибкасозданияБД -> ' + FileName); Exit;end;end;end;procedure TForm1.FormCreate(Sender: TObject);varname_bd : String;TT :TStringList;begin//установимрусскуюраскладкуклавиатурыLoadKeyboardLayout('00000419', KLF_ACTIVATE);DecimalSeparator:='.';//создадимБДформата ACCESSname_bd:=ExtractFilePath(Application.ExeName)+'sud.mdb';ADOConnection1.LoginPrompt:=False;ifFileExists(name_bd)<>TRUE then CreateMSAccessDB(name_bd);//строка для соединения с БД Пароль для БД - 1ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+name_bd+';Persist Security Info=False; Jet OLEDB:Database Password=1';//создадим массив с названиями таблицTT:=TStringList.Create;ADOConnection1.GetTableNames(TT);//проверим на наличие каждой таблицы и в случае отсутствия создадим ееif (TT.IndexOf('ssud')=-1) thenbegin ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('CREATE TABLE ssud ('); //судебноезаседаниеADOQuery1.SQL.Add('sud_id AUTOINCREMENT PRIMARY KEY, '); //кодзаседанияADOQuery1.SQL.Add('sud_d DATETIME NOT NULL, '); //датазаседанияADOQuery1.SQL.Add('sud_fvarchar(30), '); //ФамилиясудьиADOQuery1.SQL.Add('sud_ivarchar(30), '); //имясудьиADOQuery1.SQL.Add('sud_ovarchar(30), '); // отчествосудьиADOQuery1.SQL.Add('sud_roomvarchar(100), '); //местозаседанияADOQuery1.SQL.Add('vid_id integer '); //видсудопроизводстваADOQuery1.SQL.Add(')');try ADOQuery1.ExecSQL;except ADOConnection1.Close;ShowMessage('Ошибка при создании таблицы судебных заседаний!');Application.Terminate;end;end;if (TT.IndexOf('victium')=-1) then //потерпевшиеbegin ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('CREATE TABLE victium (');ADOQuery1.SQL.Add('sud_id integer, '); //кодзаседанияADOQuery1.SQL.Add('victium_fvarchar(30), '); //ФамилияADOQuery1.SQL.Add('victium_ivarchar(30), '); //имяADOQuery1.SQL.Add('victium_ovarchar(30), '); // отчествоADOQuery1.SQL.Add('victium_d DATETIME NOT NULL '); //датарожденияADOQuery1.SQL.Add(')');try ADOQuery1.ExecSQL;except ADOConnection1.Close;ShowMessage('Ошибка при создании таблицы потерпевших!');Application.Terminate;end;end;if (TT.IndexOf('defendant')=-1) then //подсудимыеbegin ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('CREATE TABLE defendant (');ADOQuery1.SQL.Add('sud_id integer, '); //кодзаседанияADOQuery1.SQL.Add('defendant_fvarchar(30), '); //ФамилияADOQuery1.SQL.Add('defendant_ivarchar(30), '); //имяADOQuery1.SQL.Add('defendant_ovarchar(30), '); // отчествоADOQuery1.SQL.Add('defendant_d DATETIME NOT NULL '); //датарожденияADOQuery1.SQL.Add(')');try ADOQuery1.ExecSQL;except ADOConnection1.Close;ShowMessage('Ошибка при создании таблицы подсудимых!');Application.Terminate;end;end;if (TT.IndexOf('vids')=-1) thenbegin ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('CREATE TABLE vids ('); //видысудопроизводствADOQuery1.SQL.Add('vid_id AUTOINCREMENT PRIMARY KEY, '); //кодADOQuery1.SQL.Add('vid varchar(30) '); //названиеADOQuery1.SQL.Add(')');try ADOQuery1.ExecSQL; ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('INSERT INTO vids (vid) '); //видысудопроизводствADOQuery1.SQL.Add('VALUES ('+QuotedStr('уголовное'));ADOQuery1.SQL.Add(')'); ADOQuery1.ExecSQL; ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('INSERT INTO vids (vid) '); //видысудопроизводствADOQuery1.SQL.Add('VALUES ('+QuotedStr('гражданское'));ADOQuery1.SQL.Add(')'); ADOQuery1.ExecSQL; ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('INSERT INTO vids (vid) '); //видысудопроизводствADOQuery1.SQL.Add('VALUES ('+QuotedStr('административное'));ADOQuery1.SQL.Add(')'); ADOQuery1.ExecSQL;except ADOConnection1.Close;ShowMessage('Ошибка при создании таблицы видов судопроизводств!');Application.Terminate;end;end; ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('SELECT * FROM vids ORDER BY vid_id '); //видысудопроизводств ADOQuery1.Open;RadioGroup1.Items.Add('все');while not ADOQuery1.eof dobeginComboBox1.Items.Add(ADOQuery1.FieldByName('vid').AsString);RadioGroup1.Items.Add(ADOQuery1.FieldByName('vid').AsString); ADOQuery1.Next;end;ADOQuery1.Close;if (DirectoryExists(ExtractFilePath(paramstr(0))+'DOC')=False) thenForceDirectories(ExtractFilePath(paramstr(0))+'DOC');PageControl1.Align:=AlClient;PageControl1.ActivePageIndex:=0;DateTimePicker1.Date:=date;DateTimePicker2.Date:=date;DateTimePicker4.Date:=date-1;DateTimePicker5.Date:=date;StringGrid1.ColWidths[0] := 100;StringGrid1.ColWidths[1] := 100;StringGrid1.ColWidths[2] := 100;StringGrid1.ColWidths[3] := 100;StringGrid2.ColWidths[0] := 100;StringGrid2.ColWidths[1] := 100;StringGrid2.ColWidths[2] := 100;StringGrid2.ColWidths[3] := 100;RadioGroup1.ItemIndex:=0;end;procedure TForm1.BitBtn2Click(Sender: TObject);var i, j, id : Integer;MSWord : Variant;name_doc : String;begin//Добавитьновоезаседаниеif (ComboBox1.ItemIndex=-1) thenbeginShowMessage('Неуказанвидзаседания!');exit;end;try ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('INSERT INTO ssud (sud_d,sud_f,sud_i,sud_o,sud_room, vid_id) VALUES (');ADOQuery1.SQL.Add(QuotedStr(FormatDateTime('yyyy-mm-dd',DateTimePicker1.Date))+',');ADOQuery1.SQL.Add(QuotedStr(trim(Edit1.Text))+',');ADOQuery1.SQL.Add(QuotedStr(trim(Edit2.Text))+',');ADOQuery1.SQL.Add(QuotedStr(trim(Edit3.Text))+',');ADOQuery1.SQL.Add(QuotedStr(trim(Edit4.Text))+',');ADOQuery1.SQL.Add(IntToStr(ComboBox1.ItemIndex+1)+')');ADOQuery1.ExecSQL; //запомним код последнего заседания ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('select @@Identity as dd'); ADOQuery1.Open;id:=ADOQuery1.FieldByname('dd').AsInteger; ADOQuery1.Close;for i:=0 to StringGrid1.RowCount-2 dobegin ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('INSERT INTO defendant (sud_id,defendant_f,defendant_i,defendant_o,defendant_d) VALUES (');ADOQuery1.SQL.Add(IntToStr(id)+',');ADOQuery1.SQL.Add(QuotedStr(StringGrid1.Cells[0,i])+',');ADOQuery1.SQL.Add(QuotedStr(StringGrid1.Cells[1,i])+',');ADOQuery1.SQL.Add(QuotedStr(StringGrid1.Cells[2,i])+',');ADOQuery1.SQL.Add(QuotedStr(FormatDateTime('yyyy-mm-dd',StrToDateTime(StringGrid1.Cells[3,i])))+')'); ADOQuery1.ExecSQL;end;for i:=0 to StringGrid2.RowCount-2 dobegin ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('INSERT INTO victium (sud_id,victium_f,victium_i,victium_o,victium_d) VALUES (');ADOQuery1.SQL.Add(IntToStr(id)+',');ADOQuery1.SQL.Add(QuotedStr(StringGrid2.Cells[0,i])+',');ADOQuery1.SQL.Add(QuotedStr(StringGrid2.Cells[1,i])+',');ADOQuery1.SQL.Add(QuotedStr(StringGrid2.Cells[2,i])+',');ADOQuery1.SQL.Add(QuotedStr(FormatDateTime('yyyy-mm-dd',StrToDateTime(StringGrid2.Cells[3,i])))+')'); ADOQuery1.ExecSQL;end;ShowMessage('Заседаниедобавленоуспешно!');Edit1.Text:=''; Edit2.Text:=''; Edit3.Text:=''; Edit4.Text:=''; DateTimePicker1.Date:=date; CmboBox1.ItemIndex:=-1; DateTimePicker2.Date:=date; DateTimePicker3.Date:=date;for i:=0 to StringGrid1.RowCount-1 do StringGrid1.Rows[i].Clear;for i:=0 to StringGrid2.RowCount-1 do StringGrid2.Rows[i].Clear;tryMSWord :=CreateOleObject('Word.Application');exceptShowMessage('Незапускается Microsoft Word!');exit;end;tryMSWord.Documents.Add(ExtractFilePath(Application.ExeName)+'образец.doc');exceptApplication.MessageBox('Отсутствуетдокументобразец.doc!','Сообщение',mb_Ok+mb_ICONINFORMATION);exit;end;tryname_doc:=ExtractFilePath(paramstr(0))+'DOC\'+IntToStr(id)+'.doc';MSWord.ActiveDocument.SaveAs(name_doc);//MSWord.DisplayAlerts:=False;MSWord.Visible:=True;MsWord:=unAssigned;exceptApplication.MessageBox('Ошибкасохранения! Вероятно, открыт документ с таким же именем!','Сообщение',mb_Ok+mb_ICONINFORMATION);Exit;end;exceptShowMessage('Ошибка при добавлении нового заседания!');end;end;procedure TForm1.BitBtn1Click(Sender: TObject);beginStringGrid1.Cells[0,StringGrid1.RowCount-1]:=trim(Edit5.Text);StringGrid1.Cells[1,StringGrid1.RowCount-1]:=trim(Edit6.Text);StringGrid1.Cells[2,StringGrid1.RowCount-1]:=trim(Edit7.Text);StringGrid1.Cells[3,StringGrid1.RowCount-1]:=FormatDateTime('dd.mm.yyyy',DateTimePicker2.Date);StringGrid1.RowCount:=StringGrid1.RowCount+1; Edit5.Text:=''; Edit6.Text:=''; Edit7.Text:='';DateTimePicker2.Date:=date;end;procedure TForm1.BitBtn3Click(Sender: TObject);beginStringGrid2.Cells[0,StringGrid2.RowCount-1]:=trim(Edit8.Text);StringGrid2.Cells[1,StringGrid2.RowCount-1]:=trim(Edit9.Text);StringGrid2.Cells[2,StringGrid2.RowCount-1]:=trim(Edit10.Text);StringGrid2.Cells[3,StringGrid2.RowCount-1]:=FormatDateTime('dd.mm.yyyy',DateTimePicker3.Date);StringGrid2.RowCount:=StringGrid2.RowCount+1; Edit8.Text:=''; Edit9.Text:=''; Edit10.Text:='';DateTimePicker3.Date:=date;end;procedure TForm1.BitBtn4Click(Sender: TObject);var dat1,dat2 : String;begin//получитьинформацию ADOQuery4.Close; ADOQuery3.Close; ADOQuery2.Close; ADOQuery2.SQL.Clear;ADOQuery2.SQL.Add('SELECT ssud.sud_id, ssud.sud_d, ssud.sud_f, ssud.sud_i, ssud.sud_o, vids.vid ');ADOQuery2.SQL.Add('FROM ssud LEFT JOIN vids ON ssud.vid_id = vids.vid_id ');ADOQuery2.SQL.Add('where '); dat1:='#'+copy(DateToStr(DateTimePicker4.Date),7,4)+'-'+copy(DateToStr(DateTimePicker4.Date),4,2)+'-'+copy(DateToStr(DateTimePicker4.Date),1,2)+'#'; dat2:='#'+copy(DateToStr(DateTimePicker5.Date+1),7,4)+'-'+copy(DateToStr(DateTimePicker5.Date+1),4,2)+'-'+copy(DateToStr(DateTimePicker5.Date+1),1,2)+'#';ADOQuery2.SQL.Add('ssud.sud_d>='+dat1+' and ssud.sud_d<'+dat2);if (RadioGroup1.ItemIndex<>0) thenADOQuery2.SQL.Add(' and ssud.vid_id = '+IntToStr(RadioGroup1.ItemIndex));ADOQuery2.SQL.Add('order by ssud.sud_d ');ADOQuery2.Open;end;procedure TForm1.DataSource2DataChange(Sender: TObject; Field: TField);beginif (ADOQuery2.Active=False) then exit;if (ADOQuery2.RecordCount=0) then exit; ADOQuery3.Close; ADOQuery3.SQL.Clear;ADOQuery3.SQL.Add('SELECT defendant_f, defendant_i, defendant_o, defendant_d ');ADOQuery3.SQL.Add('FROM defendant ');ADOQuery3.SQL.Add('where sud_id='+ADOQuery2.FieldByName('sud_id').AsString); ADOQuery3.Open; ADOQuery4.Close; ADOQuery4.SQL.Clear;ADOQuery4.SQL.Add('SELECT victium_f, victium_i, victium_o, victium_d ');ADOQuery4.SQL.Add('FROM victium ');ADOQuery4.SQL.Add('where sud_id='+ADOQuery2.FieldByName('sud_id').AsString); ADOQuery4.Open;end;procedure TForm1.BitBtn6Click(Sender: TObject);var MSWord : Variant;name_doc : String;begin//показать решение суда по данному заседаниюname_doc:=ExtractFilePath(paramstr(0))+'DOC\'+ADOQuery2.FieldByName('sud_id').AsString+'.doc';tryMSWord :=CreateOleObject('Word.Application');exceptShowMessage('Незапускается Microsoft Word!');exit;end;tryMSWord.Documents.Add(name_doc);exceptApplication.MessageBox(PChar('Отсутствует документ '+name_doc+'!'),'Сообщение',mb_Ok+mb_ICONINFORMATION);exit;end;MSWord.ActiveDocument.SaveAs(name_doc);MSWord.Visible:=True;end;procedure TForm1.BitBtn5Click(Sender: TObject);begin//удалитьрешениесудаif (ADOQuery2.Active=False) then exit;try ADOQuery1.Close; ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('DELETE FROM defendant ');ADOQuery1.SQL.Add('where sud_id='+ADOQuery2.FieldByName('sud_id').AsString); ADOQuery1.ExecSQL; ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('DELETE FROM victium ');ADOQuery1.SQL.Add('where sud_id='+ADOQuery2.FieldByName('sud_id').AsString); ADOQuery1.ExecSQL; ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('DELETE FROM ssud ');ADOQuery1.SQL.Add('where sud_id='+ADOQuery2.FieldByName('sud_id').AsString); ADOQuery1.ExecSQL;ShowMessage('Судебноезаседаниеудалено!');BitBtn4Click(Form1);exceptShowMessage('Ошибкаприудаленииисудебногозаседания!');end;end;end.