基本数据绑定界面的制作和代码
今天做的机房收费系统的数据绑定界面,主要就是设计到收费系统的基础费用的更改问题,不同时间节点内的收费标准不一样,通过基础定价来完成不同情况下所收取费用的计算,界面设计也是很简单的,如下图所示
代码中的主要难点也就是数据库连接修改相关的内容,相对来说也是比较简单的,具体代码如下所示
Option Explicit Private Sub Command1_Click() Text1.Enabled = True Text2.Enabled = True Text3.Enabled = True Text5.Enabled = True Text6.Enabled = True Text7.Enabled = True Command2.Enabled = True Command3.Enabled = True Command1.Enabled = False End Sub Private Sub Command2_Click() Dim mrc As ADODB.Recordset Dim msgtext As String Dim txtSQL As String txtSQL = "select*from basicdata_info" '执行查询语句 Set mrc = ExecuteSQL(txtSQL, msgtext) Text1.Text = mrc.Fields(0) Text2.Text = mrc.Fields(1) Text3.Text = mrc.Fields(2) Text5.Text = mrc.Fields(3) Text6.Text = mrc.Fields(4) Text7.Text = mrc.Fields(5) Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Text5.Enabled = False Text6.Enabled = False Text7.Enabled = False Command2.Enabled = False Command3.Enabled = False Command1.Enabled = True End Sub Private Sub Command3_Click() Dim mrc As ADODB.Recordset Dim msgtext As String Dim txtSQL As String '判断内容是否为空 If (Text1.Text = "") Then MsgBox "请输入固定用户1小时费用!", vbOKCancel + vbExclamation, "警告" Text1.SetFocus End If If (Text2.Text = "") Then MsgBox "请输入临时用户1小时费用!", vbOKCancel + vbExclamation, "警告" Text1.SetFocus End If If (Text3.Text = "") Then MsgBox "请输入递增单位时间!", vbOKCancel + vbExclamation, "警告" Text1.SetFocus End If If (Text5.Text = "") Then MsgBox "请输入至少上机时间!", vbOKCancel + vbExclamation, "警告" Text1.SetFocus End If If (Text6.Text = "") Then MsgBox "请输入准备时间!", vbOKCancel + vbExclamation, "警告" Text1.SetFocus End If If (Text7.Text = "") Then MsgBox "请输入最少金额!", vbOKCancel + vbExclamation, "警告" Text1.SetFocus End If 'mrc.Delete txtSQL = "select*from basicdata_info" '执行查询语句 Set mrc = ExecuteSQL(txtSQL, msgtext) '--------------------------------------- '窗口中添加查询历史记录功能(2017年12月20日备注:未添加此功能) '---------------------------------------- If mrc.RecordCount = 0 Then MsgBox "请添加基本数据", vbOKOnly + vbExclamation, "警告" Text1.Enabled = True Text2.Enabled = True Text3.Enabled = True Text5.Enabled = True Text6.Enabled = True Text7.Enabled = True Command2.Enabled = False Command3.Enabled = True Command1.Enabled = False Else mrc.AddNew mrc.Fields(0) = Trim(Text1.Text) mrc.Fields(1) = Trim(Text2.Text) mrc.Fields(2) = Trim(Text3.Text) mrc.Fields(3) = Trim(Text5.Text) mrc.Fields(4) = Trim(Text6.Text) mrc.Fields(5) = Trim(Text7.Text) mrc.Fields(6) = Trim(1) mrc.Fields(7) = Trim(Date) mrc.Fields(8) = Trim(Time) mrc.Update MsgBox "修改成功!", vbOKOnly + vbExclamation, "警告" 'mrc.Bookmark = mybookmark End If End Sub Private Sub Form_Load() Dim mrc As ADODB.Recordset Dim msgtext As String Dim txtSQL As String Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Text5.Enabled = False Text6.Enabled = False Text7.Enabled = False Command2.Enabled = False Command3.Enabled = False ' mrc.Delete txtSQL = "select*from basicdata_info" '执行查询语句 Set mrc = ExecuteSQL(txtSQL, msgtext) Text1.Text = mrc.Fields(0) Text2.Text = mrc.Fields(1) Text3.Text = mrc.Fields(2) Text5.Text = mrc.Fields(3) Text6.Text = mrc.Fields(4) Text7.Text = mrc.Fields(5) End Sub