![]() |
請各位vb前輩幫助我^^
大家好^^~最近老師要我用VB做一套簡易的"漫畫出租系統"
但小弟才剛開始接觸VB,要完整的做出來真的很困擾:on_22: 很擔心寫不出來因此被當QQ 請各位大大給我一些指教~~謝謝:on_79: 我自己做出了漫畫出租系統的控制項了,但不知道怎麼把那張exe檔圖片上傳給大大們看,我只能簡單直述了 抱歉! 我總共用了6個Label,text分別是交易編號、租借數量(本)、總金額、書籍編號、書籍名稱、租書明細表 交易編號、租借數量(本)、總金額下都有一個textbox 而書籍編號、書籍名稱下都各有一個ComboBox 然後租書明細表下有個大框框ListBox 在來用了4個Button 按鈕 text分別是 新增、修改、刪除、存檔 請各位大大幫忙給我一些寫出這程式的方向 感恩:n3: |
引用 版主的 話
=========[建議 與 經驗]========= a. 如有課業上的問題,請稍微自己努力一下開個頭,要他人從無到有解答 通常很少人會去回答的... 劣者先建議你把環境 OR 概念描述出來 EX: 資料庫 (來源:MDB/SQL Server/.....) 資料表 (應該有數個資料表) 資料欄位 (每個資料表的欄位有哪些) |
應該去逛書店或學校圖書館...找相關的書籍...書中一定都會有如何利用VB連結資料庫、讀取資料、寫入資料、顯示資料在控制項中、資料表如何規劃、一開始建議資料庫用Access
|
你好!!感謝大大的回覆^^~
我們要做的好像不是資料庫 而是VB2008~ 我有自己努力把程式碼打出來,但根本不像樣= = 除錯之後一直怪怪的 我有做好控制項但好像沒辦法PO上來給大大看 我只能PO我打的程式碼了,請參閱 (但還沒完成QQ) Public Class frmBooksOreder Dim money(100) As Integer Private Sub frmBooksOreder_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load loadcmbBooks() End Sub Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click Dim cho As String = "" Dim cup As Integer = Val(cmbCup.Text) If (cmbBooks.SelectedIndex <> -1 And cmbCup.SelectedIndex > 0) Then cho = cmbBooks.Text & "," & cmbBooks.SelectedIndex & "," & cmbCup.Text lstItem.Items.Add(cho) txtTotal.Text += cup txtMoney.Text += cup * money(cmbBooks.SelectedIndex) btnAdd.Enabled = False clearItems() If lstItem.Items.Count > 0 Then btnSave.Enabled = True End If End Sub End Class 我想要出的概念是在用書籍編號、書籍名稱的ComboBox 選取資料後 按下新增按鈕 然後在交易編號、租借數量(本)、總金額的textbox 以及 租書明細表的ListBox 分別都會出現該借閱書籍的資料 也許我的程式碼哩哩拉拉= = 但還是請前輩們多多指教~ 謝謝^^ |
引用:
還是這隻程式只要 FOR 臨時的資料==>用完不保留的 用VB做一套簡易的"漫畫出租系統" ==>這個描述很模糊,需要再定義清楚一點 又如你現在的程式碼(目前我看到的只是一個 新增按鈕的運作) 也沒寫出什麼問題 --> 那那是要怎麼幫 引用:
每加/減/改一次資料 這隻程式都要改版,也太累了點 引用:
cmbBooks ==> 內是放什麼東東啊 cmbCup ==> 內是放什麼東東啊 是要我猜我猜我猜猜猜嗎 :on_47: |
所有時間均為台北時間。現在的時間是 06:53 PM。 |
Powered by vBulletin® 版本 3.6.8
版權所有 ©2000 - 2025, Jelsoft Enterprises Ltd.
『服務條款』
* 有問題不知道該怎麼解決嗎?請聯絡本站的系統管理員 *