mdiform1.frm

银行定储模拟程序

      Begin VB.Menu MnuViewSave 
         Caption         =   "存款记录[&I]"
      End
      Begin VB.Menu MnuViewOut 
         Caption         =   "取款记录[&G]"
      End
   End
   Begin VB.Menu MnuReStart 
      Caption         =   "系统注销^&L)"
   End
   Begin VB.Menu MnuHelp 
      Caption         =   "帮助中心^&H)"
      Begin VB.Menu MnuTip 
         Caption         =   "&D 每日一贴"
         Shortcut        =   {F1}
      End
      Begin VB.Menu MnuReadMe 
         Caption         =   "&H 软件说明"
         Shortcut        =   {F9}
      End
      Begin VB.Menu step2 
         Caption         =   "-"
      End
      Begin VB.Menu MnuWxy 
         Caption         =   "&A 关于系统"
         Shortcut        =   {F12}
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim MouseD As Boolean, Oldx As Single, Oldy As Single
Private Declare Function ShellExecute& Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long)
Dim showT As Boolean

Private Sub MDIForm_Activate()

If showT = True Then Exit Sub

Dim Ltp As Long
Ltp = GetSetting(App.EXEName, "Options", "Show Tips at Startup", 1)
If Ltp = 1 Then
   frmTip.Show
End If

  showT = True
  

End Sub

Private Sub MDIForm_Load()
frmMain.MousePointer = 11
Dim Ltp As Long
'frmMain.WindowState = GetSetting(App.EXEName, "Windows", "Windows Status", 1)
Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)

'配置图片
StatusBar.Panels.Item(3).Text = "日期:" & Format(Date, "Long Date")
'frmMain.Caption = TempArray(0) + "-档案管理系统"
frmMain.MousePointer = 0
On Error Resume Next
frmMain.Picture = LoadPicture(TempArray(5))
frmMain.StatusBar.Panels.Item(2).Text = "初始化完成..."
StatusBar.Panels.Item(5).Text = PurView & "：" & CurOperator & "   工号：" & OperatorID
showT = False

'权限控制
Select Case PurView
   Case "营业员"
     MnuCompany.Enabled = False
     MnuEmploy.Enabled = False
   Case "备份员"
     MnuCompany.Enabled = False
     MnuEmploy.Enabled = False
   Case "储蓄科长"
     MnuEmploy.Enabled = False
   Case "企业主管"
     '没有权限限制
End Select
DBFile = App.Path & "\bank.mdb"
If Dir(DBFile) = "" Then NewDataBase
Exit Sub
PhotoValible:
  MsgBox "配置出错，请重新配置!", vbOKOnly + 16, "警告!"
  frmMain.MousePointer = 0
  Exit Sub
End Sub

Private Sub MDIForm_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

  If Button = 2 Then '右键按下时
     PopupMenu MnuSystem
  End If
  
End Sub



Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim SureQ As Integer
SureQ = MsgBox("真的退出该系统吗(Y/N)？    ", vbYesNo + 32, "银行定期储蓄系统")
  If SureQ = 6 Then
     Cancel = 0
     Else
     Cancel = -1
  End If
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
    
    For i = Forms.Count - 1 To 1 Step -1
        Unload Forms(i)
    Next
    If Me.WindowState <> vbMinimized Then
        SaveSetting App.Title, "Settings", "MainLeft", Me.Left
        SaveSetting App.Title, "Settings", "MainTop", Me.Top
        SaveSetting App.Title, "Settings", "MainWidth", Me.Width
        SaveSetting App.Title, "Settings", "MainHeight", Me.Height
    End If
    'SaveSetting App.EXEName, "Windows", "Windows Status", frmMain.WindowState
    
End Sub


Private Sub MnuBackup_Click()
BackupData.Show
End Sub

Private Sub MnuCacl_Click()
frmPrepare.Show
End Sub

Private Sub MnuCompany_Click()
ConfigForm.Show vbModal
GetStatus "汇率、银行信息设置"
End Sub

Private Sub MnuEmploy_Click()

 Me.MousePointer = 11
 GetStatus "操作员配置"
 If frmOperator.Visible = True Then
    frmOperator.SetFocus
 Else
    frmOperator.Show
 End If
 Me.MousePointer = 0
 
End Sub

Private Sub MnuExi_Click()
 
 GetStatus "关闭系统"
 Unload Me
 
End Sub

Private Sub MnuGuestManager_Click()

 GetStatus "银行存取款资金操作"
 
End Sub

Private Sub MnuPrintGet_Click()
On Error Resume Next
PrintName = "存款记录"
Load frmToHtm
End Sub

Private Sub MnuPrintPick_Click()
On Error Resume Next
PrintName = "取款记录"
frmToHtm.Show
End Sub

Private Sub MnuReadMe_Click()
ShowHelp
End Sub

Private Sub MnuRestore_Click()
frmCatalog.Show
End Sub

Private Sub MnuSystem_Click()
 GetStatus "配置系统信息"
End Sub
Private Sub MnuGuestType_Click()

 GetStatus "配置银行登录人员信息"
 frmOperator.Show
  
End Sub
Private Sub MnuView_Click()
GetStatus "查看存取款数据库"

End Sub
Private Sub Mnuhelp_Click()

GetStatus "软件与帮助文档"

End Sub

Private Sub MnuNetData_Click()

 frmMain.MousePointer = 11
  NetData.Show 1
 frmMain.MousePointer = 0
 
End Sub

Private Sub MnuSearchGuest_Click()

 frmMain.MousePointer = 11
  If frmManager.Visible = True Then
     frmManager.SetFocus
   Else
     frmManager.Show
  End If
 frmMain.MousePointer = 0
 
End Sub

Private Sub MnuLost_Click()
frmLost.Show
End Sub

Private Sub MnuPick_Click()
FrmGetMoney.Show
End Sub


Private Sub MnuSave_Click()
frmReceive.Show
GetStatus "按储户填写的信息向银行提交存款"
End Sub

Private Sub MnuTip_Click()

frmMain.MousePointer = 11
GetStatus "系统的使用技巧与帮助"
If frmTip.Visible = True Then
  frmTip.SetFocus
  frmMain.MousePointer = 0
  Exit Sub
End If
SaveSetting App.EXEName, "Options", "Show Tips at Startup", -1

If frmTip.Visible = True Then
   frmTip.SetFocus
End If
frmTip.Show
frmMain.MousePointer = 0

End Sub

Private Sub MnuViewOut_Click()
PickView.Show
End Sub

Private Sub MnuViewSave_Click()
   SaveView.Show
End Sub

Private Sub MnuWxy_Click()

 frmMain.MousePointer = 11
 GetStatus "关于系统描述"
 frmAbout.Show 1
 frmMain.MousePointer = 0
 
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)

  Select Case Button.Key
    
    Case "InMoney"
    
      Call MnuSave_Click
    Case "OutMoney"
      GetStatus "先按储户信息查询存款，再提款。"
      Call MnuPick_Click
    Case "Lost"
      GetStatus "客户丢失存折后，可进行挂失处理。"
      Call MnuLost_Click
    Case "prepare"
      GetStatus "根据存款数据库计算要准备的款额。"
      Call MnuCacl_Click
    Case "Setup"
      Call MnuCompany_Click
    Case "Search"
      GetStatus "搜索存款帐户记录"
      frmSearchForm.Show vbModal
    Case "Help"
      GetStatus "查看软件使用说明软件"
      Call ShowHelp
    Case "Exit"
      GetStatus "退出银行定期储蓄系统"
      Call MnuExi_Click
  End Select
   
End Sub