Смекни!
smekni.com
Информатика

Методология проектирования баз данных 2 2 (стр. 4 из 4)

procedure Button13Click(Sender: TObject);

rocedure Button14Click(Sender: TObject);

procedure Button15Click(Sender: TObject);

private

{ Private declarations }

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] СМК – система менеджмента качества

 
назад
1
2
3
4
НАПИШИТЕ НАМ
Copyright © Smekni.com. All rigths reserved.