checkvaluegroupform.frm

即时通讯

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "Mscomctl.ocx"
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "Mshflxgd.ocx"
Begin VB.Form checkvaluegroupform 
   Caption         =   "Form1"
   ClientHeight    =   5070
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   6150
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   5070
   ScaleWidth      =   6150
   Begin MSComctlLib.Toolbar SzToolbar 
      Align           =   1  'Align Top
      Height          =   570
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   6150
      _ExtentX        =   10848
      _ExtentY        =   1005
      ButtonWidth     =   820
      ButtonHeight    =   953
      AllowCustomize  =   0   'False
      Appearance      =   1
      Style           =   1
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   9
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "新增"
            Key             =   "xz"
            Object.ToolTipText     =   "点击或按Ctrl+N增加"
            ImageKey        =   "xz"
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "修改"
            Key             =   "xg"
            Object.ToolTipText     =   "点击或按F3修改"
            ImageKey        =   "xg"
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "删除"
            Key             =   "sc"
            Object.ToolTipText     =   "点击或按Ctrl+D删除"
            ImageKey        =   "sc"
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.Visible         =   0   'False
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "查询"
            Key             =   "cx"
            ImageKey        =   "cx"
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "刷新"
            Key             =   "sx"
            ImageKey        =   "sx"
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "设置"
            Key             =   "sz"
            ImageKey        =   "xg"
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退出"
            Key             =   "tc"
            Object.ToolTipText     =   "点击或按Ctrl+X退出"
            ImageKey        =   "tc"
         EndProperty
      EndProperty
      BorderStyle     =   1
      Begin VB.TextBox Text1 
         Alignment       =   1  'Right Justify
         Appearance      =   0  'Flat
         ForeColor       =   &H80000006&
         Height          =   270
         Left            =   4920
         TabIndex        =   2
         Text            =   "Text1"
         Top             =   120
         Width           =   975
      End
      Begin MSComctlLib.ImageList ImageList1 
         Left            =   5880
         Top             =   0
         _ExtentX        =   1005
         _ExtentY        =   1005
         BackColor       =   -2147483643
         ImageWidth      =   16
         ImageHeight     =   16
         MaskColor       =   12632256
         _Version        =   393216
         BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
            NumListImages   =   7
            BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "checkvaluegroupform.frx":0000
               Key             =   "dy"
            EndProperty
            BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "checkvaluegroupform.frx":039A
               Key             =   "xg"
            EndProperty
            BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "checkvaluegroupform.frx":0734
               Key             =   "tc"
            EndProperty
            BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "checkvaluegroupform.frx":0ACE
               Key             =   "xz"
            EndProperty
            BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "checkvaluegroupform.frx":0E68
               Key             =   "sc"
            EndProperty
            BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "checkvaluegroupform.frx":1202
               Key             =   "sx"
            EndProperty
            BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "checkvaluegroupform.frx":159C
               Key             =   "cx"
            EndProperty
         EndProperty
      End
   End
   Begin MSHierarchicalFlexGridLib.MSHFlexGrid hfg_houseList 
      Height          =   4455
      Left            =   0
      TabIndex        =   1
      Top             =   600
      Width           =   6135
      _ExtentX        =   10821
      _ExtentY        =   7858
      _Version        =   393216
      BackColor       =   -2147483634
      Cols            =   3
      FixedCols       =   0
      RowHeightMin    =   300
      BackColorFixed  =   15723503
      AllowUserResizing=   3
      RowSizingMode   =   1
      _NumberOfBands  =   1
      _Band(0).Cols   =   3
   End
End
Attribute VB_Name = "checkvaluegroupform"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'**************************************
'*    模 块 名 称 :检验值组设置用户操作界面
'*    功 能 描 述 :检验值组设置用户操作界面
'*    程序员姓名  : 石春晓
'*    最后修改人  : 石春晓
'*    最后修改时间:2005/09/19
'**************************************
Option Explicit
Private m_checkvaluegroupDAO As checkvaluegroupDAO        ' 检验值组数据库操作类
Private m_recordset As ADODB.Recordset        ' 数据操作数据集对象
Private q As Integer
Private m_idList As String                      ' 在执行查询时查询到的ID列表字符串

'**************************************
'*    功 能 描 述 :窗体加载函数
'*    输 入 参 数 :无
'*    输 出 能 数 :无
'**************************************
Private Sub Form_Load()
    Set m_checkvaluegroupDAO = New checkvaluegroupDAO
    Set m_recordset = New ADODB.Recordset
    Me.caption = "检验值组管理"
    RefreshListTitle
    refreshlist
    Me.Height = 5550
    Me.Width = 3840
    SetToCenter Me
End Sub


Private Sub Form_Resize()
        hfg_houseList.Height = Me.Height - 1400
    hfg_houseList.Width = Me.Width - 350
    
'    Image1.Stretch = False
    
    If (hfg_houseList.Height > hfg_houseList.Height - 300) Or (hfg_houseList.Width > hfg_houseList.Width - 200) Then
        hfg_houseList.Height = hfg_houseList.Height + 400
        hfg_houseList.Width = hfg_houseList.Width + 200
'
'        Image1.Stretch = True
    End If