waves521-CSDN博客

原创几个软件需要的请联系我

自动化监控组态软件iFIX 4.0 - 1480元软件简介—SoftWare Description: iFIX 4.0 本信息来源于百姓网baixing.comiFIX 4.0多国语言正式版发布，包含了简体中文版。iFIX 是全球最领先的HMI/SCADA自动化监控组态软件，已有超过300，000套以上的软件在全球运行。世界上许多最成功的制造商都依靠 GE Fanuc的iFIX软件来全面

2011-06-13 19:44:00 1492

原创 vb调用存储过程

Public Sub procExe(ByVal procName As String, ByVal pch As String) Dim cn As ADODB.Connection Dim cmd As ADODB.Command cn.ConnectionString = "" cn.Open Set cmd.ActiveConnection = cn cmd.

2008-05-12 15:51:00 533

原创很牛的一条SQL -------将Excel数据快速导入数据库

insert into ivrgen (mobile) select cast(CAST(mobile as int) as varchar(8)) FROM OPENDATASOURCE(Microsoft.Jet.OLEDB.4.0,Data Source=d:/listMgr/list.xls;Extended Properties=Excel 5.0)...[sheet1$]注意：

2008-05-09 17:32:00 336

原创 TreeView和ListView用法入门

Private Sub Form_Load() 设置 Treeview 控件属性。 TreeView1.LineStyle = tvwRootLines Linestyle 1 添加 Node 对象。 Dim nodX As Node 声明 Node 变量。带有文本 Root 的第一个节点。 Set nodX = TreeView1.Nodes

2007-07-25 20:05:00 902

原创数据库之主流用法——对象和控件联合操纵数据库

利用控件操作数据库Private Sub Form_Load()Dim sum As IntegerAdodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/双极化.mdb;" 1.加载驱动，找到并打开数据库Adodc1.RecordSource = "select * f

2007-07-25 19:57:00 506

原创动态加入菜单项

Dim max_index As IntegerPrivate Sub Command1_Click()max_index = 0max_index = max_index + 1Load tuichu(max_index)tuichu(max_index).Caption = Text1.Textmax_index = max_index + 1Load xinzeng(max_in

2007-06-12 22:11:00 378

原创调用WIN API实现在菜单项中加入图标

Option Explicit 在模块级别中使用，强制显式声明模块中的所有变量。函数可以查意思很明确(根据英文意思） Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Function GetSubMenu Lib "user32" (ByVal hMenu

2007-06-12 21:53:00 704

原创鼠标右击事件

Private Sub Command1_Click() Unload Me End Sub Private Sub sunfile2_Click() Text1.BackColor = RGB(0, 0, 255) End Sub Private Sub sunfile3_Click() Text1.BackColor = vbRed End Sub Private Sub Text

2007-06-12 21:24:00 593