home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung 2 / Power-Programmierung CD 2 (Tewi)(1994).iso / c / library / mslang / poetmf / src / persdlg.cpp < prev    next >
Encoding:
C/C++ Source or Header  |  1993-11-23  |  16.3 KB  |  565 lines
  1. // ******************************************************************
  2. //
  3. //  persdlg.cpp : implementation file
  4. //
  5. //    Implemented    classes:
  6. //        CEditPersDlg
  7. // 
  8. //  Author: Nils Behncke
  9. //            POET Software GmbH, August 1993
  10. //
  11. // ******************************************************************
  12.  
  13.  
  14. #include <stdafx.h>     // header to MFC
  15. #include <afxdlgs.h>    // header to standarddialogs of MFC
  16. #include <persdlg.h>    // header to this file
  17. #include <adrdlg.h>        // header to addressdialog
  18. #include <stepdlg.h>    // header to stepdialog
  19. #include <pictdlg.h>    // header to picturedialog
  20. #include <helloapp.h>    // header to application and window-class
  21.  
  22.  
  23. extern CHelloWinApp NEAR theApp;
  24.  
  25. //    class CEditPersDlg derived from CDialog and created by ClassWizard
  26.  
  27. #ifdef _DEBUG        //    added by ClassWizard
  28. #undef THIS_FILE
  29. static char BASED_CODE THIS_FILE[] = __FILE__;
  30. #endif
  31.  
  32.  
  33. /////////////////////////////////////////////////////////////////////////////
  34. // CEditPersDlg dialog
  35.  
  36. CEditPersDlg::CEditPersDlg(CWnd* pParent, UINT nIDTemp )    //    extended constructor (see comment in headerfile)
  37.     : CDialog(nIDTemp, pParent)
  38. {
  39.     //{{AFX_DATA_INIT(CEditPersDlg)
  40.         //    member variables will be initialized in member funtion Init
  41.     //}}AFX_DATA_INIT
  42. }       
  43.  
  44.  
  45. CEditPersDlg::~CEditPersDlg ()
  46. {
  47.     if (allperson)
  48.         delete allperson;
  49.     if (person)
  50.         person->Forget ();  
  51. }
  52.  
  53. void CEditPersDlg::POET_Error (char *text, int error)
  54. {
  55.     char     buffer[100];
  56.     char    title[100];
  57.         
  58.     PtError (buffer, text, error);            //    build errortext
  59.     GetWindowText (title, sizeof (title));  //    get title of current window
  60.     MessageBox (buffer, title, MB_OK);        //    show errormessage
  61. } 
  62.  
  63.  
  64. void CEditPersDlg::DoDataExchange(CDataExchange* pDX)
  65. {
  66.     CDialog::DoDataExchange(pDX);
  67.     //{{AFX_DATA_MAP(CEditPersDlg)
  68.     DDX_Control(pDX, IDC_LIST_FIRSTNAMES, m_CListFirstnames);
  69.     DDX_Control(pDX, IDC_LIST_ADDRESSES, m_CListAddresses);
  70.     DDX_Text(pDX, IDC_EDIT_NAME, m_strName);
  71.     DDX_Text(pDX, IDC_EDIT_FIRSTNAME, m_strFirstname);
  72.     //}}AFX_DATA_MAP
  73. }
  74.  
  75. void CEditPersDlg::ClearControls ()
  76. {
  77.     m_CListFirstnames.ResetContent ();
  78.     m_CListAddresses.ResetContent ();
  79.     m_strName = "";
  80.     m_strFirstname = "";
  81. }
  82.  
  83. BEGIN_MESSAGE_MAP(CEditPersDlg, CDialog)
  84.     //{{AFX_MSG_MAP(CEditPersDlg)
  85.     ON_BN_CLICKED(IDC_ADR_UPDATE, OnClickedAdrUpdate)
  86.     ON_BN_CLICKED(IDC_ADR_NEW, OnClickedAdrNew)
  87.     ON_BN_CLICKED(IDC_STEP, OnClickedStep)
  88.     ON_BN_CLICKED(IDC_STORE, OnClickedStore)
  89.     ON_BN_CLICKED(IDC_NEXT, OnClickedNext)
  90.     ON_BN_CLICKED(IDC_COPY, OnClickedCopy)
  91.     ON_BN_CLICKED(IDC_DELETE, OnClickedDelete)
  92.     ON_BN_CLICKED(IDC_PREV, OnClickedPrev)
  93.     ON_BN_CLICKED(IDC_ASSPIC, OnClickedAsspic)
  94.     ON_EN_CHANGE(IDC_EDIT_FIRSTNAME, OnChangeEditFirstname)
  95.     ON_EN_KILLFOCUS(IDC_EDIT_FIRSTNAME, OnKillfocusEditFirstname)
  96.     ON_BN_CLICKED(IDC_ADR_DELETE, OnClickedAdrDelete)
  97.     ON_BN_CLICKED(IDC_CLEAR, OnClickedClear)
  98.     ON_LBN_DBLCLK(IDC_LIST_ADDRESSES, OnDblclkListAddresses)
  99.     ON_LBN_DBLCLK(IDC_LIST_FIRSTNAMES, OnDblclkListFirstnames)
  100.     ON_BN_CLICKED(IDC_SHOWPIC, OnClickedShowpic)
  101.     //}}AFX_MSG_MAP
  102. END_MESSAGE_MAP()
  103.  
  104.  
  105.  
  106. void CEditPersDlg::Show ()
  107. {
  108.     PtString        fname;
  109.     Address            *adr;
  110.     int register     err = 0;
  111.     char            buffer[100];                    
  112.     
  113.     ClearControls ();    // initialize Controls
  114.     
  115.     m_strName = person->GetName ();            // set name
  116.     
  117.     if (person->firstnames.Seek (0L, PtSTART) == 0 && person->firstnames.Get (fname) == 0)
  118.         m_strFirstname = CString (fname);    // set firstname    
  119.         
  120.     for (                                     // set firstnames
  121.          err=person->firstnames.Seek (0L, PtSTART);
  122.          (err==0) && (person->firstnames.Get (fname) == 0);
  123.          err = person->firstnames.Seek (1L, PtCURRENT)
  124.         )
  125.         m_CListFirstnames.AddString (CString(fname));  
  126.     
  127.     for (                                    // set addresses
  128.          err=person->adrs.Seek (0L, PtSTART);
  129.          (err==0) && person->adrs.Get (adr) == 0;
  130.          person->adrs.Unget (adr),
  131.          err = person->adrs.Seek (1L, PtCURRENT)
  132.         )
  133.         m_CListAddresses.AddString (adr->Print (buffer)); 
  134.     UpdateData (FALSE);                     //    set values to dialog membervariables
  135. }    
  136.  
  137.  
  138.  
  139.  
  140. void CEditPersDlg::Init ()
  141. {
  142.     int        err = 0;
  143.     
  144.     firstname_is_modified = 0;        //    editbox firstnames not changed
  145.     NewAllSetPtr ();    //    create    polymorph AllSet
  146.                             
  147.     if ((err=allperson->Seek (0L, PtSTART)) == 0)    //    looking for first entry 
  148.         err = allperson->Get (person);
  149.     if (err != 0)                                   //    if no person in allset
  150.        {
  151.         NewPersonPtr ();    //    allocate memory for polymorph person
  152.         ClearControls ();
  153.         person->Init ();
  154.         person->Assign (theApp.GetOA ());
  155.        }
  156.     Show ();             //    show person in dialog
  157. }
  158.  
  159. void CEditPersDlg::Fill ()
  160. {
  161.     UpdateData ();
  162.     person->SetName (m_strName.GetBuffer (m_strName.GetLength ()));    // actualize name
  163.     m_strName.ReleaseBuffer ();
  164.  
  165.     int index;
  166.     char buffer[100];                                
  167.                                                 
  168.     person->firstnames.Clear ();
  169.     for (index = 0; index < m_CListFirstnames.GetCount (); )        //    actualize firstnames
  170.        {
  171.         m_CListFirstnames.GetText (index++, buffer);
  172.         PtString fname;
  173.         fname = buffer;
  174.         person->firstnames.Append (fname);
  175.        }     
  176. }                                                                    //    addresses already updated
  177.  
  178. static char filebuffer[10240];
  179.  
  180. void CEditPersDlg::LoadBitmap ( char * Name, PtBlob * pic )
  181. {
  182.     HFILE file = _lopen((LPSTR) Name, OF_READ);        //    try to read file
  183.     if (file == -1)
  184.        {
  185.            MessageBox("filename does not exist", "file name alert", MB_OK);
  186.         return;
  187.        }
  188.     UINT Len = 0;
  189.     while ( Len = _lread ( file, filebuffer, sizeof(filebuffer)))    //    write buffer into Blob
  190.         pic->Append ( filebuffer, Len );
  191.  
  192.     _lclose(file);
  193.     return;
  194. }
  195.  
  196. void CEditPersDlg::NewPersonPtr ()
  197. {
  198.     person = new Person ();
  199. }
  200.  
  201. void CEditPersDlg::NewAllSetPtr ()
  202. {
  203.     allperson = new PersonAllSet (theApp.GetOA ());    //    create    PersonAllSet
  204. }
  205.     
  206. /////////////////////////////////////////////////////////////////////////////
  207. // CEditPersDlg message handlers
  208.  
  209.  
  210. BOOL CEditPersDlg::OnInitDialog()
  211. {   
  212.     CDialog::OnInitDialog();    
  213.     
  214.     Init ();    //    initialize controls befor show dialogwindow
  215.  
  216.     return TRUE;  // return TRUE  unless you set the focus to a control
  217. }
  218.  
  219.  
  220. void CEditPersDlg::OnClickedAdrUpdate()
  221. {   
  222.             
  223.     if ((item = m_CListAddresses.GetCurSel ()) >= 0)
  224.      {
  225.       Address *a;    //    new address
  226.       int nResult;
  227.  
  228.       person->adrs.Seek ( (long) item, PtSTART);    //    set position in set on current selection in listbox
  229.       person->adrs.Get (a);        //    fill new address
  230.  
  231.       CAddressDlg updateaddress (this);                //    create dialog
  232.       updateaddress.SetAddress (a->GetStreet (), a->GetZip (), a->GetCity ());    // initialize dialog
  233.       nResult = updateaddress.DoModal ();        //    start dialog    
  234.  
  235.       if (nResult == IDOK)    // update address only on clicked OK button
  236.        {
  237.         char buffer [100];    
  238.  
  239.         a->SetAddress ( updateaddress.GetStreet (),    //    update new address a
  240.                           updateaddress.GetZip (),
  241.                         updateaddress.GetCity () );
  242.         m_CListAddresses.DeleteString (item);    //    delete old address in listbox
  243.         m_CListAddresses.InsertString (item, a->Print (buffer));        // insert address-string in listbox
  244.         a->Assign (theApp.GetOA ());    //    assign new address to database 
  245.         person->adrs.Put (a);    //    replace old with new address in the set of addresses
  246.        }
  247.       person->adrs.Unget (a);    //    free resources allocated by Get
  248.       updateaddress.EndDialog (nResult);            //    end dialog
  249.      } 
  250. }
  251.  
  252.  
  253. void CEditPersDlg::OnClickedAdrNew()
  254. {   
  255.     Address *a = new Address ();        //    new address        
  256.  
  257.     CAddressDlg newaddress (this);        //    create dialog
  258.     newaddress.SetAddress ("", 0, "");    //    initialize dialog
  259.     int nResult = newaddress.DoModal ();        //    call dialog    
  260.  
  261.     if (nResult == IDOK)    //    add new address only on OK
  262.      {
  263.       char buffer [100];    
  264.  
  265.       a->SetAddress ( newaddress.GetStreet (),    //    update new address a
  266.                       newaddress.GetZip (),
  267.                       newaddress.GetCity () );
  268.       m_CListAddresses.AddString (a->Print (buffer));        //    add address-string to listbox
  269.       a->Assign (theApp.GetOA ());    //    assign new address to database 
  270.       person->adrs.Append (a);        //    append new address to set of addresses
  271.       a->Forget ();
  272.      } 
  273.     else
  274.       delete a;
  275.     newaddress.EndDialog (nResult);    //    end dialog
  276.  
  277. }
  278.  
  279. void CEditPersDlg::OnClickedAdrDelete()
  280. {               
  281.     if ((item = m_CListAddresses.GetCurSel ()) >= 0)
  282.      {                       
  283.       person->adrs.Seek ( (long) item, PtSTART);    //    set position to address to delete
  284.       person->adrs.Delete ();                        //    delete address
  285.       m_CListAddresses.DeleteString (item);            //    remove address from listbox
  286.      } 
  287. }
  288.  
  289.  
  290. void CEditPersDlg::OnDblclkListAddresses()
  291. {
  292.     OnClickedAdrUpdate ();        //    update address if doubleclicked
  293. }
  294.  
  295.  
  296. void CEditPersDlg::OnClickedStep()
  297. {                
  298.     int         nResult;
  299.     PtSeekMode     mode;
  300.     long        step;
  301.     int         erc;
  302.  
  303.     CStepDlg stepdlg (this);
  304.     nResult = stepdlg.DoModal ();    //    start dialog
  305.     if (nResult == IDOK)
  306.        {
  307.         step = (long) stepdlg.GetStep ();
  308.         switch (stepdlg.GetSeekmode ())
  309.            {
  310.                case 0 :
  311.                    mode = PtSTART;
  312.                    break;
  313.                case 1 :
  314.                    mode = PtCURRENT;
  315.                    break;
  316.                case 2 :
  317.                    mode = PtEND;
  318.                    break;
  319.            }
  320.         Person    *newperson;   
  321.            
  322.         if ((erc = allperson->Seek (step, mode)) == 0)    //    try to step
  323.             erc = allperson->Get (newperson);
  324.         if (erc == 0)
  325.            {
  326.             person->Forget ();           
  327.             person = newperson;
  328.             ClearControls ();                          
  329.             Show ();                                     //    show actual person
  330.            }
  331.         else       
  332.             POET_Error ("Step", erc);      
  333.        }
  334.     stepdlg.EndDialog (nResult);                        //    end dialog
  335. }
  336.  
  337.  
  338. void CEditPersDlg::OnClickedStore()
  339. {
  340.     int    err;
  341.     Fill ();                                               //    actualize current person
  342.     err = person->Store (PtDEEP);                        //    store person
  343.     POET_Error ("Object is stored", err);                  //    show status
  344. }
  345.  
  346.  
  347. void CEditPersDlg::OnClickedNext()
  348. {
  349.     Person    *newperson;   
  350.     int erc;
  351.               
  352.     if ((erc = allperson->Seek (1L, PtCURRENT)) == 0)    //    try to step 1
  353.         erc = allperson->Get (newperson);
  354.     if (erc == 0)
  355.        {
  356.         person->Forget ();
  357.         person = newperson;
  358.         ClearControls ();
  359.         Show ();                                        //    show actual person
  360.        }
  361.     else
  362.         POET_Error ("Next", erc);                        //    show status
  363. }
  364.  
  365.  
  366. void CEditPersDlg::OnClickedCopy()
  367. {   
  368.     int    erc;                                        
  369.     Address *adr, *newadr;
  370.     
  371.     for (                //    set new references to copied addresses 
  372.          erc=person->adrs.Seek (0L, PtSTART);
  373.          (erc==0) && person->adrs.Get (adr) == 0;
  374.          person->adrs.Unget (adr),
  375.          erc = person->adrs.Seek (1L, PtCURRENT)
  376.         )
  377.        {                                
  378.         char *city = new char[100];
  379.         char *street = new char[100];
  380.         newadr = new Address ();
  381.         newadr->SetAddress ( strcpy (street, adr->GetStreet ()),
  382.                             adr->GetZip (),
  383.                             strcpy (city, adr->GetCity ()) );        
  384.         newadr->Assign (theApp.GetOA ());
  385.         person->adrs.Put (newadr);
  386.         delete city;    
  387.         delete street;
  388.         newadr->Forget ();    //    Remove new address
  389.        }    
  390.  
  391.        Picture pic, *oldpic = NULL;
  392.     PtBlob    *blob = NULL;
  393.     
  394.     if ( person->pict.IsReferenced () )
  395.        {
  396.            int err = person->pict.Get(oldpic);    //    Get old picture
  397.         blob = new PtBlob(oldpic->picture);    //    Copy Blob using copy-constructor
  398.         person->pict.Unget (oldpic);    //    Remove old picture from memory
  399.         pic.SetPicture (*blob);    //    Set new Blob to new picture object
  400.         
  401.         if ( (err = pic.Assign(theApp.GetOA())) != 0)     //    Assign the Picture object to the data base
  402.             POET_Error ("Did not copy picture", err);
  403.         else
  404.             person->pict.SetReference(&pic);    //    Set the reference of the Picture in the
  405.                                                 //    Person object to the new object
  406.        }
  407.  
  408.     person->UnAssign ();                                //    cut connection to database
  409.     Fill ();                                            //    fill independend person with current data
  410.             
  411.     person->Assign (theApp.GetOA ());                   //    assign new person to database 
  412.     erc = person->Store (PtDEEP);                        //    store person
  413.     POET_Error ("     Object is copied   ", erc);        //    show status 
  414.     
  415.     if (blob)        //    Delete blob, if needed  
  416.         delete blob;
  417. }
  418.  
  419.  
  420. void CEditPersDlg::OnClickedDelete()
  421. {
  422.     int    erc;
  423.     
  424.     if (person->IsStored ())    //    only delete if exist
  425.        {
  426.         erc = person->Delete (PtDEEP);                        //    delete current person
  427.         POET_Error ("     Object is deleted  ", erc);          //    show status
  428.         person->UnAssign ();                //    deleted person is able to be stored again
  429.         person->Assign (theApp.GetOA ());   //    
  430.        }    
  431. }
  432.  
  433.  
  434. void CEditPersDlg::OnClickedPrev()
  435. {
  436.     Person    *newperson;   
  437.     int erc;
  438.  
  439.     if ((erc = allperson->Seek (-1L, PtCURRENT)) == 0)    //    same as next with negative step 1
  440.         erc = allperson->Get (newperson);
  441.     if (erc == 0)
  442.        {
  443.         person->Forget ();
  444.         person = newperson;
  445.         ClearControls ();
  446.         Show ();                                        //    show actual person
  447.        }
  448.     else
  449.         POET_Error ("Previous", erc);                    //    show status
  450. }
  451.  
  452.  
  453. void CEditPersDlg::OnClickedAsspic()
  454. {
  455.     int nResult;
  456.     CString fullpath;
  457.     
  458.     CFileDialog filedlg (TRUE,"*.bmp", "*.bmp", OFN_HIDEREADONLY |    //    initialize dialog
  459.         OFN_OVERWRITEPROMPT | OFN_NOCHANGEDIR,
  460.         "Windows Bitmapfile (*.bmp)|*.bmp||",
  461.         this);
  462.     filedlg.m_ofn.lpstrTitle = "Select Image";    //    start dialog
  463.     nResult = filedlg.DoModal ();
  464.     if (nResult == IDOK)
  465.        {
  466.         char    *szFileName;               
  467.         
  468.         fullpath  = filedlg.GetPathName ();
  469.         szFileName = fullpath.GetBuffer (fullpath.GetLength ());    //    get filename and path
  470.         fullpath.ReleaseBuffer ();
  471.  
  472.         Picture    pic;    //    Create a new Picture object
  473.             
  474.         LoadBitmap ( szFileName, &pic.picture );     //    Load Bitmap from File
  475.         
  476.         int err = 0;
  477.  
  478.         if ( (err = pic.Assign(theApp.GetOA())) != 0)     //    Assign the Picture object to the data base
  479.             POET_Error ("Assign", err);
  480.         else
  481.            {    //    Delete the old picture from the database, if available
  482.             if ( person->pict.IsReferenced () )
  483.                 person->pict.Delete ();
  484.         
  485.             person->pict.SetReference(&pic);    //    Set the reference of the Picture in the
  486.                                                 //    Person object to the new object
  487.             Fill ();                            //  Update person 
  488.             if ((err = person->Store( PtDEEP )) != 0)    //    Store the Person, the reference and the picture
  489.                 POET_Error ("Store Person", err);
  490.                else
  491.                    MessageBox("Picture Assigned and Stored", "Hello Message", MB_OK);
  492.            }
  493.        }    
  494.     
  495.     filedlg.EndDialog (nResult);    //    end dialog
  496. }
  497.  
  498.  
  499.  
  500. void CEditPersDlg::OnChangeEditFirstname()
  501. {
  502.     firstname_is_modified = 1;      //    set modify-flag to TRUE
  503. }
  504.  
  505.  
  506. void CEditPersDlg::OnKillfocusEditFirstname()
  507. { 
  508.     if (firstname_is_modified != 0)
  509.        {
  510.         UpdateData ();        //    recieve data from dialog
  511.         if ((item = m_CListFirstnames.GetCurSel ()) >= 0)    //    firstname selected in the list ? 
  512.            {
  513.                m_CListFirstnames.DeleteString (item);            //    delete firstname in list
  514.             if (m_strFirstname.GetLength () != 0)        //    firstname in edit not empty ?
  515.                 m_CListFirstnames.InsertString (item, m_strFirstname);    //    insert firstname in list
  516.            }
  517.         else
  518.               m_CListFirstnames.AddString (m_strFirstname);  //    puts new element in list
  519.         firstname_is_modified = 0;  //    set modify-flag to FALSE      
  520.         UpdateData (FALSE);            //    send data to dialog
  521.        }
  522. }
  523.  
  524. void CEditPersDlg::OnDblclkListFirstnames()
  525. {
  526.     UpdateData ();    //    recieve data from dialog
  527.     m_CListFirstnames.GetText (m_CListFirstnames.GetCurSel (), m_strFirstname);    //    set doubleclicked firstname
  528.     UpdateData (FALSE);    //    send data to dialog
  529.     PrevDlgCtrl ();        //    set focus to firstname-editcontrol
  530. }
  531.  
  532.  
  533. void CEditPersDlg::OnClickedClear()
  534. {                                  
  535.     person->UnAssign ();    //  cut person's connection to database
  536.     person->Forget ();        //    actual type of person is not safe,  
  537.     NewPersonPtr ();    //    set correct type of person    
  538.     person->Init ();            //    initialize person's attributes 
  539.     person->Assign (theApp.GetOA ());    //    assign it to database
  540.     Show ();                            //    show actual person
  541. }
  542.  
  543.  
  544. void CEditPersDlg::OnClickedShowpic()
  545. {
  546.     Picture *picture = NULL;    
  547.  
  548.     int err = person->pict.Get(picture);    //    get Blob
  549.  
  550.     if (!err && picture && picture->IsAssigned())
  551.     {   
  552.         int    nResult;
  553.  
  554.         CShowPictDlg    showpict (this, picture->GetPicture ());
  555.         nResult = showpict.DoModal ();        //    start dialog
  556.         showpict.EndDialog (nResult);
  557.         person->pict.Unget (picture);        //    free memory allocated by Get
  558.     }
  559.     else
  560.         MessageBox("No Picture Assigned", "Hello Alert", MB_OK);
  561. }
  562.  
  563.  
  564.  
  565.