form7.frm

办公室小车管理系统,能自动打印派车单,自动统计小车的出车里程耗油等.

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "Mscomctl.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Begin VB.Form Form6 
   BackColor       =   &H00808000&
   Caption         =   "办公应用及车辆管理系统"
   ClientHeight    =   8310
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   11880
   FillColor       =   &H00FFFFFF&
   LinkTopic       =   "Form6"
   ScaleHeight     =   8310
   ScaleWidth      =   11880
   WindowState     =   2  'Maximized
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   "C:\bg\BG.MDB"
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   285
      Left            =   1080
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "sysmdb"
      Top             =   4080
      Visible         =   0   'False
      Width           =   1140
   End
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   1560
      Top             =   3000
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   360
      Left            =   0
      TabIndex        =   0
      Top             =   7950
      Width           =   11880
      _ExtentX        =   20955
      _ExtentY        =   635
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   1
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   1800
      Top             =   1320
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      MaskColor       =   12632256
      _Version        =   393216
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "崔庄煤矿"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   26.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FFFF&
      Height          =   855
      Left            =   4800
      TabIndex        =   2
      Top             =   2760
      Width           =   5055
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "车辆管理系统"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   42
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000080FF&
      Height          =   1455
      Left            =   3120
      TabIndex        =   1
      Top             =   3720
      Width           =   7455
   End
   Begin VB.Image Image1 
      BorderStyle     =   1  'Fixed Single
      Height          =   8295
      Left            =   0
      Picture         =   "Form7.frx":0000
      Stretch         =   -1  'True
      Top             =   0
      Width           =   11895
   End
   Begin VB.Menu print 
      Caption         =   "打印机设置"
      Begin VB.Menu printset 
         Caption         =   "打印机设置"
      End
   End
   Begin VB.Menu shju 
      Caption         =   "数据录入             "
      Begin VB.Menu pcd 
         Caption         =   "输入派车单"
      End
      Begin VB.Menu lyd 
         Caption         =   "输入油料单"
      End
   End
   Begin VB.Menu search 
      Caption         =   "查询与打印          "
      Begin VB.Menu searchcl 
         Caption         =   "车辆使用查询"
      End
      Begin VB.Menu searchly 
         Caption         =   "油料领用查询"
      End
      Begin VB.Menu xg 
         Caption         =   "数据库修改"
      End
   End
   Begin VB.Menu wh 
      Caption         =   "系统维护        "
      Begin VB.Menu csh 
         Caption         =   "系统数据库初始化"
      End
      Begin VB.Menu bscsh 
         Caption         =   "科部室初始化"
      End
      Begin VB.Menu jsycsh 
         Caption         =   "驾驶员初始化"
      End
      Begin VB.Menu pcrcsh 
         Caption         =   "派车人初始化"
      End
      Begin VB.Menu dcrcsh 
         Caption         =   "带车人初始化"
      End
      Begin VB.Menu cfdd 
         Caption         =   "出发地点初始化"
      End
      Begin VB.Menu cl 
         Caption         =   "车辆列表"
      End
      Begin VB.Menu nulll 
         Caption         =   "-"
      End
      Begin VB.Menu sgmm 
         Caption         =   "修改密码"
      End
      Begin VB.Menu kaiguan 
         Caption         =   "动画开关"
         Enabled         =   0   'False
      End
      Begin VB.Menu sz 
         Caption         =   "背景设置"
      End
      Begin VB.Menu bf 
         Caption         =   "数据库备份"
      End
   End
   Begin VB.Menu hlep 
      Caption         =   "帮助        "
      Begin VB.Menu hlep1 
         Caption         =   "帮助"
      End
   End
   Begin VB.Menu quit 
      Caption         =   "退出    "
      Begin VB.Menu exit1 
         Caption         =   "退出    "
         Shortcut        =   ^Q
      End
   End
End
Attribute VB_Name = "Form6"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim iwd As Integer

Private Sub bf_Click()
MsgBox "暂无此功能"
End Sub

Private Sub bgcsh_Click()
hwjld.Show 1
End Sub

Private Sub bgrp_Click()
Form10.Show
End Sub

Private Sub bscsh_Click()
bmk.Show 1
End Sub

Private Sub cfdd_Click()
pcdd.Show 1
End Sub

Private Sub cl_Click()
cllb.Show 1
End Sub

Private Sub csh_Click()
form8.Show 1
End Sub

Private Sub dcrcsh_Click()
Form9.Show 1
End Sub

Private Sub exit1_Click()

Unload Me
End
Form1.Show
End Sub

Private Sub Form_Load()
On Error Resume Next
Data1.Refresh
Dim pmb As String
pmb = Data1.Recordset.Fields("pmb")
Me.Picture = LoadPicture(pmb)



End Sub

Private Sub Form_Resize()
On Error Resume Next
Image1.Width = Me.Width
Image1.Height = Me.Height
End Sub

Private Sub Form_Unload(Cancel As Integer)
Form1.Show
End Sub

Private Sub hlep1_Click()
frmBrowser.StartingAddress = App.Path & "\hlp.htm"
frmBrowser.Show


End Sub

Private Sub jsycsh_Click()
jsyk.Show 1
End Sub

Private Sub kaiguan_Click()
AniGIF1.Visible = Not AniGIF1.Visible
End Sub

Private Sub lyd_Click()
Form4.Show 1
End Sub

Private Sub pcd_Click()
frmpcd.Show 1
End Sub

Private Sub pcrcsh_Click()
Form2.Show 1
End Sub

Private Sub printset_Click()
CommonDialog1.ShowPrinter
End Sub

Private Sub searchcl_Click()
frmbgcx.Show
End Sub

Private Sub searchly_Click()
Form11.Show 1
End Sub

Private Sub sgmm_Click()
frmLogin.Show
End Sub

Private Sub sz_Click()
Form5.Show 1
End Sub

Private Sub xg_Click()
sjxg.Show 1
End Sub