窗体功能:设定收费的基本信息(如每小时费用以及最少金额等)。
步骤:
1,该窗体比较简单,首先启动窗体后这些文本框都是被锁定的,只有在单击修改时才将他们解锁。
2,该基本数据不能盲目的修改,应该根据最初的数据进行调整,对每个文本框的长度都进行了相应的限制。
3,单击确定确认修改,并将修改结果写入到基本数据表中,供其他用户调用。
4,单击取消则不修改,不写入表,并在文本框中显示上一条数据的信息。
该窗体代码:
'修改数据
Private Sub cmdOk_Click()
Dim strSQL As String
Dim MsgString As String
Dim mrs As ADODB.RecordsetIf bLocked = False Then '若已解锁
If Trim(txtHalf.Text) = "" Then
MsgBox "固定用户半小时费用不能为空!", vbExclamation + vbOKOnly, "警告"
txtHalf.Text = ""
txtHalf.SetFocus
Exit Sub
End If
If Trim(txtLeastMoney.Text) = "" Then
MsgBox "最少金额不能为空!", vbExclamation + vbOKOnly, "警告"
txtLeastMoney.Text = ""
txtLeastMoney.SetFocus
Exit Sub
End If
If IsNumeric(Trim(txtHalf.Text)) = False Then
MsgBox "固定用户半小时费用应为数字!", vbExclamation + vbOKOnly, "警告"
txtHalf.Text = ""
txtHalf.SetFocus
Exit Sub
End If
If IsNumeric(Trim(txtLeastMoney.Text)) = False Then
MsgBox "最少金额应为数字!", vbExclamation + vbOKOnly, "警告"
txtLeastMoney.Text = ""
txtLeastMoney.SetFocus
Exit Sub
End If
'添加Basicdata数据表
strSQL = "select * from Basicdata"
Set mrs = ExecuteSQL(strSQL, MsgString)
If (mrs.Fields(0) = Trim(txtHalf.Text) And mrs.Fields(4) = Trim(txtLeastMoney.Text)) Then
MsgBox "修改成功!", vbInformation + vbOKOnly, "修改"
txtHalf.Locked = True
txtLeastMoney.Locked = True
bLocked = True
mrs.Close
Exit Sub
Else
mrs.AddNew
mrs.Fields(0) = Trim(txtHalf.Text)
HalfFee = Trim(txtHalf.Text)
mrs.Fields(1) = "30"
mrs.Fields(2) = "30"
mrs.Fields(3) = "30"
mrs.Fields(4) = Trim(txtLeastMoney.Text)
LeastMoney = Trim(txtLeastMoney.Text)
mrs.Fields(5) = Date
mrs.Fields(6) = Time
mrs.Update
mrs.Close
MsgBox "修改成功!", vbInformation + vbOKOnly, "警告"
txtHalf.Locked = True
txtLeastMoney.Locked = True
bLocked = True
Exit Sub
End If
Else '若还没解锁
MsgBox "请先选择修改!", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
End Sub
'初始化
Private Sub Form_Activate()
Dim strSQL As String
Dim MsgString As String
Dim mrs As ADODB.Recordset
' Dim HalfFee As Single
'初始化Basicdata数据表
strSQL = "select * from Basicdata"
Set mrs = ExecuteSQL(strSQL, MsgString)
If mrs.EOF = True Then
mrs.AddNew
mrs.Fields(0) = "0.5"
mrs.Fields(1) = "30"
mrs.Fields(2) = "30"
mrs.Fields(3) = "30"
mrs.Fields(4) = "5"
mrs.Fields(5) = Date
mrs.Fields(6) = Time
mrs.Update
Else
mrs.MoveLast
'显示信息
txtHalf.Text = mrs.Fields(0)
HalfFee = mrs.Fields(0)
txtIncreasing.Text = mrs.Fields(1)
txtAtLeast.Text = mrs.Fields(2)
txtPrepare.Text = mrs.Fields(3)
txtLeastMoney.Text = mrs.Fields(4)
LeastMoney = mrs.Fields(4)
mrs.Close
'锁定文本框
txtHalf.Locked = True
txtIncreasing.Locked = True
txtAtLeast.Locked = True
txtPrepare.Locked = True
txtLeastMoney.Locked = True
bLocked = True
End If
LeastMoney = 5
End Sub
'解锁文本框(只能修改固定半小时费用和最少金额)
Private Sub cmdAlter_Click()
If bLocked = True Then
txtHalf.Locked = False
txtLeastMoney.Locked = False
txtHalf.SetFocus
bLocked = False
End If
End Sub