mainform.frm

医务收费系统,主要的功能不用我说大家都知道的

If t = True Then
  mainform.StatusBar1.Panels(1).Text = "状态： 操作员维护"
  frmsq.Show vbModal
End If
End Sub

Private Sub changeczy_Click()
mainform.StatusBar1.Panels(1).Text = "状态： 更换操作员"
frmLogin.Show vbModal
End Sub

Private Sub close_Click()
With mainform
      .StatusBar1.Panels(1).Text = "状态： 关闭帐套"
      .sfgl.Visible = False
      .xtwh.Visible = False
      .ryxx.Visible = False
      .Toolbar1.Buttons.Item(3).Visible = False
      .Toolbar1.Buttons.Item(4).Visible = False
      .Toolbar1.Buttons.Item(5).Visible = False
      .Toolbar1.Buttons.Item(6).Visible = False
      .Toolbar1.Buttons.Item(7).Visible = False
End With
End Sub


Private Sub cxry_Click()
With frmqueryperson
    .Show
End With
End Sub

Private Sub data_Click()
Shell App.Path & "\VISDATA", vbNormalFocus
End Sub

Private Sub dataimport_Click()
'调用函数进行判断是否拥有权限使用各种功能
t = check_qx(czry_flag, 3)
If t = True Then
   mainform.StatusBar1.Panels(1).Text = "状态： 学生数据导入"
   frmdataimport.Show vbModal
End If
End Sub

Private Sub dcdata_Click()
t = check_qx(czry_flag, 17)
If t = True Then
   mainform.StatusBar1.Panels(1).Text = "状态： 导出数据"
   frmimport.Show vbModal
End If
End Sub

Private Sub exit_Click()
End
End Sub

Private Sub ghczy_Click()
frmLogin.Caption = "更换操作员"
second = True                       '表示第二次调用frmlogin窗体
frmLogin.Show vbModal
End Sub

Private Sub MDIForm_Load()
    MyMenu = GetSystemMenu(Me.hwnd, 0)       '得到系统菜单的句柄，Me.hwnd表示当前窗体的句柄
    RemoveMenu MyMenu, &HF060, MF_BYCOMMAND  '移去“关闭”菜单项，&HF060“关闭”菜单项的命令ID
End Sub
Private Sub closeall()

Screen.MousePointer = vbHourglass
Do While Not (Me.ActiveForm Is Nothing)
Unload Me.ActiveForm
Loop
Screen.MousePointer = vbDefault

End Sub
Private Sub nbb_Click()
t = check_qx(czry_flag, 10)
If t = True Then
    Dim rs_year_rpt As ADODB.Recordset
    Dim rs_month As ADODB.Recordset
    Set rs_year_rpt = New ADODB.Recordset
    Set rs_month = New ADODB.Recordset
        
        Call check_condatabase
        rs_year_rpt.open "select * from YF_year_rpt", cn, adOpenStatic, adLockPessimistic
    
    For i = 1 To 12
        Dim mtable As String
        If i < 10 Then
           mtable = "YF0" & i
        Else
           mtable = "YF" & i
        End If
        If rs_month.State = 1 Then rs_month.close
        rs_month.open "select * from " & mtable & "", cn, adOpenStatic, adLockPessimistic
        Call RescordSet_Copy(rs_month, rs_year_rpt)
    Next
    CrystalReport1.ReportFileName = App.Path & "\rep\nbb.rpt"
    CrystalReport1.PrintReport
    CrystalReport1.Destination = crptToWindow
    CrystalReport1.Action = 1
End If
Me.nbb.Enabled = False
End Sub

Private Sub mrbb_Click()
t = check_qx(czry_flag, 8)
If t = True Then
   Call printrbb
   CrystalReport1.ReportFileName = App.Path & "\rep\rbb.rpt"
   CrystalReport1.PrintReport
   CrystalReport1.Destination = crptToWindow
   CrystalReport1.Action = 1
End If
Me.mrbb.Enabled = False
End Sub

Private Sub mybb_Click()
t = check_qx(czry_flag, 9)
If t = True Then
    Call printybb
    CrystalReport1.ReportFileName = App.Path & "\rep\ybb.rpt"
    CrystalReport1.PrintReport
    CrystalReport1.Destination = crptToWindow
    CrystalReport1.Action = 1
End If
Me.mybb.Enabled = False
End Sub

Private Sub new_Click()
mainform.StatusBar1.Panels(1).Text = "状态： 新建帐套"

End Sub

Private Sub open_Click()
OPEN_ZT = True
mainform.StatusBar1.Panels(1).Text = "状态： 打开帐套"
frmLogin.Show vbModal
End Sub

Private Sub pclxx_Click()
'调用函数进行判断是否拥有权限使用各种功能
t = check_qx(czry_flag, 2)
If t = True Then
  mainform.StatusBar1.Panels(1).Text = "状态： 批处理人员"
  frmpcl.Show vbModal
End If
End Sub

Private Sub querybook_Click()
'调用函数进行判断是否拥有权限使用各种功能
t = check_qx(czry_flag, 13)
If t = True Then
  mainform.StatusBar1.Panels(1).Text = "状态： 查询报表"
  frmquerybook.Show
End If
End Sub

Private Sub querycheck_Click(Index As Integer)
'调用函数进行判断是否拥有权限使用各种功能
t = check_qx(czry_flag, 12)
If t = True Then
  mainform.StatusBar1.Panels(1).Text = "状态： 查询帐单"
  frmquerycheck.Show vbModal
