如何給vb程序打包

1、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.ExecuteRe

2、ader(); while (sdr.Read() /需要數(shù)據(jù)的詳細(xì)提取 sdr.Close(); conn.Close(); 注：Data Source=ZWEIQUAN-PC;Initial Catalog=Student;Integrated Security=True ZWEIQUAN-PC：計(jì)算機(jī)名 Student：對(duì)應(yīng)的數(shù)據(jù)庫名稱 信息表：對(duì)應(yīng)表的名字。 詳情可見我上傳的文檔：C#連接數(shù)據(jù)庫及增刪查改操作 12、窗體講解Private Sub Command1_Click()Form1.Print 我愛你中國(guó)！Debug.Print 制作人：甘陳義Move 0, 0, 3000,

3、3000Form1.HideForm1.ShowUnload Form1Load Form1End SubPrivate Sub Label1_Click()Form1.Print 我愛你中國(guó)！End SubPrivate Sub Form_Load()Form1.Move (Screen.Width - Form1.Width) / 2, (Screen.Height - Form1.Height) / 2End Sub22、窗體講解Private Sub Form_Unload(Cancel As Integer)Dim x As Integerx = MsgBox(你真的要關(guān)閉窗口嗎？,

4、 vbYesNo)If x = vbNo ThenCancel = -1End IfEnd SubPrivate Sub cmdshowfirst_Click() frmLogin.Show Form1.HideEnd Sub33、Option ExplicitPublic LoginSucceeded As BooleanPrivate Sub cmdCancel_Click() 設(shè)置全局變量為 false 不提示失敗的登錄 LoginSucceeded = False Me.HideEnd SubPrivate Sub cmdOK_Click() 檢查正確的密碼 If txtPasswor

5、d = password Then 將代碼放在這里傳遞 成功到 calling 函數(shù) 設(shè)置全局變量時(shí)最容易的 LoginSucceeded = True Me.Hide Else MsgBox 無效的密碼，請(qǐng)重試!, , 登錄 txtPassword.SetFocus SendKeys Home+End End IfEnd Sub4如何給vb程序打包？ (1)打開VB6.0 IDE，加載你的工程，單擊“外接程序”菜單下的“外接程序管理器”。 (2)在彈出的窗體中選擇“打包和展開向?qū)А保ㄗ詈笠豁?xiàng)）,在加載行為中選擇“加載/卸載”，確定。 (3)再次單擊“外接程序”菜單項(xiàng)，單擊“打包和展開向?qū)А薄?(4)單擊“打包”，選擇“標(biāo)準(zhǔn)安裝包”，一直單擊下一步，最后點(diǎn)“完成”，點(diǎn)“關(guān)閉”。 (5)此時(shí)你的工程文件夾下會(huì)有一個(gè)名為“包”的文件夾。 (6)單擊“展開”，單擊下一步（2個(gè)），此時(shí)詢問“您希望在哪里展開這個(gè)包？”，單擊“新建文件夾” 在電腦中其他位置新建一個(gè)文件夾，單擊下一步，點(diǎn)“完成”，點(diǎn)“關(guān)閉”。 (7)關(guān)閉“打包和展開向?qū)А薄?(8)在剛才建立的文件夾下就是安裝程序了?。ㄈ齻€(gè)文件：工程名.cab setup.exe setup.lst）_ 注意：如果在其他機(jī)器上安裝時(shí)提示“需要重新啟動(dòng)”，通常是你的程序中引用的資源路徑不正確，請(qǐng)用