2013 年 4月随笔档案 - vinsonLu

初学php：session

摘要：session_a.php<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><title>session</title><meta name="Generator" content=""><meta name="Author" content="czh"><meta name="Keywords&qu 阅读全文

posted @ 2013-04-25 17:48 vinsonLu 阅读(242) 评论(0) 推荐(0) 编辑

初学php：cookie

摘要：<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><title>cookie</title><meta name="Generator" content=""><meta name="Author" content="czh"><meta name="Keywords" content=&q 阅读全文

posted @ 2013-04-25 17:07 vinsonLu 阅读(185) 评论(0) 推荐(0) 编辑

初学PHP：用post传递checkbox

摘要：书本的做法：user_info.html<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><title>vinson firt php</title><meta name="Generator" content=""><meta name="Author" content="czh"><meta name=&q 阅读全文

posted @ 2013-04-24 18:22 vinsonLu 阅读(4911) 评论(0) 推荐(1) 编辑

Bogart size，scl，yy，分sheet，进程

摘要：Private T As Thread 1 Private Sub cmdExprot_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdExprot.Click 2 If Not T Is Nothing Then 3 If T.ThreadState = ThreadState.Running Then Exit Sub 4 End If 5 T = New Thread(AddressOf Exp... 阅读全文

posted @ 2013-04-17 11:11 vinsonLu 阅读(384) 评论(0) 推荐(0) 编辑

vb 事务sample

摘要：1 Private Sub ButtonSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonSave.Click 2 If MsgBox("Do you really want to save the table record(s)?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "CDSystem") = MsgBoxResult.No Then 3 Exit Sub 4 ... 阅读全文

posted @ 2013-04-17 10:59 vinsonLu 阅读(773) 评论(0) 推荐(0) 编辑

VB 图片在数据库的导入与导出

摘要：1 Private Sub fuck() 2 Try 3 Dim o_strpath, o_strname, o_houzui As String 4 Dim o_intNPost As Integer, o_intSPost As Integer, o_intLen As Integer 5 Dim o_intNlast As Integer 6 Dim o_bytBit() As Byte 7 o_strpath = "C:\Documents and ... 阅读全文

posted @ 2013-04-17 10:46 vinsonLu 阅读(1204) 评论(0) 推荐(0) 编辑

VB Export sample

摘要：连接附件的： 1 Private Sub btnExportForCustomer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExportForCustomer.Click 2 Dim xApp = New Excel.Application 3 Dim xBook As Excel.Workbook 4 Dim xSheet As New Excel.Worksheet 5 6 xBook = xApp.... 阅读全文

posted @ 2013-04-17 10:31 vinsonLu 阅读(750) 评论(0) 推荐(0) 编辑