        

    10  

    ,    ,     
 .        RENTMAN  
 dmRENTMAN.   Table  DataSource    
,            
TField,         Delphi.  
         
   ,        
. 

      Delphi   Silverrun-RDM 

              
  Silverrun-RDM.     
 ,     Delphi.    
    Delphi      
  .     
 . 
            
      . ,  
 ,    ,    , 
,    Database Explorer Delphi. -   
        Silverrun   
  Delphi. 

           

       ,   ,    
        
Database Explorer,         
.   Database Explorer      
Delphi     InterBase.      
          
,        . 
           Delphi,  
          
,   Delphi. ,    
    ,     
.  ,    ,     
  . 

     10.     205 

             
Database Explorer    Delphi.     
   Database Explorer   ,    
  Delphi,      Table, 
DataSource  DBGrid.    Delphi     
 .         
      Table. 
          StoredProc,    
Database Explorer    . 
          RENTMAN    Delphi, 
  . 
    1.   RENTMAN   ,      Delphi. 
    2.    InterBase   ,    . 
    3.  <Shift+F12>        dmRENTMAN, 
    .      
dbRENTMAN   Database Explorer. 
    4.   Database=>Explore     Database Explorer. 
    5.    Dictionary,       
Dictionary=>New. 
    6.    Create a new Dictionary   Dictionary Name 
 RENTMAN,    Database  dbRENTMAN.     
 RENTMAN       dbRENTMAN (   
      Database  ). 
    7.    Desription - ,  RENTMAN 
Data Dictionary     .  . 10.1   
 Create a new Dictionary    . 

    . 10.1.       RENTMAN 

    206  II.   

    8.           
 .        ,   
,       SYSDBA   masterkey. 
    9.     Dictionary,      Databases 
 .    ,      . 
    10.   Dictionary=>lmport from Database,    
   dbRENTMAN     . ,  
   dbRENTMAN, a   RENTMAN,   
 9, "".     ,  
      . 
    11.            
 SYSDBA  masterkey. 
    12.    Database Explorer    
   .       BDESDD, 
    . 
    13.    Dictionary     Dictionary,  
   Databases,    ,    
   dbRENTMAN.       
   dbRENTMAN.      RENTMAN, 
    Delphi,     Attribute 
Sets.  . 10.2  ,    . 

    . 10.2.    RENTMAN 

       

             
   .       
  . 
          RENTMAN.  
,          
   ,         
    RENTMAN. 
        RENTMAN   . 

     10.     207 

    1.     TYESNO      
 TControlClass  TDBCheckBox (. 10.3).    , 
  ,   TYESNO,     
 DBCheckBox,    Data Controls  
 Delphi. 

    . 10.3.   ,   ,  
        

    2.       (TControlClass) 
  TADDITION, TCITY  TSCHOOLDISTRICT  TDBComboBox.  
,      ,   
  DBComboBox  . 
    3.     TSTATE   >   Edit Mask. 
         
 . 
    4.    Default Expression   TSTATE  
    'TX'.  ,  .  (Texas)  
     TField,    TSTATE. 
    5.     TPHONE     Edit Mask 
 !\(999\)000-0000.       
     ,   . 
    6.      Attribute Sets,     Apply  
Database Explorer (     ,   
 ),    . 
    7.     ,   
Database Explorer    Delphi.     
       RENTMAN. 

    208  II.   


       

       ,     . 
      TField     
   dmRENTMAN.       
    ,      
Database Explorer. 

      

             
Table   dmRENTMAN   . 
    1.     Table,     . 
    2.            
   Add fields. 
    3.         Add Fields  
  TField   - . 
    4.   EditMask     !99/99/00;1;_. 
   LASTLAWNDATE, LASTSPRAYDATE, BEGINDATE, ENDDATE, MOVEINDATE, 
MOVEOUTDATE, CALLDATE  STARTDATE. 
    5.   EditMask     !90:00:00>LL;1;_. 
    CALLTIME. 
    6.    . 
    7.       Table  . 
        ,      
 taPROPERTY,      Fields Editor,  
    STATE.   Object Inspector   
,    ,    . 10.4. 

    . 10.4.        


     10.     209 


     
           Delphi    
 ,   ,      <Shift+ > 
  .      , 
  ,  <Shift+F8>,  ,   , 
  . 

     EMPLOYEE Quick Entry/Edit Form 

        RENTMAN     
   fmREMPENTO,     
EMPLOYEE.    ,         
.    ,      
Database Form Wizard,       , ..  
  .        
 ,     RENTMAN     
  .  ,   ,   , 
      Delphi. 

         Database Form Wizard 

          Database=>Form Wizard.  
            
.    ,   . 10.5, ,  
    (   "-"),   
  (Table  Query)   .     
     ,      
,     Next. 
        ,   . 10.6, 
,      .     
Drive or Alias name  dbRENTMAN.      
,         
   RENTMAN.     EMPLOYEE. 

    . 10.5.      

    . 10.6.        

         (. 10.7)    , 
     .      
   >,         >>. 
   >>,     Next  . 

    210  II.   

              . 
     :   (Horizontal),  
 (Vertical)     (Grid).    Next,  
       . 
            ,    
    .    ,   
