

                         VBForums -    ̳ 


                         .       
               


         VBForums-̳: HTTP://hzsoft.yeah.net
            
                  ύʼ: VBForums@usa.net?Subject=VBForums

            нϵ: ympang@bigfoot.com



:
    ã
    һVBĳѧߣϣܺΪѣ
    һ⣬VBƺһ ActiveBar ʽ
    ˵ǲʵActiveBarselect case ¼ָ
    ATTACHʽEMAILһActiveBar ӦõԴҾ͸ˣ
    ǳмϣΪ
                            - Victor chan

Ӧ:
    Private Sub ActiveBar1_Click(ByVal Tool As ActiveBarLibraryCtl.Tool)
    Select Case Tool.Name
        Case "Edit"
           'Edit˵
        Case "Open"
           'Open˵
        Case "Cut"
           'Cut˵
        Case "Copy"
           'Copy˵
           .
           .
           .
        End Select
    End Sub
     
                                        - Wangyg

:
    λ֣:
    1.ΪʲôActiveBarĲ˵õȼʹã
    2.βһͼƬ弰еĿؼ 

                             Sen Luoyi 

:
    νв?

ش:
    VBиCOMMAND$ϵͳвġ

                            - ׺


:
    WORD97VBAдȡORACLEݿļѾԶȡ
    ORACLE7.3еıļ֪WORDʽļδORACLEݿⲢ
    ȡоͨWORD97VBA̵ˣϵָ̣
                            - lqy



ѡ

               xBase           ACCESS 

              ҵ  ѧ     ѧԺ(221008)---- 

---- ժ Ҫ   xBase         
ACCESS xBase      һ    ACCESS  
          

----   ʣACCESS----Foxpro----   

---- ΢   ˾              
ߣ һ            WINDOWS  
ACCESS  һ     FOX  ˾    Foxpro
 ͨ  dBASEfoxBaseFoxpro  ͳ  ΪxBase   
ӵ         ΢   ˾ ACCESS   
         Ѹ      OFFICE  
      Խ  Խ      ʼ ʹ MS
ACCESS  OFFICE97    ֮ һ  xBase  
Ҳ  ʼ ת   ʹ  ΢   ˾ ACCESS  ACCESS
    ֯    ͡    ԡ     
xBase      죬  ʹ  xBase    ѧ
ϰACCESS ʱ      Щ         Ϊ
ACCESS     xBase   Ӧ     ACCESS
       ACCESS  ѧ ϰ xBase  ȣ
ACCESS       ԣxBase   һ   
ACCESS            䡰xBase  ˼
ά  ʽ       xBase ֪ ʶ     
 ACCESS       xBase ACCESS    
  ͨ    ʹ  ͳ xBASE        
 ACCESS 

---- Ҽ ACCESS xBase   Ҫ  죺 

----      ˵ACCESS  ʹ      
ͬVisual Foxpro3.0 Visual Foxpro5.0  ʹ     
    ƣ  ϤVisual Foxpro3.0       
       ѧ ACCESS û  ʹ  Visual
Foxpro   ͳxBase     ʼ ѧ ϰACCESS Visual
Foxpro ʱ  Ҫ  ˼       ת 䣬   
ACCESS Visual Foxpro            
              ̸  xBase ָ
 Visual Foxpro      

----    ֯  ͬ xBase    ϵ ͳ ͨ   
   ͬ      ÿ һ      
 ѯ              ʽ   
  ϣ   ͨ   Ŀ          
   ֯   ACCESS       ֯ ͬ  
 ̨    ϵ ͳ SQL SERVER      ֯ 
  ƣ  ͬ      Ԫ   Ϊ     
      һ      У      
   Ϊ   ⡣ 

----      ͬ   ͳ xBase У   ¼ 
              xBase   
  ̣    Foxpro      SQL  䣨 
SQL-SELECT  Ҫ         ѯACCESS  
  ¼       Ҫ ͨ SQL ʵ ֣    
     д  Visual Basic for Application  
 ACCESS access basic  ̣        
ꡣVisual Basic   Ϊ ͨ      ԣMS Office 
     Visual Basic    ̡ 

----      ͬxBase          
     ʹ  һ           Ҳ
 Ҫ    һ xBase  ACCESS       
                ͨ  
       ִ      ʵ ֣    ͨ
      ̡      ACCESS   
          ⣬ACCESS      
  ¼             Լ   
ܣ            ȫ  ơ 

----  ACCESS        

