VB.NET机房收费系统个人版----知识新充实

前端之家收集整理的这篇文章主要介绍了VB.NET机房收费系统个人版----知识新充实前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

1、求vb.net访问sql数据库代码


tringstr="DataSource=.;InitialCatalog=user;User Id=sa;Pwd=";sqlConnectionconn=newsqlConnection(str);

conn.Open();

Stringsql="selectcount(*)from info wherename='"+textBox1.Text+"'andpass='"+textBox2+"'";

sqlCommandcmd=newsqlCommand(sql,conn);

if((int)cmd.ExcuteScalr()>0)'用于执行查询语句,并返回结集果中的第一条记录的第一个字段的值。该方法的适合有一个结果的查询,例如使用Sum,Avg,Max及Min等函数sql语句。

lable1.Text="成功登陆";


2、获取DataGridView中选中行的某个字段的vb.net代码


rows=dgvUser.CurrentCellAddress.Y.ToString'获得选中行的索引值

enUser.UserID=dgvUser.Rows(rows).Cells(0).Value'选中行的第一个字段


3、获取dataTable中第一行的第二个字段


myDT.Rows(0).Item(2)=enUser.UserPwd


4、更新有主键的表



5、更新没有主键的表


Dim strsqlAs String ="updateT_BasicDataSet set rate='" &enBaseDataSet.Rate&"',tmpRate='" &enBaseDataSet.tmpRate&"',increaseTime='" &

enBaseDataSet.IncreaseTime&"',lastTime='" & enBaseDataSet.LastTime

&"',prepareTime='" & enBaseDataSet.prepareTime &"',lastMoney='" &

enBaseDataSet.lastMoney& "'"


6、ExecuteNonQuery对连接执行Transact-sql语句并返回受


影响的行数


Dim cmd AssqlCommand = NewsqlCommand(strsql,conn)

conn.Open()

Ifcmd.ExecuteNonQuery> 0 Then 'ExecuteNonQuery对连接执行Transact-sql语句并返回受影响的行数

Return "修改成功"

EndIf


7、导出Excel,注意不要有空行,否则有错误出现



8、Vb.Net中,获取dataGridView中某行某列的值


enLine.CardNo =dgvShowData(j,i).Value.ToString()第i行,第j列的数据。

enLine.CardNo =dgvShowData.Rows(i).Cells(j).Value


9、Vb.net中,删除dgv控件中的指定记录


'在控件上删除特定行

MsgBox("登录时间不足5分钟,不收任何费用")

dgvShowData.Rows.RemoveAt(dgvShowData.CurrentRow.Index)


10、vb.net中,删除dgv控件中所有的记录


MsgBox("下机成功!")

dgvShowData.DataSource ="null"

11、 然后在删除指定数据行:


1.'删除datagridview中的数据行

2.'DGVuser.Rows.Remove(DGVuser.CurrentRow)也可

3.DGVuser.Rows.RemoveAt(DGVuser.CurrentRow.Index)</span>

12、 Fromat()函数的运用

http://www.lob.cn/jq/kfjq/572.shtml

http://www.doc88.com/p-21781707477.html


13、把数据库中Time类型的数据转换成string


DimlogTime As TimeSpan

logTime = myDT.Rows(0).Item(8)

enCardNo1.OnLineTime= Convert.ToString(logTime)


14、日期时间获取用Now和Today与TimeOfToday的区别


登陆时的时间间隔,如果用时间获取通过NOW来获取,没有什么障碍,计算时直接相减无障碍(尽管跨事件);

而我采用的是Today来获取日期,TimeOfToday来获取时间,采用这种方式的话获取间隔时间时,我们无法在下机事件中,减去在上机事件中的上机变量;变量在下机事件中显示不存在,此种情况我就在网上查资料,上面说可以采用全局变量解决。然后我就是这去做,完全可以。现在我又学会了方法

代码

上机

'全局变量,为的是在下机的时候用

Public Shared loginDate As Date

Public Shared loginTime As Date

Private Sub btnOnline_Click(senderAsObject,e As EventArgs) Handles btnOnline.Click

Dim enLine AsNew Entity.line

DimresultTable As DataTable

Dim lineFac AsNew Facade.LineFac

IftxtCardNo.Text = "" Then

MsgBox("请输入卡号!")

Exit Sub

End If

IftxtStuNo.Text = "" Then

MsgBox("请输入学号!")

Exit Sub

End If

loginDate =Today

loginTime =TimeOfDay

txtOnlineDate.Text = loginDate

txtOnlineTime.Text = loginTime

enLine.CardNo= txtCardNo.Text

enLine.StuNO =txtStuNo.Text

enLine.CardType = cmbCardType.Text

enLine.OnLineDate = txtOnlineDate.Text

enLine.OnLineTime = txtOnlineTime.Text

Try

resultTable =lineFac.StuLoginSystemFac(enLine)

If resultTable.Rows.Count > 0Then

txtAcademy.Text =resultTable.Rows(0).Item(4)

txtName.Text =resultTable.Rows(0).Item(2)

txtSex.Text =resultTable.Rows(0).Item(3)

txtLastMoney.Text =resultTable.Rows(0).Item(8)

If CType(txtLastMoney.Text,Single) < 0.5 Then

MsgBox("金额不足0.5元,请充值上机!")

Exit Sub

End If

End If

Catch ex AsException

MsgBox(ex.Message)

Exit Sub

EndTry

End Sub

下机

Private Sub btnOffline_Click(sender As Object,e AsEventArgs) Handles btnOffline.Click

DimConsumeStanderFac As NewFacade.BaseDataSetFac

DimenConsumeStander As NewEntity.BaseDataSet

DimoffLineDate As Date

DimoffLineTime As Date

Dim lineTimeAs Long

'常用用户

Dim rate AsString

'临时用户

Dim temRate AsString

'返回计算标准

enConsumeStander =ConsumeStanderFac.CountConsumeStanderFac()

IfcmbCardType.Text = "固定用户"Then

rate = enConsumeStander.Rate

Else

If cmbCardType.Text ="临时用户" Then

temRate =enConsumeStander.tmpRate

End If

End If

offLineDate =Today

offLineTime=TimeOfDay

txtOffLineDate.Text = offLineDate

txtOfflineTime.Text = offLineTime

lineTime =DateDiff(DateInterval.Minute,loginTime,offLineTime)

txtConsumeTime.Text =lineTime.ToString

End Sub



随着系统的进行,待续。。。。

猜你在找的VB相关文章