     7

       / 

     Silverrun,      6, 7  8,  
     ,     
  Delphi.         
     -     Borland. 
      6, "    /",  
       .  
 ,    . 
    Q     . 
    Q     ,   
  . 
    Q         
     . 
    Q         
 . 
    Q       . 
      6          
.         . 
    (     ) 
 ,  ,      
 , .      
  ,    ,      
  ,      . 
      .    
,        
   . 
         ,      6,  
,         
  . 

      
        /    
 .         
        / 
 .       Rational-Booch,  
SAFE,   Sybase,  .       
  ,     ,      
 .    /  
     .    
 ,           
  .    /  
,   ,    
    . 

    ,         
  .   ,   ,   
  ,        
  ,       .   
 ,     ,  . 
    ,     .  - 
           
       . 

     7.    / 141 


           

         ,     
,      .   
    ,      
.          
 ,       . , 
          
      . 

          

           ,    
       . - 
        ,   ,  
  ,         
 " ". 
      ,     ""  "" 
.    ,       
   .  -,     
     ,      , 
  ,          
  " ",   "-".    , 
        . 
          . 
         
, ,   ,    .   , 
       (B.S., Bachelor 
of Sciences),     (.., Bachelor of Arts).    
     " " (Computer 
Science),   " " (Computer Art).    
   ,        
  ,  , ,  .   
          
    ,   
    . 
     ,    ,  
   ,    ,  
   . , ,   
  ,     . ,  
,   ,        
  .          
.      ,   ,   
      " ".   
  , ,   ,     ,    
"".      ,      
 ,    ,       
.     ,   ,   . 
 ""      .    
       .  
     ,   ,    
.       . 
            
    19- .    
         .  
     ,   
    ,     
.         , 
  .    ,   ,  
    ,      . 
      ,        , 
     .      
,    -

    142  I.  

 .     , 
       . 
      -     
   .     
,     .   ,   
   ,      . ,  ? 
             
  ?        ,  
-     ,   ? 
            /? 
 . ,    ,      
,  ,       
 ,     .   
   .      
     .   
, -,    . , ,  
 ""  ""    ,  
     ,    
  .         
 .        
.        . 
   ,   ""    
,        .    
,           
  .      ,   
 "" ,   ,    . 
    ,       /, 
          , 
         
. ,      ,      
     ,     .    
   ,     . 

       

            . 
      :     
   .     
         
   .       
   .         
  ,      . -  
 ,      , 
    . 

        

        ,      
,        .  
     CASE-. 
            
   ,      
 .      Delphi.   , 
,  Silverrun-RDM  PowerDesigner (    
S-Designor) AppModeler for Delphi. He ,    
       - CASE-.   
 ,       . 
    Q      . 
    Q          . 
    Q         . 
        ,     
,    . 
    Q     (..    
-   ),    . 
     . 7.1  7.2      . 

     7.    / 143 


    . 7.1.     RENTMAN 

    . 7.2.    

     I.  144 


      

       CASE-,     
     ,     
   ,   ,   . , 
    ,    CASE-. 
,  Silverrun-RDM   ,   
    Delphi   .   
PowerDesigner AppModeler for Delphi       
 ,    ,    . 

         

             
    .       
   ,   Object 
Pascal   Delphi.  ,       
,    . ,    
,        .   
     ,    
     .      
 .  , -,      
     QuickReport Delphi,   
      . 

       

         ,   
,    - .    
    ,     
 .        Orpheus 
Visual Component Library  Asynch Professional,   
TurboPower Software.      ,  
       ,  
       .   
,     ,    ,  
  ,        
  .      ,  
      ,   
,  -     
  . 

      

    ,   ,       
  .      
  . ,    ,  
-      .     
       ,  
     ,       
.  ,  ,     
       . ,   
     ,    
  . ,   , ,    
 ,   ,      
  . ,        
   ,         
   . 

      

            
  .    ,       
     -.   
""        
       .    
 , ,    ,  
  ,        
 (      ,   !). 

     7.    / 145 

      

             
   .      
 ,      . 
,      ,   Delphi 
 .      ,    
   . 

      

    ,          
     .     
 /        
,     .      
  .  -      
    ,    
       .  : "  
    ". 
            
.        ,    
           . 
    :     , 
    ,     
      . 
    Q  .    ,      
,       
.       ,   
.     Windows     
 .    CorelDRAW, Lotus SmartSuit  Microsoft 
Office.     Corel (. 7.3),    
   CorelDraw 7  WordPerfect.     
Lotus (. 7.4),      Lotus 1-2-3  
WordPro.        Microsoft (. 7.5),  
       Word  Excel. 
    
    . 7.3.  CorelDraw 7 
    146  I.  


    . 7.4.  Lotus SmartSuite 

    . 7.5.  Microsoft Office 


     7.    /  276  1 

               
