- 博客(9)
- 收藏
- 关注
RSS订阅原创 字符串分割方法
分割方式一：（可为任意分隔符）var ll:tstringlist; i:integer;begin cmb.Clear; ll:=tstringlist.Create ; try ll.Delimiter :=*; ll.DelimitedText :=123*456*789; for i:=0 to ll.Count-1 do begin cmb.Items.Add(l
2005-01-13 20:36:00
1133
原创 动态创建带事件的控件
类模块Class1代码：Option ExplicitPrivate WithEvents mvarCmBtn As CommandButtonPublic Property Set CmBtn(ByVal vData As CommandButton) Set mvarCmBtn = vDataEnd PropertyPublic Property Get CmBtn() As Co
2005-01-13 20:28:00
1927
1
原创 动态创建recordset
Option ExplicitPrivate Sub Form_Load() Dim adoRecordset As ADODB.Recordset Set adoRecordset = New ADODB.Recordset Dim i As Integer For i = 0 To 2 为Recordset三个字段,即为 DataGrid 添加三列 adoR
2005-01-13 20:25:00
1295
原创 动态生成带事件的MsFlexGrid
Option ExplicitDim WithEvents objExt As VBControlExtender 使用 WithEvents 声明 VBControlExtender 变量Private Sub LoadControl() Licenses.Add "Project1.Control1", "ewrinvcmcoe" Licenses.Add "MSFlexGr
2005-01-13 20:23:00
973
原创 从Excel导入到SQL Server(表至表)
Option ExplicitDim Adocon As ADODB.ConnectionPrivate Sub Form_Load()Set Adocon = New ADODB.ConnectionAdocon.ConnectionString = "Provider = SQLOLEDB.1;Password = ; Persist Security Info = True;User ID
2005-01-13 20:20:00
2356
2
原创 从Access导入到Access(表至表)
Option ExplicitDim Adocon As ADODB.ConnectionPrivate Sub Form_Load()Set Adocon = New ADODB.ConnectionAdocon.ConnectionString = "Provider = SQLOLEDB.1;Password = ; Persist Security Info = True;User ID
2005-01-13 20:18:00
1336
原创 Access数据导入到SQL Server(表至表)
Option ExplicitDim Adocon As ADODB.ConnectionPrivate Sub Form_Load()Set Adocon = New ADODB.ConnectionAdocon.ConnectionString = "Provider = SQLOLEDB.1;Password = ; Persist Security Info = True;User ID
2005-01-13 20:14:00
1654
1
原创 Crystal reports 9 的使用示例（一）
******************************************************************crystal report 的使用示例*适用版本：9.0*制作人：马亚红*制作时间：2004年12月28日*情况：此为在水晶报表软件中制作报表（rpt文件）的调用方式*菜单->工程->引用->选择：*1、Crystal Reports 9 Activ
2005-01-13 19:43:00
5701
原创 水晶报表4.6的使用示例
Private Sub Command1_Click(Index As Integer)With cr1 cr1为报表控件.PrinterDriver = Printer.DeviceName.DiscardSavedData = True-------------------------------------------------连接方式一.Connect = "DSN = dr
2005-01-13 19:15:00
1769
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人