controlform.bas

考勤机的通讯程序

Attribute VB_Name = "ControlForm"
Option Explicit
Public YuanShiData As String             '为临时存储考勤机中的原始数据而设置的变量
Public RecordData(8) As String           '为存储从原始数据中获得的记录值而设置的变量组
Public jieshouKQJDataOK As Boolean       '为确定考勤机连接正常而设置的变量
Public jieshouSQLDataOK As Boolean       '为确定数据库连接正常而设置的变量
Public MaxRecord As Integer              '为计算最大的记录号而设置的变量
Public GetRecordCount As Integer         '为记录从考勤机中读取的记录总数而设置的变量

'**************************************************
'为停用窗体上所有控件而编辑的过程！
Public Sub CloseControl()
    FormKQ.ComAutoCJ.Enabled = False
    FormKQ.Check1.Enabled = False
    FormKQ.Check15.Enabled = False
    FormKQ.TexTimeCJ.Enabled = False
    FormKQ.ComEditDatetime.Enabled = False
    FormKQ.TexWorkSH.Enabled = False
    FormKQ.TexWorkX.Enabled = False
    FormKQ.Comeditword.Enabled = False
    FormKQ.ComOpenFile.Enabled = False
    FormKQ.ComFileCJ.Enabled = False
    FormKQ.ComboChuankouhao.Enabled = False
    FormKQ.Comjiance.Enabled = False
    FormKQ.TexUsername.Enabled = False
    FormKQ.TexUserpw.Enabled = False
    FormKQ.Comlianjie.Enabled = False
    FormKQ.ComjieshouCJ.Enabled = False
End Sub
'**************************************************
'为启用窗体上所有控件而编辑的过程！
Public Sub OpenControl()
    FormKQ.ComAutoCJ.Enabled = True
    FormKQ.Check1.Enabled = True
    FormKQ.Check15.Enabled = True
    FormKQ.TexTimeCJ.Enabled = True
    FormKQ.ComEditDatetime.Enabled = True
    FormKQ.TexWorkSH.Enabled = True
    FormKQ.TexWorkX.Enabled = True
    FormKQ.Comeditword.Enabled = True
    FormKQ.ComOpenFile.Enabled = True
    FormKQ.ComFileCJ.Enabled = True
    FormKQ.ComboChuankouhao.Enabled = True
    FormKQ.Comjiance.Enabled = True
    FormKQ.TexUsername.Enabled = True
    FormKQ.TexUserpw.Enabled = True
    FormKQ.Comlianjie.Enabled = True
    FormKQ.ComjieshouCJ.Enabled = True
End Sub
'**************************************************
'为打开“接收考勤数据”按钮而编辑的程序！
Public Sub OpenJieshouKQDataCommand()
   If jieshouKQJDataOK And jieshouSQLDataOK Then
      FormKQ.ComjieshouCJ.Enabled = True
   Else
      FormKQ.ComjieshouCJ.Enabled = False
   End If
End Sub