showshangjia.frm

软件用到的技巧：透明窗体

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{E95A2510-F3D1-416D-823B-4F840FE98091}#3.0#0"; "Command.ocx"
Begin VB.Form Form4 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "双击选择一个商家"
   ClientHeight    =   6315
   ClientLeft      =   4275
   ClientTop       =   1215
   ClientWidth     =   7455
   LinkTopic       =   "Form4"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   6315
   ScaleWidth      =   7455
   ShowInTaskbar   =   0   'False
   Begin CSCommand.Command Command1 
      Height          =   390
      Left            =   5850
      TabIndex        =   3
      Top             =   5805
      Width           =   1485
      _ExtentX        =   2619
      _ExtentY        =   688
      IconAlign       =   0
      Icon            =   "showshangjia.frx":0000
      Caption         =   "添加新商家 &A"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.TextBox Text1 
      Height          =   330
      Left            =   1560
      TabIndex        =   1
      Text            =   "Text1"
      Top             =   5835
      Width           =   1215
   End
   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1 
      Bindings        =   "showshangjia.frx":001C
      Height          =   5625
      Left            =   105
      TabIndex        =   0
      Top             =   120
      Width           =   7275
      _ExtentX        =   12832
      _ExtentY        =   9922
      _Version        =   393216
      Cols            =   3
      RowHeightMin    =   300
      ForeColor       =   10485760
      ScrollTrack     =   -1  'True
      SelectionMode   =   1
      AllowUserResizing=   1
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "快速搜索助记码："
      Height          =   180
      Left            =   105
      TabIndex        =   2
      Top             =   5895
      Width           =   1440
   End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2007/12/24
'描    述：商务名片及客户资料管理系统 Ver 1.73
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Option Explicit

Private Sub Command1_Click()
    Load Form1
    Form1.Show
    Unload Me
End Sub

Private Sub Form_Load()
HookWheel Me.hwnd '用于支持鼠标滚轮
    Me.Icon = MDIForm1.Icon
    Me.Top = (Screen.Height - Me.Height) / 4
    Me.Left = (Screen.Width - Me.Width) / 2
    Me.Text1.Text = ""
Me.BackColor = FormBackColor
Me.MSFlexGrid1.BackColorFixed = 16777178
Me.MSFlexGrid1.BackColorBkg = MsFlexGridBackColorBkgValue
On Error GoTo loaderror
    form4show = True
    Dim db As Database
    Dim rs As Recordset
    Set db = OpenDatabase(MdbPath)
    Set rs = db.OpenRecordset("select ID,企业名称,企业助记码 from com ")
        If rs.RecordCount = 0 Then
            'MsgBox "数据库中没有商家可供选择的,程序将要打开添加商家的窗口,请在添加商家之后再回到这里来.", vbInformation, "没有商家供选择"
            'Load Form1
            'Form1.Show
            Me.Caption = "请选择一个商家——（" & rs.RecordCount & "）"
            rs.Close
            Set rs = Nothing
            db.Close
            Set db = Nothing
            
            Exit Sub
        End If
    Set rs = db.OpenRecordset("select ID,企业名称,企业助记码 from com order by id desc")
    rs.MoveLast
    rs.MoveFirst
    Me.MSFlexGrid1.Clear
    

    Me.MSFlexGrid1.Rows = rs.RecordCount + 1
    Me.MSFlexGrid1.Cols = 3
    Me.MSFlexGrid1.TextMatrix(0, 0) = "ID"
    Me.MSFlexGrid1.TextMatrix(0, 1) = "企业名称"
    Me.MSFlexGrid1.TextMatrix(0, 2) = "企业名称助记码"
    Dim i As Integer
    For i = 1 To rs.RecordCount
        Me.MSFlexGrid1.TextMatrix(i, 0) = rs!id
        Me.MSFlexGrid1.TextMatrix(i, 1) = rs!企业名称
        Me.MSFlexGrid1.TextMatrix(i, 2) = rs!企业助记码
        rs.MoveNext
    Next i
        Me.Caption = "请选择一个商家——（" & rs.RecordCount & "）"

    rs.Close
    Set rs = Nothing
    db.Close
    Set db = Nothing
    Me.MSFlexGrid1.ColWidth(0) = 600
    Me.MSFlexGrid1.ColWidth(1) = 3678
    Me.MSFlexGrid1.ColWidth(2) = 2500
    Exit Sub
loaderror:
End Sub

Private Sub Form_Unload(Cancel As Integer)
    FrmRenAdd.Enabled = True
    form4show = False
    AllBaiFangShow = False
End Sub

Private Sub MSFlexGrid1_DblClick()
    FrmRenAdd.Text7.Text = Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.RowSel, 0)
    FrmRenAdd.Text13.Text = Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.RowSel, 1)
    Unload Me
End Sub

Private Sub Text1_Change()
On Error GoTo ddd
    Text1.Text = Trim(Text1.Text)
    Dim db As Database
    Dim rs As Recordset
    Set db = OpenDatabase(MdbPath)
    Set rs = db.OpenRecordset("select ID,企业名称,企业助记码 from com where 企业助记码 like '*" & Text1.Text & "*'  order by id desc")
        If rs.RecordCount = 0 Then
            Me.MSFlexGrid1.Clear
            Me.Caption = "请选择一个商家——（" & rs.RecordCount & "）"
            rs.Close
            Set rs = Nothing
            db.Close
            Set db = Nothing
            Exit Sub
        End If
    rs.MoveLast
    rs.MoveFirst
    Me.MSFlexGrid1.Clear
        

    Me.MSFlexGrid1.Rows = rs.RecordCount + 1
    Me.MSFlexGrid1.Cols = 3
    Me.MSFlexGrid1.TextMatrix(0, 0) = "ID"
    Me.MSFlexGrid1.TextMatrix(0, 1) = "企业名称"
    Me.MSFlexGrid1.TextMatrix(0, 2) = "企业名称助记码"
    Dim i As Integer
    Dim x As Integer
    For i = 1 To rs.RecordCount
        
        Me.MSFlexGrid1.TextMatrix(i, 0) = rs!id
        Me.MSFlexGrid1.TextMatrix(i, 1) = rs!企业名称
        Me.MSFlexGrid1.TextMatrix(i, 2) = rs!企业助记码
        rs.MoveNext
        x = x + 1
    Next i
        Me.Caption = "请选择一个商家——（" & rs.RecordCount & "）"

    rs.Close
    Set rs = Nothing
    db.Close
    Set db = Nothing
    Exit Sub
ddd:
    MsgBox Err.Number & "：" & Err.Description
End Sub

Private Sub MSFlexGrid1_GotFocus()
Set CtlWheel = MSFlexGrid1 '用于设定支持鼠标滚轮
End Sub
Private Sub MSFlexGrid1_LostFocus()
Set CtlWheel = Nothing '用于设定取消鼠标滚轮的支持
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
UnHookWheel Me.hwnd '卸载鼠标滚轮的支持
End Sub


Private Sub Text1_GotFocus()
    SendKeys "{end}"

End Sub