module1.bas

一个机械产品（产品、部件、零件）的工时、工资及进度软件

Attribute VB_Name = "Module1"

Public oDb As New Connection
Public szuser As String
Public szdatabase As String
Public szserver As String
Public szpassword As String
Public userid As String

Public szConnection As String
Public szSql As String
Public rsTempA As Recordset
Public rsTempB As Recordset
Public rsTempC As Recordset

Public i As Integer, j As Integer, answer As Integer
Public strI As String, griditem As String
Public Rowgpgx As Integer, bhgpgx As String, mcgpgx As String
Public NOWDate As Date, NOWDateS As String
Public objReportTitle As FlexCell.ReportTitle

Public excelsetup As Boolean, mobjexcel As Object

Public Sub ShowErr()
  MsgBox "Dr. Watson 发现您的操作有误。" & vbCrLf & vbCrLf & Err.Description, vbOKOnly + vbCritical, "Dr. Watson"
End Sub
Public Function ShowPageSetup(Grid As FlexCell.Grid)
    Load frmPageSetup
    frmPageSetup.SetGrid Grid
    'frmPageSetup.Show vbModal
End Function