Private Sub Command1_Click()
Form1.Caption = "大小写字母转换"
Label1.Caption = "输入字符串："
Label2.Caption = "转换："
Command1.Caption = "清屏"
Command2.Caption = "结束"
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Command2_Click()
End
......................
阅读全部
|
chen123free
贴于 2015年6月16日 13:44
hide
bbsi
Private Sub Command1_Click()
Form1.Caption = "欢迎界面"
Label1.Caption = "欢迎使用本程序！"
Label2.Caption = "请输入用户名！"
Text1.Text = ""
End Sub
Private Sub Command2_Click()
End
End Sub
阅读全部
|
chen123free
贴于 2015年6月16日 13:25
hide
bbsi
<%
StudentID=Request("StudentID")
ID=Request("ID")
Sname=Request("Sname")
Subject=Request("Subject")
if StudentID="" then %>
<script language=vbscript>
MsgBox "错误：请输入你的准考证号！"
location.href = "javascript:history.back()"
</script>
<%
end if
......................
阅读全部
|
zwy207
贴于 2015年4月22日 18:10
hide
bbsi
Option Explicit
Public txtSQL As String
Dim mrc As ADODB.Recordset
Dim MsgText As String
Private Sub Form_Load()
ShowTitle
ShowData
flagLedit = True
......................
阅读全部
|
zmx11
贴于 2015年4月18日 11:16
hide
bbsi
Select Case "& Text.text&"
Case "&Text1.Text&" = "", MsgBox("仪器名称为空，请输入！")
Case "&text2.text&" = "", MsgBox("仪器型号为空，请输入！")
Case "&text3.text&" = "", MsgBox("生产商为空，请输入！")
Case "&text4.text&" = "", MsgBox("生产日期为空，请输入！")
Case "&text5.text&" = "", MsgBox("购买日期为空，请输入！")
Case "&text6.text&" = "", MsgBox("购买人为空，请输入！")
Case "&text7.text&" = "", MsgBox("购买单价为空，请输入！")
Case "&text8.text&" = "", MsgBox("购买数量为空，请输入！")
Case "&text9.text&" = "", MsgBox("备注为空，请输入！")
Case Else
......................
阅读全部
|
liliok6688
贴于 2015年3月13日 20:39
hide
bbsi
stemp = "select * from 空开基本表 where 空开编码=sel"
rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
为什么不行
stemp = "select * from 空开基本表"
rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
又可以
新手 求帮助
阅读全部
|
风吹过一样
贴于 2014年7月29日 14:23
hide
bbsi
Dim s As Double
Dim k1 As Double
Dim k2 As Double
Dim n As Integer
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 1
Text1.Text = Text1.Text & 1
Case 2
Text1.Text = Text1.Text & 2
Case 3
......................
阅读全部
|
虚心学习vb
贴于 2014年7月21日 15:27
hide
bbsi
Option Explicit
Private Sub cmdCancel_Click()
Dim intResult As Integer
'请求用户确认是否真的退出系统登录
intResult = MsgBox("你选择了退出系统登录，退出将不能启动企业人事管理系统！" & vbcrlf_ & "是否真的退出？", vbYesNo, "登录验证")
If intResult = vbYes Then End
'根据用户选择结束应用程序
End Sub
Private Sub CmdOK_Click()
Dim UserName As String
Dim userpassword As String
Dim str As String
......................
阅读全部
|
康恒
贴于 2014年7月10日 01:09
hide
bbsi
Option Explicit
Private Sub cmdCancel_Click()
Dim intResult As Integer
'请求用户确认是否真的退出系统登录
intResult = MsgBox("你选择了退出系统登录，退出将不能启动企业人事管理系统！" & vbcrlf_ & "是否真的退出？", vbYesNo, "登录验证")
If intResult = vbYes Then End
'根据用户选择结束应用程序
End Sub
Private Sub CmdOK_Click()
Dim UserName As String
Dim userpassword As String
Dim str As String
......................
阅读全部
|
康恒
贴于 2014年7月10日 01:09
hide
bbsi
Dim matlab As Object
Dim mimag() As Double
Dim a11(1 TO 1) As Double
Dim a21(1 TO 1) As Double
Dim a31(1 TO 1) As Double
Dim a41(1 TO 1) As Double
Dim a51(1 TO 1) As Double
Dim a61(1 TO 1) As Double
Dim a71(1 TO 1) As Double
Dim a81(1 TO 1) As Double
Dim a91(1 TO 1) As Double
Dim a101(1 TO 1) As Double
......................
阅读全部
|
yufenfei0509
贴于 2013年9月11日 10:52
hide
bbsi