,      , 
   .  ,   
,   ,    
  . 
    Q     .   
           
,   .       
 ,     -   
,    .  ,      
    ,       . 
        
,    ,      , 
       . 
    Q     ,      
    Delphi.    
,       .  
         
,         
.       ,  ,    
    QuickReport Delphi,     
  . 
    Q       , 
     .    
       .  
     .    
       .    
        . ,  , 
  ,     ..    
         Windows. 
         SDI,   MDI.  ,   MDI 
(Multiple-Document Interface   )   
 SDI (Single-Document Interface   ).  
,     ,    
Microsoft     SDI.   
    MDI, ,   .  
  SDI    . 
    Q    ,      
 . ,        
-    .     , 
  .        
   . 
    Q   ,   ,    Windows 
 .       
   ,      Windows.    
    Delphi       
 . ,   ,   
        . 
 Delphi,     ,  
  Dialogs  . 
    Q       (, clBtnFace, 
     ).    
   ,      
    ,    
  . 
    Q   ,     , 
  Toolbar  SpeedButton.   SpeedButton 
    Grouplndex   ,  
        
-  :     
,    .      
Grouplndex    ,   AllowAlIUp  
 False.         
    ,      ,  
         
  ,      .  
    Down  SpeedButton,    
      . 

    148  I.  

    Q        , 
      . 
    Q           
 ,    ,       . 
,    ,    ,   
   .  ,     
        
    . 
    Q          
.       ,      
  ,         
         
 OnClick.        , 
    Object Inspector   visible   
False.   ,    ,  
     . 
    Q        .  
        Caption  
Label (        
   &).   " FocusControl  Label 
  ,        
    . 
        -     
   .        
DBNavigator    ,      ,    
     .    
,         ,   . 
    Q         .    
     ,  
   .    
, , ,    ,  , 
     .    ,   
   . 
    Q      (, Arial)  , 
    ( Times New Roman),     
   . 
    Q      ,  
  ,  ,    
      .    
    . 
    Q        
.    Windows   
   ,   
      .  , 
    ,      
 .      HelpContext 
    .      Windows 
      ,     
 HelpContext  ,      
.        Windows   
 13, " ". 
       About,       
,   ,       ()  
 .  ,        
        ,  
     Windows.  ,  
            
 Windows VERSIONINFO.       
   13. 
    Q     .    
      .  
,       -   
  Windows.  Delphi        
TToolbar  TCoolbar.  ,     ,  
 TSpeedButton   TPanel. 

     7.    / 149 

    Q     .     
 StatusBar,    Win95  . 
    Q  ,    ,   , 
  .      TabOrder 
    0. 
    Q         
 ,      . 
     Windows 95,    Borland  
  . 
    Q     .    
    , ,   ,    
 .      
Explorer () Windows,         
<Alt+Tab>,         
 .  Delphi     
  Project=>Options=>Application. 
    Q  ,       ,  
    .     VGA, 
      640480.    
,    ,  ,     
 ,       ,   
   . 
    Q      .   
  96 dpi     120 dpi,    
   .  ,      
,    ,     - 
96 dpi       ,   
   ,        
  ,      .   
 ,   ,    Scaled 
  False (    True).     
   ( ),   AutoScroll 
 False. 
    Q       .   
            
 . 
    Q          , 
         
.       Delphi   .   
       . 

       

    ,      ,  
   , ,     
 ,   ,      
,    .    
     ,  ,      
    .     (Scott 
Adams), The Dilbert Principle,     
     .  , 
   ,       
  . 
    Q        .  
 ,      ,   ""  
  .  ,  ,    
       Windows, 
          . 
    Q   : ,     .  
     .    
,      .     
       ,   , 
     . 
    Q ,   ,    .  
   ,     
   .      
  ,      -

    150  I.  

    ,       
.     ,    
,  ,      ,   
 .        
Delphi TDecisionCube. 
    Q   ,        
(TDBEdit, TDBListBox, TDBLookupComboBox  ..),    
   ,     .   , 
    .     
 TDBText   TLabel,      
   . 
    Q            
        . , 
 ,      ,      
     . 
    Q     ,      
  .       , 
       .   -   
          
,   Visible    False,    
  . 

      

        ,       
.    ,     
 .    ,    
,      ,  . , 
 , ,   ..      , 
        . 
    Q     Delphi DBNavigator  
.   ,       , 
    , , .  ,   
      .   27, 
"   ", ,    , 
    DBNavigator. 
    Q   ,     . 
      .   
    .       
    . 
    Q           
.       , 
      .  
  ,      , 
   ,       
    . ,      
  ,      ,     
  Add,      <Alt+A>  
   ,    . ,  
     ,      
  ,        
,  . 
    Q       .  
              
  ,  . 
     ,   ,   Kind  TBitBtn 
      Cancel ().    
        Default 
 True,      .   
    <Enter>     ,   
  <Esc>   . 
    Q ,   ,  ,    
  .       
