module1.bas

商业企业进销存管理系统

Attribute VB_Name = "Module1"
Public fMainForm As frmMain
Public gintWZSmode As Integer 'for WZ setup
Public gintGFSmode As Integer 'for GF setup
Public gintKHSmode As Integer 'for KH setup
Public gintYWYLBSmode As Integer 'for YWYLB setup
Public gintYWYSmode As Integer 'for YWY setup
Public gintCKSmode As Integer 'for CK setup
Public gintWZLBSmode As Integer 'for WZLB setup
Public gintWZYSSmode As Integer 'for WZYS setup

Public username As String 'for  user longin

Public gintDHmode As Integer 'for din huo
Public gintINHmode As Integer 'for ruku huo
Public gintXSDHmode As Integer 'for xiao shou ding dan
Public gintOUTHmode As Integer 'for xiao shou ding dan
Public gintZCmode As Integer 'for shang pin zhuan cang
Public gintGETmode As Integer 'for ying shou
Public gintOFFERmode As Integer 'for YING FU
Public gintPLLISTmode As Integer 'for PEI LIAO LIST
Public gintPLmode As Integer 'for PEI LIAO
Public gintPLANGLISTmode As Integer 'for plan list
Public gintPLANGmode As Integer 'for plan
    
Sub Main()     ' 要显示快速显示，需用 Sub Main 过程作为启动对象，并用 Show 方法显示该窗体
    Dim fLogin As New frmLogin
    fLogin.Show vbModal     '登录显示登录对话框模式
    If Not fLogin.OK Then    '如果不是假就结束登录对话框模式
    End
    End If
    Unload fLogin     '卸载登录对话框模式
    Set fMainForm = New frmMain   '主窗体赋给fMainForm
    fMainForm.Show      '用以显示 MDIForm 窗体 对象
End Sub

Public Function ConnectString() _
   As String   '定义数据库连接函数,返回一个数据库连接
'returns a DB ConnectString
   ConnectString = "FileDSN=my_factory.dsn;UID=sa;PWD=" 'ADO的文件DSN文件的连接方式,用于连接trade.dsn数据源,它的内容由对象connection的open
                                                        '方法的格式决定.
End Function
Public Function ExecuteSQL(ByVal SQL _
   As String, MsgString As String) _
   As ADODB.Recordset
   '函数,参数SQL用于存放需要执行的SQL语句,参数Msgstring用于返回执行的提示信息.函数执行时先判断SQL语句中包含的内容_
   '当执行查询时,返回一个与函数同名的记录集对象recordset,所有满足条件的记录包含在对象中.当执行如删除.更新.添加操作时
   '不返回记录集对象.

   Dim cnn As ADODB.Connection      '定义连接对象
   Dim rst As ADODB.Recordset       '定义记录集对象
   Dim sTokens() As String          '定义动态数组
   
   On Error GoTo ExecuteSQL_Error   ' 异常处理,如出错就跳到ExecuteSQL_Erro
   
   sTokens = Split(SQL)             'split函数是返回一个下标从零开始的一维数组，它包含各个子串的数组
   Set cnn = New ADODB.Connection   '创建连接
   cnn.Open ConnectString           '打开连接.它是ADO连接的方法,其中ConnectString是上面定义的函数
   If InStr("INSERT,DELETE,UPDATE,EXECUTE", _
      UCase$(sTokens(0))) Then      'Instr()是字符串比较函数，
                                    'UCase$(sTokens(0)))是将字符串的第一个词的第个字符转化成大字
      cnn.Execute (SQL)             '执行SQL语句
      MsgString = sTokens(0) & _
         " query successful"        '返回执行SQL语句的消息
   Else
      Set rst = New ADODB.Recordset
      rst.Open Trim$(SQL), cnn, _
         adOpenKeyset, _
         adLockOptimistic
      'rst.MoveLast
      'get RecordCount              保证记录的独占性
      Set ExecuteSQL = rst          '相当于赋值
      MsgString = "查询到" & rst.RecordCount & _
         " 条记录 "
   End If
ExecuteSQL_Exit:
   Set rst = Nothing                '释放记录集
   Set cnn = Nothing                '释放连接对象
   Exit Function
   
   
ExecuteSQL_Error:
   MsgString = "查询错误: " & _
      Err.Description
   Resume ExecuteSQL_Exit
End Function
Public Sub EnterToTab(Keyasc As Integer)
    If Keyasc = 13 Then
        SendKeys "{TAB}"                   '如果按回车，相当于按Tab键
    End If
End Sub
Public Function GetRkno() As String
    GetRkno = Format(Now, "yymmddhhmmss")  '格式化当前时间显示方式
    Randomize
    GetRkno = GetRkno & Int((99 - 10 + 1) * Rnd + 10)
End Function