frmsearch.frm

本公司开发得大请油田人事管理系统c/s结构

VERSION 5.00
Object = "{3B008041-905A-11D1-B4AE-444553540000}#1.0#0"; "Vsocx6.ocx"
Object = "{558180CB-3B8D-4BE8-A5BC-77F9F14A3C94}#1.0#0"; "FTDBUTIL.ocx"
Begin VB.Form frmSearch 
   Caption         =   "综合查询"
   ClientHeight    =   5055
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9420
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   9
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   5055
   ScaleWidth      =   9420
   Begin vsOcx6LibCtl.vsElastic vsElastic1 
      Height          =   5055
      Left            =   0
      TabIndex        =   0
      TabStop         =   0   'False
      Top             =   0
      Width           =   9420
      _ExtentX        =   16616
      _ExtentY        =   8916
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Enabled         =   -1  'True
      Appearance      =   1
      MousePointer    =   0
      _ConvInfo       =   -1
      Version         =   600
      BackColor       =   -2147483633
      ForeColor       =   -2147483630
      FloodColor      =   192
      ForeColorDisabled=   -2147483631
      Caption         =   ""
      Align           =   5
      Appearance      =   1
      AutoSizeChildren=   1
      BorderWidth     =   6
      ChildSpacing    =   4
      Splitter        =   0   'False
      FloodDirection  =   0
      FloodPercent    =   0
      CaptionPos      =   1
      WordWrap        =   -1  'True
      MaxChildSize    =   0
      MinChildSize    =   0
      TagWidth        =   0
      TagPosition     =   0
      Style           =   0
      TagSplit        =   0   'False
      PicturePos      =   4
      CaptionStyle    =   0
      ResizeFonts     =   0   'False
      GridRows        =   0
      GridCols        =   0
      _GridInfo       =   ""
      Begin FTDBUTIL.Explorer Explorer4This 
         Height          =   4875
         Left            =   90
         TabIndex        =   1
         Top             =   90
         Width           =   9240
         _ExtentX        =   16298
         _ExtentY        =   8599
      End
   End
End
Attribute VB_Name = "frmSearch"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command4Close_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    Me.Width = 9540
    Me.Height = 5460
    With Me.Explorer4This
        '.m_ServerName = RegGetString(HKEY_LOCAL_MACHINE, C_RegPath, C_str4RegComputerName)
        .m_UserName = "hrp"
        .m_Password = "hrp"
        .m_DBName = "hrp"
        .Display
    End With
    Unload frmSplash
End Sub

Private Sub Form_Unload(Cancel As Integer)
    MDIfrmMain.SSActiveToolBarsMain.Tools("ID_综合查询").Enabled = True
End Sub