,    Borland.    
     ,      
Delphi   . 

     7.    / 151 


       

              
.          
,        "",  
    .   ,  
,          
.      ,  
    ,   .     
    ,      
 . 
    Q   ,  ,   
.       
 ,      .  
  ,    .   
   . 
    Q     .   ,    
   . ,   ,    
         ,   
 ,           
 .       ,     
,    . 
    Q    DataSet    
         "-".  
       ,  
  ,    . 
     ,    
. 
    Q   ,   .  
      .  
       ,   
   .       
   ,   ,   ,   , 
      . ,   
,     -  .  
,   ,     . 
    Q ,   ,  ,   , 
 Add (),    .     ,   
         ,   
 .        
        . 
    Q       .      
,         ,  
 .    ,  ,  
  ,    ,      
,    . 

      

          19, "".   
       . 
    Q   ,       
QuickReport Delphi.       ,  , 
      ,  ,    
,   .   ,    
 QuickReport,      . 
    Q   ,      QuickReport, 
,  ,    , , 
ReportSmith, R&R SQL Report Writer for Windows, Crystal Reports  .. 
        
          
. 
    Q       , 
       .    
,          , .. 
,         /.  

    152  I.  

,       ,   
 ,          
 .  ,       
      ,     
          . 
    Q          
 .        ( 
 )       ,    
   .       
       .  
        ,  
  ,          
.        Transact-SQL ( 
Sybase  Microsoft SQL Server). 

    CREATE PROCEDURE reportlog @StartEnd char(6), @ReportName char(30) as 
    insert into REPORTLOG 
    select @StartEnd, getdate(), suser name(), @ReportName 

      ,     SQL   . 

    /* 
        . 
    exec reportlog 'STARTED','MAINTENANCE REPORT BY WORK TYPE' 
    /* 
       . 
    */ 
      ..........
    /* 
         . 
    */
    exec reportlog 'ENDED','MAINTENANCE REPORT BY WORK TYPE' 


     
            
.  Sybase SQL Server, ,    
 ,      ,   
  . 

    Q        ,  
  ,    ,  .    
      ,     , 
         . 
      ""  , 
      .  
     ,     
 .  . 7.6.      . 
    Q     - ,  
   .      
   -   ,    
 .    ,     
-           , 
 ,   ,     . 
    ,      
    . 
    Q     ,     
.       ,  
       . 
            
         
. :   1   ,   5, 
     ,     
 "".       Arial  
Times New Roman  ,    Courier New   
 . 

     7.    / 153 


    . 7.6.    

    Q      ,    
,    .    
         
,     .   
        , 
     ,   . 
      ,     , 
    (_)   .  
       ,   
         , 
     .  ,    
        , 
     .    
       . 
    Q   ,   -,  
 ,      (,  , 
   ..)   . 
    Q    ,     
,     .  ,   
     ,   
  .    ,   
    . 
    Q          , 
           .  
   ,        
      .  
       . 

    154       I.  


             

              
 .         
   ,          . 
    Q        
      .   , 
      ,   ,  
 .       
,   ,  ,    
,   (, ,  ),   , 
    . 
    Q        
   . -       
,     Startup Windows    
         .  
    ,      . 
    Q      .    
  ,     , 
   .    ,    
   Windows VERSIONINFO (.  13). 
    Q   ,     . 
,     : "   
   ?" 
    Q ,   ,   
 ,   . ,   
    ,     
. 
    Q   ,       
,      ,     
 .        
,     ,    
.         
 .       Windows 
NT,    Windows NT, a   Windows 95    
 Windows 95.         
 ,    ,  ,   
  . 
    Q    ,    ,   
    .    , 
   ,      .  
          
 ,       .   
   . ,      
  ,     . ,  
,    ,  . 
    Q       . 
      20 , 
,     30  40 .  
,            
   ,       
.       ,  
  ,        
  ,      . 
    Q      , ,  
         
,   .     . 
,       ,    
.        . 
,      ,    
  .      
     . 

     7.    / 155 

    Q     ,     , 
   ,     . 
    Q     ,  
  ,       
   . 
    Q       , 
   .     
      .    
         
 . 
    Q ,         
  . 

      

           
   29, " ",     
    . 
    Q    ,      
          
  . 
    Q         
 .     
,      . 
    Q     ,    - 
        
.   , ,   /  
 TCP/IP,         
.         . 
    Q    InstallShield,     Delphi, 
           
   .       29. 

     

    ,     6  7      
     . ,  ,  
   /   , 
    .        
,  ,   ,      . 
          /, ,  
         
,    .      
        
.  ,   ,    
  ""  "" , ..   
,       .  
   , ,  ,  . 

     ... 

       ,  " ",   
       
  /.     ,  
       . 

    156  I.  

