记录号  OBJNAME                                            PROPERTIES                                         METHODS                                           
        2  Dataenvironment                                    Left = 1                                           
                                                              Top = 220                                          
                                                              Width = 520                                        
                                                              Height = 200                                       
                                                              Name = "Dataenvironment"                           
        3  Cursor1                                            Left = 10                                          
                                                              Top = 20                                           
                                                              Width = 116                                        
                                                              Height = 90                                        
                                                              Alias = "xinxi"                                    
                                                              Database = v109_zsh.dbc                            
                                                              CursorSource = "xinxi"                             
                                                              Name = "Cursor1"                                   
        4  Form1                                              Top = 0                                            
                                                              Left = 0                                           
                                                              Height = 433                                       
                                                              Width = 622                                        
                                                              DoCreate = .T.                                     
                                                              ShowTips = .T.                                     
                                                              Caption = "Form1"                                  
                                                              Name = "Form1"                                     
        5  Shape2                                             Top = 84                                           
                                                              Left = 420                                         
                                                              Height = 277                                       
                                                              Width = 169                                        
                                                              Name = "Shape2"                                    
        6  Shape1                                             Top = 84                                           
                                                              Left = 96                                          
                                                              Height = 277                                       
                                                              Width = 313                                        
                                                              Name = "Shape1"                                    
        7  Text1                                              ControlSource = "xinxi.bjdm"                       
                                                              Height = 20                                        
                                                              Left = 195                                         
                                                              Top = 132                                          
                                                              Width = 100                                        
                                                              Name = "Text1"                                     
        8  Text2                                              ControlSource = "xinxi.bjmc"                       
                                                              Height = 20                                        
                                                              Left = 195                                         
                                                              Top = 192                                          
                                                              Width = 100                                        
                                                              Name = "Text2"                                     
        9  Text3                                              ControlSource = "xinxi.bzr"                        
                                                              Height = 20                                        
                                                              Left = 195                                         
                                                              Top = 252                                          
                                                              Width = 100                                        
                                                              Name = "Text3"                                     
       10  Command1                                           Top = 312                                          PROCEDURE Click
                                                              Left = 108                                         
                                                              Height = 25                                        skip
                                                              Width = 60                                         if eof("xinxi")
                                                              Caption = "下一条"                                    go top
                                                              Name = "Command1"                                  endif
                                                                                                                 ENDPROC
       11  Command2                                           Top = 312                                          PROCEDURE Click
                                                              Left = 216                                         thisform.text1.refresh
                                                              Height = 25                                        
                                                              Width = 60                                         ENDPROC
                                                              Caption = "Command2"                               
                                                              Name = "Command2"                                  
       12  Command3                                           Top = 312                                          PROCEDURE Click
                                                              Left = 324                                         thisform.refresh
                                                              Height = 25                                        ENDPROC
                                                              Width = 60                                         
                                                              Caption = "Command3"                               
                                                              Name = "Command3"                                  
       13  Label1                                             AutoSize = .T.                                     
                                                              Caption = "班级代码"                               
                                                              Height = 16                                        
                                                              Left = 139                                         
                                                              Top = 137                                          
                                                              Width = 50                                         
                                                              Name = "Label1"                                    
       14  Label2                                             AutoSize = .T.                                     
                                                              Caption = "班级名称"                               
                                                              Height = 16                                        
                                                              Left = 139                                         
                                                              Top = 197                                          
                                                              Width = 50                                         
                                                              Name = "Label2"                                    
       15  Label3                                             Caption = "班主任"                                 
                                                              Height = 16                                        
                                                              Left = 139                                         
                                                              Top = 257                                          
                                                              Width = 38                                         
                                                              Name = "Label3"                                    
       16  Text4                                              Height = 25                                        PROCEDURE DblClick
                                                              Left = 444                                         this.Selstart=2
                                                              ToolTipText = "输入3位的班级代码"                  this.selLength=3
                                                              Top = 156                                          ENDPROC
                                                              Width = 109                                        PROCEDURE Init
                                                              Name = "Text4"                                     this.inputmask="BJ999"
                                                                                                                 
                                                                                                                 ENDPROC
                                                                                                                 PROCEDURE GotFocus
                                                                                                                 this.Selstart=2
                                                                                                                 this.selLength=3
                                                                                                                 ENDPROC
                                                                                                                 PROCEDURE KeyPress
                                                                                                                 LPARAMETERS nKeyCode, nShiftAltCtrl
                                                                                                                 if nkeycode=13
                                                                                                                    this.parent.command4.click
                                                                                                                 endif
                                                                                                                 ENDPROC
       17  Label4                                             AutoSize = .T.                                     
                                                              Caption = "班级查询"                               
                                                              Height = 16                                        
                                                              Left = 444                                         
                                                              Top = 132                                          
                                                              Width = 50                                         
                                                              Name = "Label4"                                    
       18  Command4                                           Top = 192                                          PROCEDURE Click
                                                              Left = 444                                         bjdm = this.parent.text4.value
                                                              Height = 25                                        sele count(*) as sl from xinxi where xinxi.bjdm ==
                                                              Width = 109                                        m.bjdm into cursor jg
                                                              Caption = "查询"                                   if jg.sl<>0
                                                              Name = "Command4"                                     sele xinxi
                                                                                                                    locate for bjdm="BJ003"
                                                                                                                    =messagebox("找到了-----"+xinxi.bzr,0)
                                                                                                                    *thisform.refresh
                                                                                                                 else
                                                                                                                    =messagebox("您没有找到指定的信息",0)
                                                                                                                 endif
                                                                                                                 ENDPROC