modformdi.bas

网上教务管理系统 包括（教师

Attribute VB_Name = "mdi"
Option Explicit
'成绩模块
    Public recForXM As Recordset
    Public DWKECMC As String
    Public FRMMARKIN_LIST1_TEMP
    Public FRMKCDW_ID As Boolean
'MODDYCX
    Public Kubiao_Xuanze As Integer
    Public DB As Database
    Public Rc As Recordset
    Public BasField(1 To 7) As String
    Public BasFldCnt(1 To 7) As Integer
    Public WhoLdXuehao As Integer
    Public XuehaoLD As Boolean
'党建模块
    Public sqlForParty As String
    Public sqlPartyPrint As String
'奖惩助贷补模块
    Public ZDDH As Integer
    Global KBDH As Integer
    Global KBMC As String
    Public MnuDYCX_Cnt As Integer
    Public colCount As Integer
    Public DYCX_Mnu(1 To 6, 0 To 8) As String
    Public Riqi As Date
    Public Zifu As String
    Public Shuzi As Long
    Public XUEZHE As String
    Global PUBCITY As String
    Global PUBDANWEI As String

'课程字典
  Global ZDKID2 As Integer   '哪个字典库
  Global ZDKShow2 As String
  Global TEMPZDK As String
'主模块
    Public DBSTU As Database
    Public Dbstudent As Database
    Public sqlForMain As String '查询用SQL语句
    Public sqlForPrint As String '打印用SQL语句
    Public ID As String '显示家庭情况用ID
    Public xh0 As String '打印简历
    Public XH As String
    Public dbMark As Database
    Public rcnum As Integer
    Public rctemp As Recordset
    Global WINPATH As String
    Global Password As String
    Global BMP As Boolean
    Global banj As String
    Global BANJXS As String
    Global GSDATABASE
    Global GSRECORDSOURCE
Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Public Sub PrintInExcel(ByVal recPrint As Recordset, ByVal FileName As String, ByVal Char As String)
Dim dbExcel As Database
Dim recExcel As Recordset
Set dbExcel = OpenDatabase(App.Path + "\print\" + FileName, False, False, "Excel 8.0;HDR=NO;")
Dim FieldCount As Integer
FieldCount = recPrint.RecordCount
Set recExcel = dbExcel.OpenRecordset("A3:" & Char & "3")
recExcel.MoveLast
recPrint.MoveFirst
Dim I As Integer
While Not recPrint.EOF
  recExcel.AddNew
  For I = 0 To recPrint.Fields.Count - 1
    recExcel.Fields(I).Value = recPrint.Fields(I).Value
  Next I
  recExcel.Update
  recPrint.MoveNext
Wend
End Sub