---- ACCESS             ͬ   
        Table  ѯ(Query)  
(Form)  (Report) (Macro)  ģ (Module)ACCESS
     ͬ һ    һ     ȫ    
   Foxpro   Ŀ    ͬACCESS   Щ 
    һ    С        ֻ  
       ġ    ť      
ѡ    Ȼ     ơ  ť 

---- ACCESS   ACCESS     ͬ xBase  DBF
  Visual Foxpro      ACCESS  
xBase DBF         㣺 

          64 λ   
               롢 ȱ ʡ ֵ ֵ  
     Χ   xBase  ʹ @GET    PICTURE
     DEFAULTRANGE      á 
                 ϵ ͨ    
       ԣ

---- ACCESS У   Ҫ  ר         
  ά       ĳ       ֻ  
         ѡ          
ɣ      ά   ʹ    ͨ ACCESS ϵ ͳ
   ģ xBase   :Index on set index to  
       ġ 

----    Ҫ  ACCESS          
   ֮       ν        ϵ
 ͬ xBase  set relation set skip      
 һ  һ    ϵ һ ACCESS ֻ  ͼ    
     һ      һ  ϵ      ͨ
   ɾ        ȷ       ¼ ֮
  ϵ   Ч ԣ        ɾ    
   ݡ 

---- ʹ ACCESS   ʹ xBase DBF    һ   Ҫ
    ν       ͬxBase  USE 
  DBF   ʵ             
   ͨ     DBF        Ҫ 
ʹ BROWSE     ACCESS    һ    
xBase USE + BEOWSE            
   ʾ     ¼ ACCESS  ͨ     
 һ   SQL         ݣ    
   ִ SQL  䣻  һ   VBA   ͨ  
    DAO     ͨ DAO    ʱ
Ҫ    ν   ¼ RecordsetxBase  USE 
 VBAVisual BASIC for Application  Openrecordset
       ơ 

----  ѯQueryACCESS    ѯ     SQL 
     䣬    ѯ   ͨ   ͬ   
          ݣ   Foxpro  SQL
SELECT   Foxpro   ѯ ACCESS У    
¼          ͨ   ѯ   ɣ  
磺 xBase  ʹ    REPLACE ... WITH ...  
ACCESS  Ӧ   һ     ѯ   ɣSQL UPDATE
 ACCESS     ʹ   ѯ     ͬ  
 ̨   ⣨ 磺ORACLESQL SERVER  ʹ SQL  
Microsoft Jet      SQL  ANSI SQLACCESS
SQL ʵ       ANSI SQL  ܣ  ЩSQL  
ANSI SQL   û  ġ 

---- ACCESS  ѡ   ѯ Foxpro  SQL SELECT   ʹ
    Ϊ     ACCESS У ѡ   ѯ  ʹ
  ͬ         ѯ     ϵ  ѯ
Ҳ    һ   Ϊ        ¼  Դ 
  ѯ      ѯ 

----  壨Form     ACCESS    ϵ ͳ 
 Ҫ    棬   Щ          
     xBase   @SAYGET    д  
ʵ   ν ȫ  Ļ            
Foxpro    Ļ  .SCX ACCESS     
     ͬ Foxpro     Ļ    Ҫ  
    

----  ReportACCESS        xBase 
    FRXFRM xBase        ֮
  Ҫ REPORT FORM ...   Ԥ    ӡ  
ACCESS        ֮   ֱ       
      ť Ԥ         ģ  
OPENREPORT    ӡ  Ԥ    

---- ꣨Macro   ָ һ         ϣ
  ÿ    ʵ      ܣ     ĳ 
    ӡ ĳ       ʹ ĳ Щ  ͨ  
    ɡ  磬    ĳ  ꣬     
ĳ     ť ʱ    ꣬   ӡ ĳ    
xBase  û         ACCESS     
Ӧ ACCESS97       У       
      

---- ģ 飨moduleACCESS  ģ    xBase   
        ÿ һ  ģ       һ
           ԣ      
xBase    (Procedure) 

---- Ҽ ACCESS        

----   Ϣ ϵ ͳ    У        ռ 
     ACCESS         xBase 
             xBase    
       Ҫ ȷ   Ļ   ʾ     
λ  Ȼ   @ sayget    д  Foxpro У
                  
 ʱ     Ļ  .SCX Ȼ      
         .SPRACCESS     
           FormForm   
       WINDOWS     ߣ 磺Visual
