mdiform1.frm

一套收费计算机系统

VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H80000003&
   Caption         =   "菜单界面"
   ClientHeight    =   3930
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   5610
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin MSAdodcLib.Adodc Adodc1 
      Align           =   1  'Align Top
      Height          =   375
      Left            =   0
      Top             =   420
      Visible         =   0   'False
      Width           =   5610
      _ExtentX        =   9895
      _ExtentY        =   661
      ConnectMode     =   0
      CursorLocation  =   3
      IsolationLevel  =   -1
      ConnectionTimeout=   15
      CommandTimeout  =   30
      CursorType      =   3
      LockType        =   3
      CommandType     =   2
      CursorOptions   =   0
      CacheSize       =   50
      MaxRecords      =   0
      BOFAction       =   0
      EOFAction       =   0
      ConnectStringType=   2
      Appearance      =   1
      BackColor       =   -2147483643
      ForeColor       =   -2147483640
      Orientation     =   0
      Enabled         =   -1
      Connect         =   "FILE NAME=C:\My Documents\花寨子2000.udl"
      OLEDBString     =   ""
      OLEDBFile       =   "C:\My Documents\花寨子2000.udl"
      DataSourceName  =   ""
      OtherAttributes =   ""
      UserName        =   ""
      Password        =   ""
      RecordSource    =   "功能选择库"
      Caption         =   "Adodc1"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      _Version        =   393216
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   420
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   5610
      _ExtentX        =   9895
      _ExtentY        =   741
      ButtonWidth     =   609
      ButtonHeight    =   582
      ImageList       =   "ImageList2"
      HotImageList    =   "ImageList2"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   6
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "input"
            Object.ToolTipText     =   "用户档案录入"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "charge"
            Object.ToolTipText     =   "收费"
            ImageIndex      =   2
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "quary"
            Object.ToolTipText     =   "查询"
            ImageIndex      =   3
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "table"
            Object.ToolTipText     =   "报表"
            ImageIndex      =   4
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "modify"
            Object.ToolTipText     =   "修改"
            ImageIndex      =   5
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "system"
            Object.ToolTipText     =   "系统维护"
            ImageIndex      =   6
         EndProperty
      EndProperty
      BorderStyle     =   1
   End
   Begin MSComctlLib.ImageList ImageList2 
      Left            =   1680
      Top             =   1800
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   6
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":0000
            Key             =   "input"
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":0454
            Key             =   "charge"
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":08A8
            Key             =   "quary"
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":0CFC
            Key             =   "table"
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":1150
            Key             =   "modify"
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":15A4
            Key             =   "system"
         EndProperty
      EndProperty
   End
   Begin VB.Menu minput 
      Caption         =   "输入(&I)"
      Begin VB.Menu scustem 
         Caption         =   "用户档案录入"
         Enabled         =   0   'False
         Shortcut        =   ^C
      End
      Begin VB.Menu sbar11 
         Caption         =   "-"
      End
      Begin VB.Menu sstaff 
         Caption         =   "操作员管理"
         Enabled         =   0   'False
         Shortcut        =   ^S
      End
      Begin VB.Menu spassword 
         Caption         =   "密码管理"
         Enabled         =   0   'False
         Shortcut        =   ^P
      End
      Begin VB.Menu sprice 
         Caption         =   "价格管理"
         Enabled         =   0   'False
         Shortcut        =   ^R
      End
      Begin VB.Menu saddress 
         Caption         =   "预设地址"
         Enabled         =   0   'False
         Shortcut        =   ^A
      End
      Begin VB.Menu sbar12 
         Caption         =   "-"
      End
      Begin VB.Menu sclose 
         Caption         =   "关      闭"
         Shortcut        =   ^L
      End
   End
   Begin VB.Menu mcharge 
      Caption         =   "收费(&C)"
      Begin VB.Menu scharge 
         Caption         =   "收费"
         Enabled         =   0   'False
         Shortcut        =   ^H
      End
   End
   Begin VB.Menu mquary 
      Caption         =   "查询(&Q)"
      Begin VB.Menu sdocument 
         Caption         =   "档案查询"
         Begin VB.Menu sssinglequary 
            Caption         =   "单项查询"
            Enabled         =   0   'False
            Shortcut        =   ^I
         End
         Begin VB.Menu sscombinquary 
            Caption         =   "组合查询"
            Enabled         =   0   'False
            Shortcut        =   ^B
         End
         Begin VB.Menu sbar31 
            Caption         =   "-"
         End
         Begin VB.Menu ssobscurequary 
            Caption         =   "模糊查询"
            Enabled         =   0   'False
            Shortcut        =   ^O
         End
      End
      Begin VB.Menu sbar33 
         Caption         =   "-"
      End
      Begin VB.Menu schargquary 
         Caption         =   "收费查询"
         Begin VB.Menu ssday 
            Caption         =   "按日"
            Enabled         =   0   'False
            Shortcut        =   ^D
         End
         Begin VB.Menu ssmonthtablequary 
            Caption         =   "按月"
            Enabled         =   0   'False
            Shortcut        =   ^M
         End
      End
      Begin VB.Menu sbar32 
         Caption         =   "-"
      End
      Begin VB.Menu sduequary 
         Caption         =   "欠费查询"
         Enabled         =   0   'False
         Shortcut        =   ^F
      End
   End
   Begin VB.Menu mtable 
      Caption         =   "报表(&T)"
      Begin VB.Menu sdaytable 
         Caption         =   "日报表"
         Enabled         =   0   'False
         Shortcut        =   ^Y
      End
      Begin VB.Menu smonthtable 
         Caption         =   "月报表"
         Enabled         =   0   'False
         Shortcut        =   ^N
      End
      Begin VB.Menu sbar41 
         Caption         =   "-"
      End
      Begin VB.Menu sfreetable 
         Caption         =   "自助报表"
         Enabled         =   0   'False
         Shortcut        =   ^E
      End
      Begin VB.Menu sbar42 
         Caption         =   "-"
      End
      Begin VB.Menu stablequary 
         Caption         =   "报表查询"
         Enabled         =   0   'False
         Shortcut        =   ^V
      End
   End
   Begin VB.Menu mmodify 
      Caption         =   "修改(&M)"
      WindowList      =   -1  'True
      Begin VB.Menu smodifycustom 
         Caption         =   "修改用户档案"
         Enabled         =   0   'False
         Shortcut        =   ^U
      End
   End
   Begin VB.Menu msystem 
      Caption         =   "系统维护(&S)"
      Begin VB.Menu sabout 
         Caption         =   "关于"
         Shortcut        =   ^T
      End
      Begin VB.Menu sbar51 
         Caption         =   "-"
      End
      Begin VB.Menu schangemer 
         Caption         =   "改变操作员"
         Enabled         =   0   'False
         Shortcut        =   ^W
      End
      Begin VB.Menu splaydocument 
         Caption         =   "操作记录"
         Enabled         =   0   'False
         Shortcut        =   ^Q
      End
      Begin VB.Menu sbar52 
         Caption         =   "-"
      End
      Begin VB.Menu shelp 
         Caption         =   "帮助"
         Shortcut        =   {F1}
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub MDIForm_Activate()
staff = "张武"
'If first <> 1 Then
'Load Formentry
'Formentry.Show vbModal
'
'Unload Formentry
'Adodc1.Refresh
'Adodc1.Recordset.Filter = "姓名='" & staff & "'"
'Adodc1.Recordset.MoveFirst
'
'  Do While Not Adodc1.Recordset.EOF
'  Select Case Adodc1.Recordset.Fields(2).Value
'  Case "用户档案录入"
'  scustem.Enabled = True
'  Case "操作员管理"
'  sstaff.Enabled = True
'  Case "密码管理"
'    spassword.Enabled = True
'  Case "价格管理"
'  sprice.Enabled = True
'  Case "预设地址"
'  saddress.Enabled = True
'  Case "收费"
'  scharge.Enabled = True
'  Case "单项查询"
'  sssinglequary.Enabled = True
'  Case "组合查询"
'  sscombinquary.Enabled = True
'  Case "模糊查询"
'  ssobscurequary.Enabled = True
'  Case "日收费查询"
'  ssday.Enabled = True
'  Case "月收费查询"
'  ssmonthtablequary.Enabled = True
'  Case "欠费查询"
'  sduequary.Enabled = True
'  Case "生成日报表"
'  sdaytable.Enabled = True
'  Case "生成月报表"
'  smonthtable.Enabled = True
'  Case "自助报表"
'  sfreetable.Enabled = True
'  Case "报表查询"
'  stablequary.Enabled = True
'  Case "修改用户档案"
'  smodifycustom.Enabled = True
'  Case "改变操作员"
'  schangemer.Enabled = True
'  Case "操作记录"
'  splaydocument.Enabled = True
'End Select
'  Adodc1.Recordset.MoveNext
'  Loop
'
'  Adodc1.Recordset.Filter = adFilterNone
'End If
End Sub

