mdlbase.bas

一个简单的快餐店收银软件

Attribute VB_Name = "mdlBase"
'**********************************************
'*    模 块 名 称 :全局变量模块
'*    功 能 描 述 :
'*    程序员姓名  : 罗胸怀
'*    最后修改人  : 罗胸怀
'*    最后修改时间:2005-02-09
'*    备        注:
'**********************************************
Public sSQL As String '全局SQL语句
Public gUserID As String
Public gUserName As String '全局操作人员名称
Public Conn As New ADODB.Connection
Public cmd As New ADODB.Command
Public Rs As New ADODB.Recordset
Public Rss As New ADODB.Recordset
Public ConnectString As String
Public Sql As String
Public intCir As Integer
Public TableState As String                     '当前状态
Public gCompanyName As String '软件使用者 全局变量
Public gServerDate As String  '服务器日期
'Public Const gCompanyName = "广州市天河区地王分店"
Public Function SendNext(Txt As TextBox)
    Txt.SelStart = 0
    Txt.SelLength = Len(Txt)
    Txt.SetFocus
End Function
Public Function FirstLoad(frmFarther As Form, frmSub As Form)
frmSub.Top = 0
frmSub.Left = 0
frmSub.Width = frmFarther.Width - 200
frmSub.Height = frmFarther.Height - 1950
End Function

Public Function CheckEmpty(ss As String) As String
CheckEmpty = IIf(Len(Trim(ss)) = 0, " ", Trim(ss))
End Function

'判断是否生效
Public Function CheckEffect(sDate As Date, sEnd As Date) As Boolean
Dim dtNow As Date
dtNow = Format(Date, "yyyy-MM-dd")
If dtNow >= sDate And dtNow <= sEnd Then
    CheckEffect = True
Else
    CheckEffect = False
End If
End Function
'通过编号得到对应名称
Public Function GetNameOfCode(sCode As String, sFieldCode As String, sFieldName As String, sTable As String, sConn As ADODB.Connection)
Dim Rss As New ADODB.Recordset

End Function

'设置输入框的边界
Public Function DrawBorder(obShape As Shape, obText As TextBox)
obShape.Visible = True
obShape.Top = obText.Top - 10
obShape.Left = obText.Left - 10
obShape.Width = obText.Width + 25
obShape.Height = obText.Height + 25
End Function