Разработка программного продукта «Записная книжка»

     end;

     Procedure TForm1Tree.ExpandLevel( Node : TTreeNode);

     Var ID , i   : Integer;

         TreeNode : TTreeNode;

     Begin

         IF Node = nil Then ID:=0

         Else ID:=Integer(Node.Data);

         qTreeCompanies.Close;

         qTreeCompanies.SQL.Clear;

         declarepar;

         qTreeCompanies.Parameters.ParamByName('ParentID').Value :=ID;

         qTreeCompanies.SQL.Add('Select * From COMPANY Where ParentID=:ParentID');

         qTreeCompanies.Open;

         TreeCompanies.Items.BeginUpdate;

         For i:=1 To qTreeCompanies.RecordCount Do

         Begin

     TreeNode:=TreeCompanies.Items.AddChildObject(Node,qTreeCompanies.FieldByName('Name').AsString

       ,Pointer(qTreeCompanies.FieldByName('ID').AsInteger));

       TreeNode.ImageIndex:=1;

       TreeNode.SelectedIndex:=2;

     TreeCompanies.Items.AddChildObject(TreeNode ,'' , nil);

       qTreeCompanies.Next;

         End;

         TreeCompanies.Items.EndUpdate;

     End;

     procedure TForm1Tree.TreeCompaniesExpanding(Sender: TObject;

       Node: TTreeNode; var AllowExpansion: Boolean);

     begin

       IF Node.getFirstChild.Data = nil Then

       Begin

               Node.DeleteChildren;

               ExpandLevel(Node);

       End;

     end;

     procedure TForm1Tree.TreeCompaniesChange(Sender: TObject; Node: TTreeNode);

     var id:integer;

     begin

        IF TreeCompanies.Selected <> nil Then

        Begin

         ID:=Integer(TreeCompanies.Selected.Data);

         qTreeCompanies.Close;

         qTreeCompanies.SQL.Clear;

         DeclarePar;

         qTreeCompanies.Parameters.ParamByName('ParentID').Value :=ID;

         qTreeCompanies.SQL.Add('Select * From COMPANY Where ParentID=:ParentID');

         qTreeCompanies.Open;

         End;

     end;

     procedure TForm1Tree.DBGrid1DblClick(Sender: TObject);

     var ID:integer;

     begin

      ID:=qTreeCompanies.FieldByName('ID').AsInteger;

      If ID <> 0 then

       begin

         Redodone:=False;

         RichEditWithLinks1.Clear;

         RichEditWithLinks1.Lines.Add(qTreeCompanies.FieldByName('TEXT').AsString);

       end;

     end;

     procedure TForm1Tree.MyConnect(Sender: TObject);

     var mainPath, filebase, rconnect:string;

     begin

       MainPath:=ExtractFilePath(Application.ExeName);

       filebase:= MainPath+'book.mdb';

       DatabaseName:=FileBase;

      Form1Tree.Caption:='База: '+ filebase;

       rconnect:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+

       filebase+  ';Persist Security Info=False';

     ADOConnection1.close;

      AdoConnection1.ConnectionString:=Rconnect;

      ADOConnection1.Open;

       TreeCompaniesClick(Sender);

     end;

     procedure TForm1Tree.TreeCompaniesClick(Sender: TObject);

     var id:integer;

     begin  

        IF TreeCompanies.Selected <> nil Then

        Begin

        ID:=Integer(TreeCompanies.Selected.Data);

        qTreeCompanies.Close;

        qTreeCompanies.SQL.Clear;

        DeclarePar;

        qTreeCompanies.SQL.Add('Select * From COMPANY Where ID=:ID');

        qTreeCompanies.Parameters.ParamByName( 'ID').Value:=ID;

        qTreeCompanies.Open;

        if id = 0 then

        RichEditWithLinks1.Lines.Clear;

        DBGrid1DblClick(sender);

        End;

     end;

     procedure TForm1Tree.POPupMenuAdd(Sender: TObject);

     var id,RParentID:integer;

     Label Fin;

     begin

        IF TreeCompanies.Selected <> nil Then

        Begin

        ID:=Integer(TreeCompanies.Selected.Data);

        qTreeCompanies.Close;

        qTreeCompanies.SQL.Clear;

        DeclarePar;

        qTreeCompanies.SQL.Add('Select * From COMPANY Where ID=:ID');

        qTreeCompanies.Parameters.ParamByName( 'ID').Value:=ID;

        qTreeCompanies.Open;

        RParentID:= qTreeCompanies.FieldByName('ParentID').AsInteger;

         if RParentID = 0 then

         begin

           showmessage('К нулевому нельзя!');

           goto fin;

         end;

        qTreeCompanies.Append;

        qTreeCompanies.FieldByName('ParentID').Value:=RParentID;

        qTreeCompanies.FieldByName('NAME').AsString:='NEW_IN_'+INTTOSTR(RParentID);

        qTreeCompanies.Post;

        qTreeCompanies.Edit;

        qTreeCompanies.FieldByName('NAME').AsString:=qTreeCompanies.FieldByName('ID').AsString+'_NEW_IN_'+INTTOSTR(RParentID);

        qTreeCompanies.Post;

       TreeCompanies.Items.AddObject(TreeCompanies.Selected,   //AddChildObject

       qTreeCompanies.FieldByName('Name').AsString

       ,Pointer(qTreeCompanies.FieldByName('ID').AsInteger));

        TreeCompanies.Repaint;   

        End;

       fin:

     end;

     procedure TForm1Tree.POPupMenuAddIN(Sender: TObject);

     var id,RID:integer;

     Label Fin;

     begin  

        IF TreeCompanies.Selected <> nil Then

        Begin

        ID:=Integer(TreeCompanies.Selected.Data);

        qTreeCompanies.Close;

        qTreeCompanies.SQL.Clear;

        DeclarePar;

        qTreeCompanies.SQL.Add('Select * From COMPANY Where ID=:ID');

        qTreeCompanies.Parameters.ParamByName( 'ID').Value:=ID;

        qTreeCompanies.Open;

        RID:= qTreeCompanies.FieldByName('ID').AsInteger;

        qTreeCompanies.Append;

        qTreeCompanies.FieldByName('ParentID').Value:=RID;

        qTreeCompanies.FieldByName('NAME').AsString:='NEW_INTO '+IntToStr(RID);

        qTreeCompanies.Post;

        qTreeCompanies.Edit;

        qTreeCompanies.FieldByName('NAME').AsString:=qTreeCompanies.FieldByName('ID').AsString+'NEW_INTO '+IntToStr(RID);

        qTreeCompanies.Post;

       TreeCompanies.Items.AddChildObject(TreeCompanies.Selected,  

       qTreeCompanies.FieldByName('Name').AsString

       ,Pointer(qTreeCompanies.FieldByName('ID').AsInteger));

        TreeCompanies.Repaint;   

        End;

       fin:

     end;

     procedure TForm1Tree.POPupMenuDelete(Sender: TObject);

     var ii,id:integer;

     Label Fin;

     begin

        IF TreeCompanies.Selected <> nil Then

        Begin

        if TreeCompanies.Selected.HasChildren then

        begin

          showmessage('Нельзя удалить! Есть вложенные');

          goto fin;

        end;

        ID:=Integer(TreeCompanies.Selected.Data);

        qTreeCompanies.Close;

        qTreeCompanies.SQL.Clear;

        DeclarePar;

        qTreeCompanies.SQL.Add('Select * From COMPANY Where ID=:ID');

        qTreeCompanies.Parameters.ParamByName( 'ID').Value:=ID;

        qTreeCompanies.Open;

         if ID = 0 then

         begin

           showmessage('Нулевой нельзя!');

           goto fin;

         end;

        for ii := 0  to qTreeCompanies.RecordCount-1  do

        begin

             qTreeCompanies.Delete;

        end;

         TreeCompanies.Items.Delete(TreeCompanies.Selected);

        End;

       fin:

     end;

     procedure TForm1Tree.TreeCompaniesEdited(Sender: TObject; Node: TTreeNode;

       var S: String);

     var id:integer;

     Label Fin;

     begin

        IF TreeCompanies.Selected <> nil Then

        Begin

        ID:=Integer(TreeCompanies.Selected.Data);

        if ID = 0 then

        begin

          showmessage('Главную не править !');

          goto fin;

        end;

        qTreeCompanies.Close;

        qTreeCompanies.SQL.Clear;

        DeclarePar;

        qTreeCompanies.SQL.Add('Select * From COMPANY Where ID=:ID');

        qTreeCompanies.Parameters.ParamByName( 'ID').Value:=ID;

        qTreeCompanies.Open;

        qTreeCompanies.Edit;

        qTreeCompanies.FieldByName('NAME').AsString:=s;

        qTreeCompanies.Post;

        End;

       fin:

     end;

     procedure TForm1Tree.About1Click(Sender: TObject);

     begin

       AboutBox.showmodal;

     end;

     procedure TForm1Tree.Exit1Click(Sender: TObject);

     begin

       ADOConnection1.Close;

       Close;

     end;

     procedure TForm1Tree.MenuItem1Click(Sender: TObject);

     begin

         RichEditWithLinks1.CopyToClipboard;

     end;

     procedure TForm1Tree.MenuItem2Click(Sender: TObject);

     begin

        RichEditWithLinks1.PasteFromClipboard;

     end;

     procedure TForm1Tree.MenuItem3Click(Sender: TObject);

     begin

        RichEditWithLinks1.CutToClipboard;

     end;

     procedure TForm1Tree.Button1Click(Sender: TObject);

     begin

        RedoDone:=True;

        if ( qTreeCompanies.RecordCount >= 0 ) and ( qTreeCompanies.FieldByName('ID').value <> 0 ) then

        begin

          qTreeCompanies.edit;

     qTreeCompanies.FieldByName('TEXT').asstring:=TrimRight(RichEditWithLinks1.Lines.Text);

          qTreeCompanies.post;

        end;  

     end;

     procedure TForm1Tree.Button2Click(Sender: TObject);

     begin

       if Savedialog1.Execute then

       begin

        richeditwithlinks1.Lines.SaveToFile(Savedialog1.FileName);

       end;

     end;

     procedure TForm1Tree.Button3Click(Sender: TObject);