Generate a main form  .   RENTMAN  
    fmRSYSMANO,       . 
   Generate,    ,    
 .10.8. 

    . 10.7.        

    . 10.8.       EMPLOYEE,  
  

    . 10.9.      File=>Use Unit 
    
    ,       Table  
DataSource.   ,         
  Table  DataSource    dmRENTMAN.  
       ,  
 . 
    1.   Table  DataSource . 
    2.        

    Table1.Open; 

      ,         
  . 
    3.   Delphi   File=>Use Unit,     
  RENTDATA,    . 10.9. 
    4.   DBNavigator,     DBEdit. 
    5.   DataSource   ,    
    dmRENTMAN.dsEMPLOYEE (    
    DataSource). 
         ,      
   Table  DataSource  RENTMAN. 

       

               
 RENTMAN.     . 
    1.   fmRSYSMANO,      File=>Use 
Unit.        Unit1. 
    2.      MainMenu. 
    
     10.     211 
    
    3.       Tables     
 Employees.     ,   
       ,   
      . 
    4.       Form1,   ,   
          
(. 10.10): 

    Form1.Show; 

             
  Tables=>Employees    RENTMAN,   
     (<F8>). 
            .  
<F9>     Run   Delphi,   
 RENTMAN. 
      ,  <F8>.      
,         . 10.11. 
         ,      
 .    "+" ,   
,     "-",   .   
  ,  ,    
RENTMAN    Delphi. 
    
    . 10.10.      RENTMAN 

    . 10.11.       
    

         
    
              
  ,    ,     
   RENTMAN.     ,  
 . 
    1.    Remove file from project   Delphi 
    Project=>Remove from Project. 
    2.     Unit1     . 
    3.    ,     Unit1  . 
   No. 
    4.     fmRSYSMANO     
 Form1.Show;. 
    5.     implementation     
 uses Unit1;. 

    212  II.   


           

    ,   ,         
 Delphi,    . ,  -, 
,         . 
         fmREMPENTO,   . 
    1.    Delphi  File=>New. 
    2.       Forms      
 fmEditForm. 
    3.    Inherit,      .   
     . 
    4.    Name    fmREMPENTO,   
Caption   EMPLOYEE Quick Entry/Edit Form. 
    5.      Label,      
        . 
    6.       &EmployeeNo,    
   &Name. 
    7.        DBEdit,    
  . 
    8.     Name      
dedEmployeeNo,          dedName. 
    9.    dedName  ,    
    ,   dedEmployeeNo.      
    ,      . 
    10.      FocusControl   
   dedEmployeeNo,        
      dedName.      
          . 
        . 10.12. 

     
             
      ,    
 TField     .     
 . 

    1.   dmRENTMAN        
  ,     . 
    2.       DataSet,    
 ,       Field Editor.
    3.         .  
         . 
    4. ,        
  TControlClass   .

        

           ,     
   RENTMAN.        dmRENTMAN 
  . 
    1.    File=>Use Unit      
RENTDATA    . 
    2.   DBNavigator  DBEdit     
    DataSource     
dmRENTMAN.dsEMPLOYEE. 
    
     10.     213 


    . 10.12.  fmREMPENTO       


    3.           
 DataField   DBEdit     
 EMPLOYEE.  dedEmployeeNo     
EMPLOYEE_NUMBER,   dedName    NAME. 
       ,    EMPLOYEE Quick 
Edit/Entry Form  .   ,    
 REMPENTO.PAS    RENTMAN. 

       

      ,  .     
 . 
    1.       fmRSYSMANO     
  mmRENTMAN. 
    2.        Tables   
    Employees. 
    3.      OnClick    
 fmREMPENTO.Show;.    Employees   
       . 
    4.        File=>Use Unit. 
    5.     REMPENTO    .  
  ,    uses     
RSYSMANO       fmREMPENTO,  
  Show         . 
    6.   RENTMAN       . 
 . 10.13       . 

     Work Type Quick Entry/Edit Form 

          EMPLOYEE,   
         WORKTYPE. 
          ,      
   .     ,    
     . 
    
    214  II.   


    . 10.13.   fmREMPENTO 


    Q     fmRWKTENTO,    Work Type Quick Entry/Edit From. 
    Q    ,     fmEditForm. 
    Q      ,   
  (      &),     
     FocusControl    
  DBEdit. 
    Q          
,    4, "". 
    Q           
  dmRENTMAN.dsWORKTYPE. 
    Q      File=>Use Unit   RENTDATA  
  ,         
 . 
    Q   DBEdit     WORKTYPE  
  DataField. 
    Q   ,      ,   
    . 
     . 10.14        . 


    . 10.14.   fmRWKTENTO 


     10.     215 

     

                
   RENTMAN.      
 . 

    Q      Delphi. 
    Q   DataSet  . 
    Q         EMPLOYEE. 
    Q       . 
    Q      RENTMAN. 
    Q        Delphi. 
    Q         RENTMAN. 
    Q         WORKTYPE. 
       ,   ,    , 
        RENTMAN. 

     ... 

            .  
,         ,  
  .        
,     . 

    216  II.   
