Ta上传的资源 (0)

rivateSubcmdAdd_Click() Dimstr1AsString DimcnnAsNewADODB.Connection'数据库连接 IfcmdAdd.Caption="新增"Then'按钮为“新增”状态 cmdAdd.Caption="保存"'修改按钮标题为“保存”,提示用户保存数据
VB 16

PrivateSubMDIForm_Load()Me.Left=GetSetting(App.Title,"Settings","MainLeft",1000)'设置窗体左边坐标Me.Top=GetSetting(App.Title,"Settings","MainTop",1000)'设置窗体顶端
VB 23

#include #include #include #include #include #include"1602.h" #include"delay.h" unsigned char second=0; unsigned int T1C1_Val=4000; //设置初始pwm占空比 60000
C 46

基于VB6.0学生管理系统设计 Public UserName As String Sub Main() Dim newlogin As New Login '声明 newlogin.Show 1 If Not newlogin.Okf Then End End If Unload newlogin
VB 31