编程开发论坛 - Powered by Discuz! Board

标题: 求助！遇到一下难题，大侠都进来帮我看下哈 [打印本页]

作者: 麦麦 时间: 2006-5-26 22:14 标题: 求助！遇到一下难题，大侠都进来帮我看下哈

1.计算总价代码怎么写？单价，数量和总价统属进货单表，当输入单价和数量时无需输入总价textbox便能自动计算并显示。。我参考了书上写的代码，当时输入无任何反应。
/单价离开焦点时计算金额
Private Sub price_lostfocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles allcount.LostFocus
      If IsNumeric(price.Text) Then
         Try
            price.Text = Format(CDbl("0" & price.Text), "#,###,##0.00")
         Catch ex As Exception
         End Try
      End If

End Sub
/数量离开焦点时计算金额
Private Sub allcount_lostfocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles allcount.LostFocus
      If IsNumeric(allcount.Text) Then
         Try
            allcount.Text = Format(CDbl("0" & allcount.Text), "#,###,##0.00")
         Catch ex As Exception
         End Try
      End If
End Sub

2.还要VB。net 动态连接数据库的代码怎么写，就是换台机子一样可以运行，不用更改设置。

谢谢了，有VB.net高手愿意帮帮小女子吗？加我Q123498327  谢谢。

作者: Nothing 时间: 2006-5-27 01:21

1、加上一行
Msgbox ( val(price.Text )*val(allcount.Text ))
如果你有总价和文本框，如果名叫总价可以这样写
总价.text= Format(val(price.Text )*val(allcount.Text )), "#,###,##0.00")

2、你可以使用ADO组件，使用连接字符串
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\db.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = "表名"
adodc1.Refresh

作者: 麦麦 时间: 2006-5-27 19:39 标题: 谢谢

谢谢管理员,

第一个问题解决了,可是第二个,连接代码要写在哪里呢? 换台机子的话不是要改数据源路径吗?我希望是能够不用做任何改动就可以运行

作者: Nothing 时间: 2006-5-27 21:24

第二个问题可以在程序启动时加载数据库
关于文件地址可以使用下面代码
strdb=App.Path +"\db.mdb"
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+strdb+";Persist Security Info=False"

然后将db.mdb与编译的文件放到同一个文件夹下就可以了

作者: 麦麦 时间: 2006-5-28 11:06 标题: 还是不懂

App.path 中APP要声明,怎么定义?看的不是很懂

,能完整的写一遍吗?这些是写在.."登录窗口的 load 事件中吗?假如我的数据名为:销售系统,, 应该怎么写?谢谢!!

作者: Nothing 时间: 2006-5-28 11:57

应当是这个,VB.Net成VB6不一样了

Application.StartupPath

作者: 麦麦 时间: 2006-5-28 13:24 标题: 大侠,还是还是有问题...

Public strdb As String = Application.StartupPath + "\db.mdb"
public adodc1 As SqlConnection
adodc1.ConnectionString = "

rovider=Microsoft.Jet.OLEDB.4.0;Data Source=" + strdb + "

ersist Security Info=False"

代码是这样写的吗?是写在外部的模块中吗?但是一直是显示adodc1未声明的啊...但是如果写在"登录"的load 事件中就不会出现这种情况了,另外db.mdb 是数据库的名字是吗?

作者: Nothing 时间: 2006-5-28 13:31

我讲的adodc1是一个数据库控件,你如果用别的数据库连接控件,请参考其他的联接方式,如果不是access格式的数据库,比SQL Server,那么不能实现你把说的功能,其他机器必需安装SQL数据,而且必需配制.

作者: 麦麦 时间: 2006-5-28 15:45 标题: 谢谢.

哦,好的,谢谢了,我是用sqlserver数据库.

欢迎光临编程开发论坛 (http://bbs.lihuasoft.net/)