https://www.myziyuan.com/
- wolf8668
- 源文件：指编程者做好的工程文件，包含对程序进行修改、编译所需的全套代码和组件（例如图标、可视界面、第三方控件、数据库）。 源代码：仅仅是编程者所写的程序代码，不包含界面和控件等，需要用户自行完成相关操作。可能不完整，一般用于提供编程思路。【对补充的解答】我上面已经说过了，源代码可能不完整。可能是整个工程的源代码，也可能只是几个主要窗体的源代码。究竟是哪种要由提供代码者决定。考虑到时间、精力等问题，他可能只提供比较难编的主要部分的代码，而将剩下的简单代码留给用户自行完成。一般提供代码者会同时说明情况。如果你想要完整的代码，可以搜索其它人提供的代码，或者直接找源文件。
- 2021-02-13 16:30:01
- 1264737478
- 网上随便一搜就是一大堆，如果要，请看下面的简单的例子：Private Function Add(Number1 As Long, Number2 As Long) As Long Add = Number1 + Number2End FunctionPrivate Sub Command1_Click()MsgBox Add(2, 3)End Sub"输出5
- 2021-02-11 12:53:44
- hhcw0320
- 求写VB代码,什么样的都可以,不要太难的,....完整一点的更好哦,VB登陆代码Private Sub Label1_Click()On Error Resume NextDim MPassword As StringAdodc1.RecordSource = "select * from myuser where 名称 ='" & Txtuser.Text & "'"Adodc1.RefreshIf Adodc1.Recordset.RecordCount > 0 Then'MPassword = Adodc1.Recordset.Fields("用户密码")If Txtpwd.Text = MPassword Then '判断数据的密码是否正确fMainForm.Enabled = True'添加登录日志' fMainForm.WriteLog ("从界面管理重新登陆")'以下三个变量保存以备后用UserName = Txtuser.Text '用户名UserPas = Txtpwd.Text '密码Purview = Adodc1.Recordset.Fields("qzc1,qzc2").Value '权限Unload MeElseMsgBox "密码不正确,请您确认后重新输入", , "登陆界面管理"Txtpwd.Text = ""Txtpwd.SetFocusEnd IfElseMsgBox "对不起 没有此用户的信息", , "界面管理登陆"Txtuser.Text = ""Txtpwd.Text = ""End IfEnd Sub
- 2021-02-11 12:53:44
开通会员