- 博客(8)
- 资源 (1)
- 问答 (1)
- 收藏
- 关注
原创 VB程序学习代码记录20160828
Dim cnn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Form_Load() cnn.Open "driver={microsoft access driver (*.mdb)};DBQ=" & App.Path & "\db_kfgl.mdb" rs.Open "kf", cnn, adOp
2016-08-28 15:28:25 578
原创 VB程序学习代码记录20160827
数据库中的表是不允许直接访问的,只有通过recordset对象对其进行浏览及操作。 一个recordset对象表示一个或多个数据库表中的集合,或者运行一次查询所得的记录结果。 记录集对象有3种类型:表类型(DbOpenTable)、动态集类型(DbOpenDynaset)、快照类型(DbOpenSnapshot)Dim DAOmydb1 As DatabaseDim DAOmyrs1 As R
2016-08-27 16:39:52 817
转载 常用正则表达式大全 (转)
网上找到的常用正则表达式,留着以后可能用得上,正则表达式实在是不好写,只好拿来主义了,在Delphi中没有自己带有正则表达式的组件,靠第三方了,都说PerlRegEx 是首选, 去这里下载,官方网站: http://www.regular-expressions.info/delphi.html。另外,万一老师在他的博客上写了PerRegEx的使用,可以去看看:http://www.cnblogs.
2016-08-10 16:15:38 396
原创 VB程序学习代码记录20160805
重做网格Private Sub Command1_Click() Form1.Refresh Dim w, h As Integer Dim x, y As Integer Dim i As Integer w = Form1.ScaleWidth h = Form1.ScaleHeight x = Int(w / Val(Combo1.Tex
2016-08-05 14:35:59 485
原创 VB程序学习代码记录20160804
翻转图片Dim sp As BooleanDim cz As BooleanPrivate Sub Command1_Click(Index As Integer) Dim pic As StdPicture Dim w, h As Integer w = Picture1.Width h = Picture1.Height Set pic = Pictur
2016-08-04 21:34:42 323
原创 VB程序学习代码记录20160803
自定义坐标系Private Sub Form_activate() Form1.Scale (-100, 100)-(100, -100) Line (-100, 0)-(300, 0) Line (0, 100)-(0, -150) DrawWidth = 10 Form1.Circle (0, 0), 0, vbRed CurrentX = 0:
2016-08-03 14:16:49 444
原创 VB程序学习代码记录20160802
excel导出为txtPrivate Sub Command1_Click() Dim i As Integer, r As Integer Dim newxls As Excel.application Dim newbook As Excel.workbook Dim newsheet As Excel.Worksheet Set newxls = Cre
2016-08-02 15:41:03 326
原创 VB程序学习代码记录20160801
input语句Private Sub Command1_Click() With CommonDialog1 .InitDir = App.Path .Filter = "文本文件|*.txt" .ShowOpen End With Open CommonDialog1.FileName For Binary As 1
2016-08-01 23:15:55 301
python学习路线推荐?
2016-06-16
TA创建的收藏夹 TA关注的收藏夹
TA关注的人