如何给vb程序打包.pptVIP

1、代码 SqlConnection conn = new SqlConnection(Data Source=ZWEIQUAN-PC;Initial Catalog=Student;Integrated Security=True); SqlCommand cmd = new SqlCommand(); cmd.Connection = conn; conn.Open(); cmd.CommandText = select * from 信息表 where 月份= + this.textBox1.Text.Trim() + ; SqlDataReader sdr = cmd.ExecuteReader(); while (sdr.Read()) { //需要数据的详细提取 } sdr.Close(); conn.Close(); 注：Data Source=ZWEIQUAN-PC;Initial Catalog=Student;Integrated Security=True ZWEIQUAN-PC：计算机名 Student：对应的数据库名称 信息表：对应表的名字。 详情可见我上传的文档：C#连接数据库及增删查改操作 2、窗体讲解 Private Sub Command1_Click() Form1.Print 我爱你中国！ Debug.Print 制作人：甘陈义 Move 0, 0, 3000, 3000 Form1.Hide Form1.Show Unload Form1 Load Form1 End Sub Private Sub Label1_Click() Form1.Print 我爱你中国！ End Sub Private Sub Form_Load() Form1.Move (Screen.Width - Form1.Width) / 2, (Screen.Height - Form1.Height) / 2 End Sub 2、窗体讲解 Private Sub Form_Unload(Cancel As Integer) Dim x As Integer x = MsgBox(你真的要关闭窗口吗？, vbYesNo) If x = vbNo Then Cancel = -1 End If End Sub Private Sub cmdshowfirst_Click() frmLogin.Show Form1.Hide End Sub 3、 Option Explicit Public LoginSucceeded As Boolean Private Sub cmdCancel_Click() 设置全局变量为 false 不提示失败的登录 LoginSucceeded = False Me.Hide End Sub Private Sub cmdOK_Click() 检查正确的密码 If txtPassword = password Then 将代码放在这里传递 成功到 calling 函数 设置全局变量时最容易的 LoginSucceeded = True Me.Hide Else MsgBox 无效的密码，请重试!, , 登录 txtPassword.SetFocus SendKeys {Home}+{End} End If End Sub 如何给vb程序打包？ (1)打开VB6.0 IDE，加载你的工程，单击“外接程序”菜单下的“外接程序管理器”。 (2)在弹出的窗体中选择“打包和展开向导”（最后一项）,在加载行为中选择“加载/卸载”，确定。 (3)再次单击“外接程序”菜单项，单击“打包和展开向导”。 (4)单击“打包”，选择“标准安装包”，一直单击下一步，最后点“完成”，点“关闭”。 (5)此时你的工程文件夹下会有一个名为“包”的文件夹。 (6)单击“展开”，单击下一步（2个），此时询问“您希望在哪里展开这个包？”，单击“新建文件夹” 在电脑中其他位置新建一个文件夹，单击下一步，点“完成”，点“关闭”。 (7)关闭“打包和展开向导”。 (8)在刚才建立的文件夹下就是安装程序了！（三个文件：工程名.cab setup.exe setup.lst）^_^ 注意：如果在其他机器上安装时提示“需要重新启动”，通常是你的程序中引用的资源路径不正确，请用App.path等绝对路径，如还不行，可能是一些.dll文件版本不兼容或不存在等其它原因，请在打包时加载你用到的所有的库，若仍有问题联