form10.frm

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

         Top             =   480
         Width           =   1815
      End
   End
   Begin StoneXP.XPButton XPButton3 
      Height          =   495
      Left            =   6720
      TabIndex        =   2
      Top             =   6960
      Width           =   1215
      _ExtentX        =   2143
      _ExtentY        =   873
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Caption         =   "退　出"
      MouseIcon       =   "Form10.frx":0638
      MousePointer    =   99
   End
   Begin StoneXP.XPButton XPButton2 
      Height          =   495
      Left            =   3360
      TabIndex        =   1
      Top             =   6960
      Width           =   1215
      _ExtentX        =   2143
      _ExtentY        =   873
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Caption         =   "打印预览"
      MouseIcon       =   "Form10.frx":0952
      MousePointer    =   99
   End
   Begin FlexCell.Grid Grid1 
      Height          =   3855
      Left            =   0
      TabIndex        =   0
      Top             =   360
      Width           =   10695
      _ExtentX        =   18865
      _ExtentY        =   6800
      Cols            =   5
      Rows            =   30
   End
End
Attribute VB_Name = "Form10"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim str, str1 As String
Dim i As Integer

Private Sub Combo1_LostFocus()
    Set mdbrs2 = mdbconn.Execute("select 车牌号 from 车辆表 where 单位名称='" & Combo1.Text & "'")
    Combo2.Clear
    Do While Not mdbrs2.EOF
      ' MsgBox mdbrs2.Fields(0)
       Combo2.AddItem mdbrs2.Fields(0)
       mdbrs2.MoveNext
    Loop
End Sub
Private Sub Combo4_LostFocus()
    Set mdbrs2 = mdbconn.Execute("select 车牌号 from 车辆表 where 单位名称='" & Combo4.Text & "'")
    Combo5.Clear
    Do While Not mdbrs2.EOF
      ' MsgBox mdbrs2.Fields(0)
       Combo5.AddItem mdbrs2.Fields(0)
       mdbrs2.MoveNext
    Loop
End Sub

Private Sub Form_Load()
Grid1.SetRegisterInformation "CNwinndy", "W]vyY-nonvk-u\nty-Zbl_e-`hms^" '进行注册
On Error GoTo finish
mdi = False
str = "select * from 加油信息"
XPButton2.Enabled = False
Grid1.Cols = 8
Grid1.Column(1).Width = 100
Grid1.Column(2).Width = 100
Grid1.Column(3).Width = 80
Grid1.Column(4).Width = 80
Grid1.Column(5).Width = 70
Grid1.Column(6).Width = 120
Grid1.Column(7).Width = 40
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
    Set mdbrs = mdbconn.Execute("select * from 加油信息")
    'For i = 0 To 6
    '    If i = 3 Then
    '   Grid1.Cell(0, i + 1).Text = mdbrs.Fields(i).Name & "(元/升)"
    '  Else
    '      If i = 4 Then
    '         Grid1.Cell(0, i + 1).Text = mdbrs.Fields(i).Name & "(升)"
    '      Else
    '        If i = 5 Then
    '               Grid1.Cell(0, i + 1).Text = mdbrs.Fields(i).Name & "(元)"
    '        Else
    '               Grid1.Cell(0, i + 1).Text = mdbrs.Fields(i).Name
    '        End If
    '     End If
    ' End If
    'Next
    Set mdbrs1 = mdbconn.Execute("select 单位名称 from 客户信息")
    Do While Not mdbrs1.EOF
       Combo1.AddItem mdbrs1.Fields(0)
       Combo4.AddItem mdbrs1.Fields(0)
       mdbrs1.MoveNext
    Loop
    For i = 1 To 12
    Combo3.AddItem i
    Next

Exit Sub
finish:
  MsgBox Err.Description
End Sub
Private Sub Form_Unload(Cancel As Integer)
mdi = True
End Sub
Private Sub callmain()
'On Error GoTo finish
Grid1.Rows = 2
i = 7
Grid1.Cols = i + 1
For i = 0 To 6
 If i = 3 Then
       Grid1.Cell(1, i + 1).Text = mdbrs.Fields(i).Name & "(元/升)"
      Else
          If i = 4 Then
             Grid1.Cell(1, i + 1).Text = mdbrs.Fields(i).Name & "(升)"
          Else
            If i = 5 Then
                   Grid1.Cell(1, i + 1).Text = mdbrs.Fields(i).Name & "(元)"
            Else
                   Grid1.Cell(1, i + 1).Text = mdbrs.Fields(i).Name
            End If
         End If
     End If
     Next
