form4.frm

加油站客户管理系统(开发工具：VB+Access)

VERSION 5.00
Object = "{CFA7AFF4-3242-4269-9172-7389D695AE01}#1.0#0"; "StoneXP.ocx"
Object = "{DAAC6951-59A4-4C08-9D6E-FE3919B64861}#1.0#0"; "FlexCell.ocx"
Begin VB.Form Form4 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "客户信息查询"
   ClientHeight    =   6405
   ClientLeft      =   45
   ClientTop       =   375
   ClientWidth     =   10005
   LinkTopic       =   "Form4"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   6405
   ScaleWidth      =   10005
   ShowInTaskbar   =   0   'False
   Begin VB.TextBox Text1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1800
      TabIndex        =   0
      Top             =   5760
      Width           =   4695
   End
   Begin FlexCell.Grid Grid1 
      Height          =   5535
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   11895
      _ExtentX        =   20981
      _ExtentY        =   9763
      Cols            =   5
      Rows            =   30
   End
   Begin StoneXP.XPButton XPButton3 
      Height          =   375
      Left            =   8280
      TabIndex        =   2
      Top             =   5760
      Width           =   1455
      _ExtentX        =   2566
      _ExtentY        =   661
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Caption         =   "退出查询"
      MouseIcon       =   "Form4.frx":0000
      MousePointer    =   99
   End
   Begin StoneXP.XPButton XPButton2 
      Height          =   375
      Left            =   6720
      TabIndex        =   3
      Top             =   5760
      Width           =   1455
      _ExtentX        =   2566
      _ExtentY        =   661
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Caption         =   "查　　询"
      MouseIcon       =   "Form4.frx":031A
      MousePointer    =   99
   End
   Begin VB.Label Label1 
      Caption         =   "输入单位名称："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   240
      TabIndex        =   4
      Top             =   5880
      Width           =   1695
   End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim str As String
Private Sub Form_Load()
On Error GoTo finish
Grid1.SetRegisterInformation "CNwinndy", "W]vyY-nonvk-u\nty-Zbl_e-`hms^" '进行注册
mdi = False
str = "select * from 客户信息"
Grid1.Cols = 10
Grid1.Column(1).Width = 80
Grid1.Column(2).Width = 120
Grid1.Column(3).Width = 80
Grid1.Column(4).Width = 80
Grid1.Column(5).Width = 80
Grid1.Column(6).Width = 80
Grid1.Column(7).Width = 80
Grid1.Column(8).Width = 80
Grid1.Column(9).Width = 80

With Grid1
    .AllowUserResizing = True
    .DisplayFocusRect = False
    .ExtendLastCol = True
    .Appearance = Flat
    .FixedRowColStyle = Flat
    .ScrollBarStyle = Flat
    .DefaultFont.Name = "Tahoma"
    .DefaultFont.Size = 8
    .BackColorFixed = RGB(84, 201, 134)
    .BackColorFixedSel = RGB(167, 111, 177)
    .BackColorBkg = RGB(198, 229, 211)
    .BackColorScrollBar = RGB(167, 111, 177)
    .BackColor1 = RGB(231, 235, 247)
    .BackColor2 = RGB(198, 229, 211)
    .GridColor = RGB(148, 190, 231)
    .Column(0).Width = 0
End With
Exit Sub
finish:
  MsgBox Err.Description
End Sub

Private Sub Form_Unload(Cancel As Integer)
mdi = True
End Sub
Private Sub XPButton2_Click()
On Error GoTo finish
If Text1.Text <> "" Then
str = "select * from 客户信息 where 单位名称='" & Text1.Text & "'"
Set mdbrs = mdbconn.Execute(str)
Call callmain
Else
MsgBox "请输入单位名称！"
End If

Exit Sub
finish:
MsgBox Err.Description
Text1.Text = ""
End Sub

Private Sub XPButton3_Click()
Unload Me
End Sub
Private Sub callmain()
On Error GoTo finish
Grid1.Rows = 1
i = 9
Grid1.Cols = i + 1
For i = 0 To 8
 If i = 8 Then
 Grid1.Cell(0, i + 1).Text = mdbrs.Fields(i).Name & "(元)"
 Else
Grid1.Cell(0, i + 1).Text = mdbrs.Fields(i).Name
End If
Next
i = 1
Do While Not mdbrs.EOF
 Grid1.Rows = Grid1.Rows + 1
 For j = 1 To 9 '设定读取列
 If mdbrs.Fields(j - 1) = "-" Then '空值的处理
 Grid1.Cell(i, j).Text = ""
 Else
 Grid1.Cell(i, j).Text = mdbrs.Fields(j - 1)
 End If
 Next
  i = i + 1
  mdbrs.MoveNext '读取下一记录
Loop
For i = 1 To 9
Grid1.Column(i).Locked = True
Next

Exit Sub
finish:
MsgBox Err.Description
End Sub