Private Sub saddress_Click()
Load Form3address
End Sub

Private Sub schangemer_Click()
Load Formentry
Formentry.Show vbModal

Unload Formentry

scustem.Enabled = False
sstaff.Enabled = False
spassword.Enabled = False
sprice.Enabled = False
saddress.Enabled = False
scharge.Enabled = False
sssinglequary.Enabled = False
sscombinquary.Enabled = False
ssobscurequary.Enabled = False
ssday.Enabled = False
ssmonthtablequary.Enabled = False
sduequary.Enabled = False
sdaytable.Enabled = False
smonthtable.Enabled = False
sfreetable.Enabled = False
stablequary.Enabled = False
smodifycustom.Enabled = False
schangemer.Enabled = False
splaydocument.Enabled = False

Adodc1.Refresh
Adodc1.Recordset.Filter = "姓名='" & staff & "'"
Adodc1.Recordset.MoveFirst

  Do While Not Adodc1.Recordset.EOF
  Select Case Adodc1.Recordset.Fields(2).Value
  Case "用户档案录入"
  scustem.Enabled = True
  Case "操作员管理"
  sstaff.Enabled = True
  Case "密码管理"
    spassword.Enabled = True
  Case "价格管理"
  sprice.Enabled = True
  Case "预设地址"
  saddress.Enabled = True
  Case "收费"
  scharge.Enabled = True
  Case "单项查询"
  sssinglequary.Enabled = True
  Case "组合查询"
  sscombinquary.Enabled = True
  Case "模糊查询"
  ssobscurequary.Enabled = True
  Case "日收费查询"
  ssday.Enabled = True
  Case "月收费查询"
  ssmonthtablequary.Enabled = True
  Case "欠费查询"
  sduequary.Enabled = True
  Case "生成日报表"
  sdaytable.Enabled = True
  Case "生成月报表"
  smonthtable.Enabled = True
  Case "自助报表"
  sfreetable.Enabled = True
  Case "报表查询"
  stablequary.Enabled = True
  Case "修改用户档案"
  smodifycustom.Enabled = True
  Case "改变操作员"
  schangemer.Enabled = True
  Case "操作记录"
  splaydocument.Enabled = True
End Select
  Adodc1.Recordset.MoveNext
  Loop
  
  Adodc1.Recordset.Filter = adFilterNone
End Sub

Private Sub scharge_Click()
Load Form4charge
End Sub

Private Sub sclose_Click()
Unload Me
End Sub

Private Sub scustem_Click()
Load Form2oldinput
End Sub


Private Sub sduequary_Click()
Load Form11due
End Sub

Private Sub spassword_Click()
Load Form2password
End Sub

Private Sub splaydocument_Click()
Load Formdocument
End Sub

Private Sub sprice_Click()
Load Form5price
End Sub


Private Sub sscombinquary_Click()
Load Form7combin
End Sub

Private Sub ssday_Click()
Load Form9day
End Sub

Private Sub ssmonthtablequary_Click()
Load Form10month
End Sub

Private Sub ssobscurequary_Click()
Load Form8obscure
End Sub

Private Sub sssinglequary_Click()
Load Form6single
End Sub

Private Sub sstaff_Click()
Load Form2staff
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
If Button.Index = 1 Then
Load Form2oldinput
End If
If Button.Index = 2 Then
Load Form4charge
End If

End Sub