BASIC      һ £ xBase       
     죬xBase   Ӧ         
  ACCESS     ƣ 

---- 1.        

---- Foxpro У              Ļ
   Ļ           Ƭ (Code
Snippet)         Ļ      չ 
ΪSPR        Ƭ         
֮ У ִ           ʽ    档
ACCESS У       Ļ        
ͬ   ͼVIEW--    ͼ    ͼ    
 ͼ    ͼ ģ ʽ         壬  
   ֮         ͼ      ͼ 
    Ϊ     ʹ      档ACCESS 
  Ҫ         룬     ֮  ֱ
            ͼ  ɡFoxpro  
 ͷ     ֮ һ     Ļ ʱ      
Ļ      롢 ִ        Ч  
 Ļ      ΢ С      ͨ     
 ִ         ACCESS      
̣ ֻ      ͼ     ͼ      ֪
       Ч  

----   ģ      ̣ Foxpro У@GET READ
ACTIVATE            䣬 磺  Ϊ
  VALID  䣬   ͨ   һ       
    Ļ       Ļ   ʱ    
         ֱ   룬  Щ    
           Ϊ   Ƭ ΣCode
SnippetACCESS У Foxpro    Ƭ    Ӧ 
       ̣Event Procedure  ν   
  ָ һ    ִ    ̣       
         ϵ ͳ         
Ӧ  磺 Foxpro     ĳ һ    ֵ   
  ֮  ִ  ĳ һ      Ҫ ͨ    
 Ƭ   VALID   VALID     Ҫ    
  ACCESS У ĳ  CONTROL  ֵ    
  ֮   ִ  ĳ         After
Update                  
ɣ     ֵ     ֮   After Update 
 ϵ ͳ    ִ      Ӧ     ̡
ACCESS  ÿ һ               
ģ 飬   ģ              
                  ʱ
   ģ     档 

---- 2.    ¼  ԴRecord Source 

---- Foxpro У    Ļ   ֮ ǰ Ӧ     
       ֮    ϵ  Ļ     ֮
    ʱ ϵ ͳ  ѯ       Environment
       ϵ ͳ          
               ACCESS 
  ġ       Ϊ  ¼  ԴRecord Source
  ¼ Դ      ѯ SQL SELECT  䡣
ACCESS   ¼  Դ Foxpro ġ       
     ԣ ACCESS     ¼  Դ   
?      ʱACCESS  ͨ     ѯ  
ʹ SQL SELECT    Ϊ  ¼  Դ   ѯ SELECT
  ָ           ϵ 

----  Foxpro   Ļ           
桰            ʱ      
   УACCESS     ¼  Դ ֻ     
 ¼  Դ        ѯ   SQL SELECT 
䣬  ¼  Դ        롣      ʱ
      ѯ SELECT     ݣ  û  ʲ
ô           ѯ     ⡣ 

---- 3.            

---- Foxpro  Ļ            
TextBox   ListBox   Ŀ      
 Ӧ           Ļ      
    Ŀ             @ ..GET
       磺ENABLE DISABLE FONTSTYLE
DEFAULTMESSAGERANGE COLOR ȣ  Ļ     
    Ƭ ΣCode Snippet         
      @get   VALIDWHEN   䡣
ACCESS У  Foxpro   Ļ         
Ŀ   ֮ Ϊ  CONTROLFoxpro @get    
 ACCESS   ͨ        ʵ  ģ  磺
Foxpro  @ .... Get text disable  䣬 ACCESS  
text   enabled   ֵ   ΪFalse( )Foxpro
SHOW GET TEXT ENABLE ACCESS    ֵ 
Me!text.enabled=true  text     ԡFoxpro 
   Ƭ  ACCESS   ͨ      ʵ  ģ
 磺Foxpro @Get text valid check()     
Valid   check()      ʵ  ͬ   
 ACCESS  text   Before Update( After Update)
  ֵ ѡ [    ]     Ӧ    
롣   Foxpro @GET      ACCESS   
   Ӧ  ϵ  £ 

Foxpro  
ACCESS    
FUNCTION
Format Input Mask  
PICTURE
Format Input Mask  
FONT
Font color name size weight italic underline   
STYLE
Font italic underline   
DEFAULT
Default Value
ENABLED|DISABLE
Enabled
RANGE
Validation RuleValidation Text
SIZE
Left top height width
VILID
Before Update After Update
WHEN
On enter On Got focus


---- 1.    С    ¼ ָ 롱 