i = 2
Do While Not mdbrs.EOF
 Grid1.Rows = Grid1.Rows + 1
 For j = 1 To 7 '设定读取列
 If mdbrs.Fields(j - 1) = Null 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 7
Grid1.Column(i).Locked = True
Next

Exit Sub
finish:
MsgBox Err.Description

End Sub

Private Sub XPButton1_Click()
Set mdbrs = mdbconn.Execute("select * from 加油信息 where 单位名称='" & Combo1.Text & "' and 车牌号='" & Combo2.Text & "' and 月份=val('" & Combo3.Text & "')")
Set mdbrs1 = mdbconn.Execute("select sum(单次加油金额) from 加油信息 where 单位名称='" & Combo1.Text & "' and 车牌号='" & Combo2.Text & "' and 月份=val('" & Combo3.Text & "')")
Set mdbrs2 = mdbconn.Execute("select sum(加油量) from 加油信息 where 单位名称='" & Combo1.Text & "' and 车牌号='" & Combo2.Text & "' and 月份=val('" & Combo3.Text & "')")
If mdbrs.EOF = True Then
MsgBox "没有查找到记录!!"
Else
Call callmain
XPButton2.Enabled = True
Grid1.Rows = Grid1.Rows + 1
i = Grid1.Rows - 1
str = "小　　计:"
Grid1.Cell(i, 2).Text = str
Grid1.Cell(i, 5).Text = mdbrs2.Fields(0) & "升"
Grid1.Cell(i, 6).Text = mdbrs1.Fields(0) & "元"
End If
End Sub

Private Sub XPButton2_Click()
Grid1.PrintPreview

End Sub

Private Sub XPButton3_Click()
Unload Me
End Sub
Private Sub XPButton4_Click()
If Combo4.Text <> "" Then
str = "select * from 加油信息 where 单位名称='" & Combo4.Text & "' order by 月份 asc"
Set mdbrs1 = mdbconn.Execute("select sum(单次加油金额) from 加油信息 where 单位名称='" & Combo4.Text & "'")
Set mdbrs2 = mdbconn.Execute("select sum(加油量) from 加油信息 where 单位名称='" & Combo4.Text & "'")
Set mdbrs3 = mdbconn.Execute("select 预存款余额 from 客户信息 where 单位名称='" & Combo4.Text & "'")
    If Combo5.Text <> "" Then
     str = "select * from 加油信息 where 单位名称='" & Combo4.Text & "' and 车牌号='" & Combo5.Text & "' order by 月份 asc"
     Set mdbrs1 = mdbconn.Execute("select sum(单次加油金额) from 加油信息 where 单位名称='" & Combo4.Text & "' and 车牌号='" & Combo5.Text & "'")
     Set mdbrs2 = mdbconn.Execute("select sum(加油量) from 加油信息 where 单位名称='" & Combo4.Text & "' and 车牌号='" & Combo5.Text & "'")
    End If
XPButton2.Enabled = True
Set mdbrs = mdbconn.Execute(str)
If mdbrs.EOF = True Then
MsgBox "没有查找到记录!!"
Else
Call callmain
Grid1.Rows = Grid1.Rows + 1
i = Grid1.Rows - 1
str = "　　小　　计:"
Grid1.Cell(i, 2).Text = str
Grid1.Cell(i, 5).Text = mdbrs2.Fields(0) & "升"
Grid1.Cell(i, 6).Text = mdbrs1.Fields(0) & "元"
Grid1.Rows = Grid1.Rows + 1
   If Combo5.Text = "" Then
    i = Grid1.Rows - 1
    str = "本单位剩余余额:"
    Grid1.Cell(i, 2).Text = str
    Grid1.Cell(i, 6).Text = Int(mdbrs3.Fields(0) - mdbrs1.Fields(0)) & "元"
   End If
End If
Else
MsgBox "请选择单位!"
End If
End Sub