End If
End Sub

Private Sub rmxb_Click()
t = check_qx(czry_flag, 7)
If t = True Then
    '进行判断是否有今日数据可进行打印
    mainform.StatusBar1.Panels(1).Text = "状态： 打印日明细表"
    
    Call crystal_init
    CrystalReport1.ReportFileName = App.Path & "\rep\rbbmx.rpt"
    CrystalReport1.PrintReport
    CrystalReport1.Destination = crptToWindow
    CrystalReport1.Action = 1
End If
Me.rmxb.Enabled = False
End Sub

Private Sub sjbf_Click()
'调用函数进行判断是否拥有权限使用各种功能
t = check_qx(czry_flag, 14)
If t = True Then
  mainform.StatusBar1.Panels(1).Text = "状态： 数据备份"
  frmdataback.Caption = "数据库备份"
  frmdataback.cmdBackup.Visible = True
  frmdataback.cmdRestore.Visible = False
  frmdataback.labchoose.Caption = "请选择要备份的数据库："
  frmdataback.labml.Caption = "请选择要备份的文件路径："
  frmdataback.Show vbModal
End If
End Sub

Private Sub sjhf_Click()
'调用函数进行判断是否拥有权限使用各种功能
t = check_qx(czry_flag, 15)
If t = True Then
   mainform.StatusBar1.Panels(1).Text = "状态： 数据恢复"
   frmdataback.Caption = "数据库还原"
   frmdataback.cmdRestore.Visible = True
   frmdataback.cmdBackup.Visible = False
   frmdataback.labchoose.Caption = "请选择要还原的数据库："
   frmdataback.labml.Caption = "请选择要还原的文件路径："
   frmdataback.Show vbModal
'进行数据的恢复操作
End If
End Sub

Private Sub sjlr_Click()
'调用函数进行判断是否拥有权限使用各种功能
t = check_qx(czry_flag, 6)
If t = True Then
   mainform.StatusBar1.Panels(1).Text = "状态： 药费输入"
   frmlrsj.Show
End If
End Sub

Private Sub sysjsq_Click()
mainform.StatusBar1.Panels(1).Text = "状态： 系统计算器"
Shell "calc.exe", vbNormalFocus
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
       Case "new"
            mainform.StatusBar1.Panels(1).Text = "状态： 新建帐套"
            'CreateDatabase.Show vbModal
       Case "query"
            t = check_qx(czry_flag, 1)
            If t = True Then
               mainform.StatusBar1.Panels(1).Text = "状态： 查询编辑人员"
'               Call closeall
               frmqueryperson.Show
            End If
       Case "input"
            t = check_qx(czry_flag, 6)
            If t = True Then
               mainform.StatusBar1.Panels(1).Text = "状态： 药费输入"
             
               frmlrsj.Show
            End If
       Case "drdc"
            t = check_qx(czry_flag, 17)
            If t = True Then
               mainform.StatusBar1.Panels(1).Text = "状态： 每月数据导出"
               frmimport.Show vbModal
            End If
       Case "book"
            t = check_qx(czry_flag, 13)
            If t = True Then
               mainform.StatusBar1.Panels(1).Text = "状态： 查询报表"
               frmquerybook.Show
            End If
       Case "exit"
            Call check_condatabase
            Dim rs_year_rpt As ADODB.Recordset
            Set rs_year_rpt = New ADODB.Recordset
                rs_year_rpt.open "select * from YF_year_rpt", cn, adOpenStatic, adLockPessimistic
            Do Until rs_year_rpt.EOF
                rs_year_rpt.Delete
                rs_year_rpt.MoveNext
            Loop
            End
End Select
End Sub

Private Sub xgkl_Click()
mainform.StatusBar1.Panels(1).Text = "状态： 修改口令"
changepswd.Show vbModal
End Sub

Private Sub ylfytz_Click()
'调用函数进行判断是否拥有权限使用各种功能
t = check_qx(czry_flag, 5)
If t = True Then
  mainform.StatusBar1.Panels(1).Text = "状态： 医疗费用调整"
  frmchargerate.Show vbModal
End If
End Sub

Private Sub ymxb_Click() '打印月明细报表
Dim rs_rpt As ADODB.Recordset
Dim rs_month As ADODB.Recordset
Set rs_rpt = New ADODB.Recordset
Set rs_month = New ADODB.Recordset
    
    Call check_condatabase
    rs_rpt.open "select * from YF_month_rpt", cn, adOpenStatic, adLockPessimistic
    rs_month.open "select * from " & Mtable_name & "", cn, adOpenStatic, adLockPessimistic
    Do Until rs_rpt.EOF
             rs_rpt.Delete
             rs_rpt.MoveNext
    Loop
    Do Until rs_month.EOF
       rs_rpt.AddNew
       For i = 0 To 7
           rs_rpt.Fields(i).Value = rs_month.Fields(i).Value
       Next
       rs_rpt.Update
       rs_month.MoveNext
    Loop

CrystalReport1.ReportFileName = App.Path & "\rep\ymxb.rpt"
CrystalReport1.PrintReport
CrystalReport1.Destination = crptToWindow
CrystalReport1.Action = 1
Me.ymxb.Enabled = False
End Sub

Private Sub ysxxwh_Click()
'调用函数进行判断是否拥有权限使用各种功能
t = check_qx(czry_flag, 4)
If t = True Then
  mainform.StatusBar1.Panels(1).Text = "状态： 医生信息维护"
  frmdoctor.Show vbModal
End If
End Sub