---- ͨ foxpro  Ļ            
        ¼   ť ͨ     ť 
  Ļ      ǰ  ¼foxpro  ʵ    
   һ     ť   valid      
  ָ      磺skip goto locate ȡXBase
    ʹ ACCESS   ʱ  ʵ  ͬ     
  ֪    ֣ACCESS  ʵ      ¼  
  ͨ        

               ¼      ť
     navigation button 
     ʹ Goto Record  Find Record  
     ʹ       DAO    ǰ    
     ¼

----  ֻ      ǰ     ¼   Ҫ  д
         ͼ    navigation button
ֵ   Ϊtrue     ʱ        ť
  ͨ       ť ǰ ơ    ¼   
 ¼       ¼    ͨ    VB  
ʵ ֣  磺      CMD  ť      ¼
 CMD  ť on click         VB  
䣺 

---- DoCmd.GoToRecord 3 

----    ʾ    ǰ    ʹ   ¼ 
FindFirst     ¼  λ      ֵ Ϊ
?    ¼ 

Dim rst As Recordset
        Dim strSearchName As String
        Set rst = Me.RecordsetClone
        strSearchName = "  "
        rst.FindFirst "   = " & strSearchName
                If rst.NoMatch Then
                        MsgBox " û  "
                Else
                        Me.Bookmark = rst.Bookmark
                End If
        rst.Close

----   Me.RecordsetClone      RecordSource
  ָ      ѯ     һ   Bookmark
  ¼    ǩ    Ψ һ  ʶ     
  ѯ  SQL        ¼   FindFirst
       ¼  Դ   ¼      λ 
¼ Ȼ        ¼  λ      ͬ 
λ á 

---- Ҽ xBase       ACCESS    ʵ  

----  xBase     ʹ ACCESS ʱ   ACCESS 
  xBase       䡢    ʵ   
       xBase     Ӧ ACCESS  
 VB    ʵ    

XBase  
ACCESS   
ACCESS VBA  
ACCESS  
USE < >

OpenRecordset  
ͨ    Ҫ     ¼ ʱ 
BROWSE/EDIT
OpenTable
Docmd.opentable
      ֱ    
INDEX ON


ָ         
SORT ON


ͨ       ť      
REPLACE


ʹ SQL  
SUM AVER 

Dsum()   
ʹ SQL  
GOTO
GotoRecord
Move  
ʹ   ¼    ť
SKIP
GotoRecord
Move  
ʹ   ¼    ť
LOCATE

FindFirst  
ͨ                
TOTAL


ʹ SQL  

Ҽ ACCESS       

---- xBase      ʹ ACCESS ʱ ACCESS   
       ֵ        Ӧ   
 ACCESS      ȱ      ⣬ ʹ  
            һ Щ  ⡣ACCESS
xBase          Ӧ  ϵ    

ACCESS       
xBase       
  (Text)
  (Character)
 ֵ (   ͡   ͡   ȡ ˫  )
 ֵ (Numeric)
  (Currency)
 ֵ (Numeric)
 ע (Memo)
 ע (Memo)
  ʱ  (date/Time)
  (Date)
  (Yes/No)
  (Logical)
OLE   (OLE Object)
ͨ  ͣGeneral

---- XBase     ʹ ACCESS ʱ       ֮
һ ACCESS     ֵ       ⣬ xBase
DBF       ֵ          ͡
   С  λ    ¼   ֵ      
 ʱxBase ֻ      С  λ       
    ⣬ACCESS     ֵ    ͬxBase  
ֵ     ͬ          ֵ   
      Ϊ   ͡   ͡   ȡ ˫ 
       һ ֣   ֵ       ʱ
         С  λ  Ҳ     
 С        ⡣        
DecimalPlaces Format       ֻ  ȷ   
  ʾ  ʽ         С  λ   
      ֵ   ʱ        С  λ
       ⡣ 

---- XBase   ʹ ACCESS  ʱ     һ   
   NULL ֵ  ⣬xBase У    û   ֵ
      Ϊ     ֵ    Ϊ  ֵ
ACCESS У    û   ֵ     ֵ ΪNULL 
ֵNULL ACCESS        ʾ û ֵNULL 
   Variant   ͨ DAO    ¼    
ʱ ʹ NZ   NULL ת  Ϊ       
ֵ   ֵ 


й˾Ȩ




˶ http://server.com/WebApps/mail-list-unsubscribe.cgi?id=4093


