|
p align="left">public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var s1 : String; s2 : String; s3 : TDateTime; begin s1:= Edit1.Text; s2:=AnsiUpperCase(Edit2.Text); //s3:= StrToDateTime(MaskEdit1.Text); if((s1='') or (s2='') or (s3=NULL))then begin ShowMessage('Проверьте заполнение всех полей'); exit; end ; s3:= StrToDateTime(MaskEdit1.Text); try DM.DobavlenieIBSP.Prepare; DM.DobavlenieIBSP.ParamByName('FAMILY').AsString:=s1; DM.DobavlenieIBSP.ParamByName('LOGIN').AsString:=s2; DM.DobavlenieIBSP.ParamByName('DATA').AsDateTime:=s3; DM.DobavlenieIBSP.ExecProc; DM.IBTransaction1.Commit; DM.IBQuery1.Active:= true; except ShowMessage('Ошибка при добавлении !!!'); DM.IBTransaction1.Rollback; end; end; procedure TForm1.FormCreate(Sender: TObject); begin MaskEdit1.Text:='xx.xx.xx'; Edit1.Text:=''; Edit2.Text:=''; end; procedure TForm1.Button2Click(Sender: TObject); begin try DM.UdalenieDirIBSP.Prepare; DM.UdalenieDirIBSP.ParamByName('FIO').AsString:=DBEdit1.Text; DM.UdalenieDirIBSP.ExecProc; DM.IBTransaction1.Commit; DM.IBQuery1.Active:= true; except ShowMessage('Ошибка при удалении !!!'); DM.IBTransaction1.Rollback; end; end; procedure TForm1.Button6Click(Sender: TObject); begin if((Edit3.Text='') or (Edit4.Text=''))then begin ShowMessage('Проверьте заполнение всех полей'); exit; end ; try DM.AddPodrIBSP.Prepare; DM.AddPodrIBSP.ParamByName('NAZV').AsString:=Edit4.Text; DM.AddPodrIBSP.ParamByName('FIO').AsString:=Edit3.Text; DM.AddPodrIBSP.ExecProc; DM.IBTransaction3.Commit; DM.IBQuery3.Active:= true; except ShowMessage('Ошибка при добавлении !!!'); DM.IBTransaction3.Rollback; end; end; procedure TForm1.Button7Click(Sender: TObject); begin try DM.DeletePodrIBSP.Prepare; DM.DeletePodrIBSP.ParamByName('Nomer').AsInteger:=StrToInt(DBEdit4.Text); DM.DeletePodrIBSP.ExecProc; DM.IBTransaction3.Commit; DM.IBQuery3.Active:= true; except ShowMessage('Ошибка при добавлении !!!'); DM.IBTransaction3.Rollback; end; end; procedure TForm1.MaskEdit2Change(Sender: TObject); begin //---фамилия проверяющего для таблицы "Проверки"------ Combobox1.Clear; DM.IBQuery1.Last; Combobox1.Items.add(DM.IBQuery1.FieldValues['FIO']); //----------------------------------------------------- //---проверяемое подразделение для таблицы "Проверки"------ Combobox2.Clear; DM.IBQuery3.first; while not DM.IBQuery3.Eof do begin Combobox2.Items.add(DM.IBQuery3.FieldValues['NAZVANIE']); DM.IBQuery3.Next; end; //----------------------------------------------------- //----------------- Combobox3.Clear; Combobox3.Items.Add('значительное'); Combobox3.Items.Add('незначительное'); //--------------- //DBRichEdit1.Field.Assign(DBRichEdit1.Lines); end; procedure TForm1.Button3Click(Sender: TObject); begin if ((Combobox1.Text='')or(Combobox2.Text='')) then begin ShowMessage('Заполните обязательные для заполнения поля!!!'); exit; end; try DM.InsertProverIBSP.Prepare; DM.InsertProverIBSP.ParamByName('NAZVPODR').AsString:=Combobox2.Text; DM.InsertProverIBSP.ParamByName('FIO').AsString:=Combobox1.Text; DM.InsertProverIBSP.ParamByName('VID').AsString:=Combobox3.Text; DM.InsertProverIBSP.ParamByName('DATA').AsDateTime:=StrToDateTime(MaskEdit2.Text); DM.InsertProverIBSP.ParamByName('OPISANIE').AsString:=Memo1.Text; DM.InsertProverIBSP.ExecProc; DM.IBTransaction2.Commit; DM.IBQuery2.Active:= true; except ShowMessage('Ошибка при добавлении !!!'); DM.IBTransaction2.Rollback; end; end; procedure TForm1.Button5Click(Sender: TObject); begin try if (DBEdit3.Text='') then begin ShowMessage('В таблице отсутствуют записи!!!'); exit; end; DM.DeleteProvIBSP.Prepare; DM.DeleteProvIBSP.ParamByName('NPROVERKI').AsInteger:=StrToInt(DBEdit3.Text); DM.DeleteProvIBSP.ExecProc; DM.IBTransaction2.Commit; DM.IBQuery2.Active:= true; except ShowMessage('Ошибка при удалении !!!'); DM.IBTransaction2.Rollback; end; end; procedure TForm1.Edit5Change(Sender: TObject); begin //--подразделение к которому работник приписан для таблицы "Работники"--- Combobox4.Clear; DM.IBQuery3.first; while not DM.IBQuery3.Eof do begin Combobox4.Items.add(DM.IBQuery3.FieldValues['NAZVANIE']); DM.IBQuery3.Next; end; end; procedure TForm1.Button4Click(Sender: TObject); begin if ((Edit5.Text='')or(Edit6.Text='')or(Combobox4.Text='')) then begin ShowMessage('Необходимо заполнить все поля!!!'); exit; end; try DM.InsertRabotnikIBSP.Prepare; DM.InsertRabotnikIBSP.ParamByName('NAZV').AsString:=Combobox4.Text; DM.InsertRabotnikIBSP.ParamByName('FIO').AsString:=Edit5.Text; DM.InsertRabotnikIBSP.ParamByName('LOGIN').AsString:=Edit6.Text; DM.InsertRabotnikIBSP.ExecProc; DM.IBTransaction4.Commit; DM.RabotnikIBT.Active:= true; except ShowMessage('Ошибка при добавлении !!!'); DM.IBTransaction4.Rollback; end; end; procedure TForm1.Button8Click(Sender: TObject); begin try if (DBEdit2.Text='') then begin ShowMessage('В таблице отсутствуют записи!!!'); exit; end; DM.DeleteRabotnikIBSP.Prepare; DM.DeleteRabotnikIBSP.ParamByName('NUM').AsInteger:=StrToInt(DBEdit2.Text); DM.DeleteRabotnikIBSP.ExecProc; DM.IBTransaction4.Commit; DM.RabotnikIBT.Active:= true; except ShowMessage('Ошибка при удалении !!!'); DM.IBTransaction4.Rollback; end; end; procedure TForm1.Button9Click(Sender: TObject); begin Form3.Show; end; procedure TForm1.Button11Click(Sender: TObject); begin Form3.Show; end; procedure TForm1.Button10Click(Sender: TObject); begin Form4.Show; end; procedure TForm1.Button12Click(Sender: TObject); begin Form5.Show; end; procedure TForm1.Button13Click(Sender: TObject); begin try DM.ClearArhivIBSP.Prepare; DM.ClearArhivIBSP.ExecProc; DM.IBTransaction5.Commit; DM.IBQuery6.Active:= true; DM.IBQuery5.Active:= true; DM.IBQuery7.Active:= true; except ShowMessage('Ошибка при удалении !!!'); DM.IBTransaction5.Rollback; end; end; procedure TForm1.Button14Click(Sender: TObject); begin try DM.ClearProtocolIBSP.Prepare; DM.ClearProtocolIBSP.ExecProc; DM.IBTransaction5.Commit; DM.IBQuery7.Active:= true; DM.IBQuery5.Active:= true; except ShowMessage('Ошибка при удалении !!!'); DM.IBTransaction5.Rollback; end; end; procedure TForm1.Button15Click(Sender: TObject); begin if (RadioButton1.Checked) then Form6.QuickRep1.Preview ; if (RadioButton2.Checked) then Form7.QuickRep1.Preview ; end; end. procedure TForm3.Button1Click(Sender: TObject); var FileViewer: TRzURLLabel; FileName : String ; begin //создаем объект для просмотра файлов FileViewer:=TRzURLLabel.Create(Form3); FileName:= DBEdit1.Text ; FileViewer.URL:= FileName; if FileExists(FileName) then begin FileViewer.Click; end else begin ShowMessage('Такого файла не существует или он не помещен в нужный каталог (см. инструкцию)'); exit; end; //------ ПРОТОКОЛ РАБОТЫ-------------------------------------- try DM.ProtocolIBSP.Prepare; DM.ProtocolIBSP.ParamByName('NUMDOC').AsInteger:=StrToInt(DBEdit2.Text); DM.ProtocolIBSP.ExecProc; DM.IBTransaction5.Commit; DM.IBQuery7.Active:= true; DM.IBQuery6.Active:= true; DM.IBQuery5.Active:= true; except ShowMessage('Ошибка !!!'); DM.IBTransaction5.Rollback; end; //------------------------------------------------------------------ end; procedure TForm3.Button2Click(Sender: TObject); begin if ((Memo1.Text='')) then begin ShowMessage('Необходимо заполнить поле "Характер изменений"!!!'); exit; end; try DM.UpdateDocIBSP.Prepare; DM.UpdateDocIBSP.ParamByName('NUM').AsInteger:=StrToInt(DBEdit2.Text); DM.UpdateDocIBSP.ParamByName('TEMA').AsString:=DBEdit5.Text; DM.UpdateDocIBSP.ParamByName('IZMEN').AsString:=Memo1.Text; DM.UpdateDocIBSP.ExecProc; DM.IBTransaction5.Commit; DM.IBQuery5.Active:= true; except ShowMessage('Ошибка при обновлении !!!'); DM.IBTransaction5.Rollback; end; end; end. procedure TForm4.Button1Click(Sender: TObject); var s: String; begin SaveDialog1.Execute; Edit1.Text:= SaveDialog1.FileName; Combobox1.Clear; Combobox1.Items.Add('внутренний'); Combobox1.Items.Add('нормативный'); end; procedure TForm4.Button2Click(Sender: TObject); begin if ((Edit1.Text='')) then begin ShowMessage('Необходимо выбрать документ!!!'); exit; end; if ((Combobox1.Text='')or(Edit3.Text='')) then begin ShowMessage('Заполните обязательные для заполнения поля!!!'); exit; end; try DM.InsertDocIBSP.Prepare; DM.InsertDocIBSP.ParamByName('NKLASS').AsString:=Edit3.Text; DM.InsertDocIBSP.ParamByName('TEMA').AsString:=Edit2.Text; DM.InsertDocIBSP.ParamByName('VID').AsString:=Combobox1.Text; DM.InsertDocIBSP.ParamByName('DATA').AsDateTime:=StrToDateTime(MaskEdit2.Text); DM.InsertDocIBSP.ParamByName('NAME').AsString:=Edit1.Text; DM.InsertDocIBSP.ExecProc; DM.IBTransaction5.Commit; DM.IBQuery5.Active:= true; except ShowMessage('Ошибка при добавлении !!!'); DM.IBTransaction5.Rollback; end; end; procedure TForm5.Button1Click(Sender: TObject); begin try DM.DeleteDocIBSP.Prepare; DM.DeleteDocIBSP.ParamByName('NUM').AsInteger:=StrToInt(DBEdit2.Text); DM.DeleteDocIBSP.ExecProc; DM.IBTransaction5.Commit; DM.IBQuery5.Active:= true; DM.IBQuery6.Active:= true; DM.IBQuery7.Active:= true; except ShowMessage('Ошибка при добавлении !!!'); DM.IBTransaction5.Rollback; end; end; Список используемой литературы 1) Коннолли Т., Бегг К., Страчан А. Базы данных: проектирование, реализация сопровождение. Теория и практика: Уч пос.-М.: Издательский дом «Вильямс», 2000. 2) Дейт К. Введение в системы баз данных. - СПб: Издательский дом «Вильямс», 1999. 3) Фаронов В.В. Delphi7 и разработка приложений баз данных.- М.: «НОЛИДЖ», 2003.
Страницы: 1, 2, 3, 4, 5
| 
