當前位置:首頁 » 視頻軟體 » 怎樣製作一個簡單的錄入軟體
擴展閱讀
怎樣以照片查找位置 2025-05-05 18:12:55
胱抑素c低是什麼原因 2025-05-05 18:11:10

怎樣製作一個簡單的錄入軟體

發布時間: 2022-08-05 21:36:49

1. 如何製作一個簡單的表單錄入文件/程序

因為我是學習計算機軟體專業的,故可以非常負責地告訴你:如果想實現這樣復雜功能的程序,那絕對不是只靠一些簡單的程序語句就能夠實現的。你必須至少要學習過、並精通掌握:C 語言編程(尤其是 C 語言中的指針是必須要徹底理解、熟練掌握的,因為它和鏈表的聯系實在是太緊密了)、數據結構、計算機演算法,這三門課程所涉及到的所有內容(數組、各種鏈表、二叉樹等,以及各種排序演算法、各種搜索演算法的優劣)。這有這樣,編寫出來的軟體才能夠運行效率非常高、軟體的穩定性很好。
否則的話,如果你只會簡單的 VB/C++編程的話,那是肯定不可能完成這個編程任務的。
另外了,正如你所說的:你想生成 word、excel、或者是 jpeg 格式文件,那麼首先你必須要精通這些文件的內部存儲結構。否則的話,如果你連這些格式的文件的內部存儲結構都不知道的話,你是絕對無法生成這些格式的文件的。

2. VB新人求助用VB寫一個簡單的錄入軟體

可以使用sql語句INSERT INTO table_name (列1, 列2,...) VALUES (值1, 值2,....)
也可以使用:
Adodc1.Recordset.AddNew 欄位名, text1.Text
Adodc1.Recordset.Update

3. 怎樣開發一個簡單的sql資料庫錄入界面,用sql來操作

資料庫管理系統
軟體只是做伺服器上的資料庫管理,不管界面,SQL
Server是一種主流資料庫管理系統軟體,它同樣也不提供做界面的功能,如果需要界面,必須採用一種高級編程語言,如Java、C++、VB、C#等編寫,然後與
後台資料庫
相關聯(可以採用ODBC、JDBC、ADO.NET等多種方法)。

4. 如何做一個簡單的數據輸入錄入軟體

加我 驗證要說明你要軟體,我幫你做一個 QQ 1 2 7 4 2 0 6 9 8 9

5. Audition1.5 怎樣錄音 我想用這軟體做最簡單的錄入,錄入我的聲音就行了。

首先准備一隻話筒,插入主機上的「話筒輸入」(若插頭是大的那種,買個轉接器,只要能插入電腦就行。
Audition1.5分為單軌錄音和多軌錄音兩種,若想卡拉OK錄音,用第二種。
單軌錄音:啟動Audition1.5, 新建,用默認設置即可,確定。
點「選項」,勾選「錄音電平」和「錄制調音台」,開始試唱,在錄音控制一欄中調節滑塊,同時觀察兩條綠色電平線的變化,最佳電平是在-18~-3dB之間,最大不要超過0dB。太大,則失真,太小,則雜訊大,這點相當重要,是錄音的關健。然後點擊紅色按鈕,即可錄音。
多軌錄音:點擊菜單欄第二個圖標,進入多軌模式,點「插入」,打開音頻文件或視頻文件,則被添加到第一軌,點擊空白軌道上的R鈕,再點擊左下角紅色錄音鈕,即可邊聽邊錄音。
需要說明的是,要使你的聲音更完美,需作降噪、壓限、均衡和激勵處理,你可下載一些插件,安裝後配合使用就更好了。

6. 怎麼自己製作一個輸入法軟體

根本不用學什麼語言,就用WINDOWS自帶的輸入法生成器就可以。在C:\Program Files\Windows NT\Accessories\imegen.exe就能生成。首先,你得整理自己的輸入法規則。然後用記事本編緝(下面是拼音的規則):[Description]
Name=全拼 (輸入法的名字)
MaxCodes=12 (輸入法的最大編碼長度,也就是說最多的拼音長度是12)
MaxElement=1 (輸入法的信息元,1代表單符,2代表多符)
UsedCodes=abcdefghijklmnopqrstuvwxyz (輸入法的碼元集,也就是說,26個字母都在編碼之列)
WildChar=? (輸入法的查詢鍵,有不會的拼音字元可以用?來代替)
[Text] (下面就是字的編碼了)
啊a (就是打字母a就是出現漢字"啊")
阿a
呵a
吖a
嗄a
腌a
錒a
錒a
阿爸aba
阿昌achang.........最後保存擴展名是TXT文件,然後用IMEGEN.EXE來生成輸入法文件(MB),就可以了。

7. 如何通過EXCEL製作一個錄入收集系統

一、數據採集系統功能 錄入、保存、查詢、清空、修改

二、兩個界面

1.數據錄入界面:前台功能使用界面,實現「錄入、保存、查詢、清空、修改」;

2. 數據存儲界面:後台實現數據的保存; 錄入界面:

三、實現方法 1. 保存功能 Sub Save() '

'保存數據 Marco,xiaohou製作,時間2013-9-5 '

Dim r1, r2, r3 As Range With Sheets("數據存儲")

Set r2 = .Range("a2", .[a100000].End(xlUp)) End With

With Sheets("數據錄入") Set r1 = .Range("c4:e4, d6:l39")

If IsEmpty(.Range("c4")) Or IsEmpty(.Range("e4")) Then 'Or IsEmpty(.Range("b7:b41")) 添加科室不為空,未成功 MsgBox ("編碼、名稱為空,不可保存!") Else

Set r3 = r2.Find(.Cells(4, 3), , , 1) If Not r3 Is Nothing Then

MsgBox ("此編碼已存在,不可保存。如果此信息需要修改,請點擊查詢後再修改")

Else

Sheets("數據存儲").Rows("2:35").Insert Shift:=xlDown

.Range("c6:l39").Copy '復制「數據錄入」表體信息

Sheets("數據存儲").Range("c2:l2").PasteSpecial Paste:=xlPasteValues .Range("c4").Copy '復制「數據錄入」編碼

Sheets("數據存儲").Range("a2:a35").PasteSpecial Paste:=xlPasteValues .Range("e4").Copy '復制「數據錄入」名稱

Sheets("數據存儲").Range("b2:b35").PasteSpecial Paste:=xlPasteValues r1.ClearContents '保存數據後,清空錄入界面

.Range("c4").Select End If End If End With End Sub

2. 查詢功能 Sub Query() '

' 查詢篩選 Macro,xiaohou製作,時間2013-9-5 ' '

Dim Erow As Integer Dim r1, r2 As Range With Sheets("數據錄入") Set r1 = .Range("d6:l39") Set r2 = .Range("a6:b39")

Erow = Sheets("數據存儲").[a100000].End(xlUp).Row

r1.ClearContents

'For Each ce In .[a2:x2]

'If ce <> "" Then ce.Value = "*" & ce & "*" '加上通配符*,實現模糊查詢

'Next

If IsEmpty(.Range("c4")) Or IsEmpty(.Range("e4")) Then

'Or IsEmpty(.Range("b7:b41")) 添加科室不為空,未成功

MsgBox ("編碼、名稱為空,不可查詢!") Else

Sheets("數據存儲").Range("A1:l" & Erow).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _ .[c3:e4], CopyToRange:=.[A5:l5], Unique:=False

r2.Borders(xlDiagonalDown).LineStyle = xlNone r2.Borders(xlDiagonalUp).LineStyle = xlNone

r2.Borders(xlEdgeLeft).LineStyle = xlNone

r2.Borders(xlEdgeTop).LineStyle = xlNone

r2.Borders(xlEdgeBottom).LineStyle = xlNone

'r2.Borders(xlEdgeRight).LineStyle = xlNone r2.Borders(xlInsideVertical).LineStyle = xlNone

r2.Borders(xlInsideHorizontal).LineStyle = xlNone

r2.NumberFormatLocal = ";;;"

'For Each ce In .[a2:x2]

'If ce <> "" Then ce.Value = Mid(ce, 2, Len(ce) - 2) '取消 "*"通配符

'Next End If End With End Sub

3. 更新 Sub Update() '

'更新 Macro,xiaohou製作,時間2013-9-5

Dim arr, d As Object

Dim r As Range

Dim lr&, i&, j%

With Sheets("數據錄入") '查詢修改工作表數據區域寫入數組arr

'arr = .Range("A7:D" & .Range("A65536").End(xlUp).Row)

arr = .Range("a6:l39")

Set r = .Range("d6:l39")

End With

Set d = CreateObject("scripting.dictionary") '定義字典對象

For i = 1 To UBound(arr) '逐行

'If Len(arr(i, 2)) <> 0 Then '排出「合計」行,即:姓名務數據

If Not d.exists(arr(i, 1) & arr(i, 2) & arr(i, 3)) Then d(arr(i, 1) & arr(i, 2) & arr(i, 3)) = arr(i, 4) & Chr(9) & arr(i, 5) _

& Chr(9) & arr(i, 6) & Chr(9) & arr(i, 7) & Chr(9) & arr(i, 8) & Chr(9) & arr(i, 9) & Chr(9) & arr(i, 10) & Chr(9) & arr(i, 11) & Chr(9) & arr(i, 12)

'上一句:如果編碼和名稱連接字元串字典不存在(首次出現,這里判斷可能多餘),這個字元串添加到字典鍵值,後續的相關屬性欄位用製表符連接添加到字典條目

'End If Next

With Sheets("數據存儲")

lr = .Range("A100000").End(xlUp).Row '數據存儲工作表數據行數

'.Range("C2:D" & lr).SpecialCells(xlCellTypeConstants, 23).ClearContents '清除C、D列不含公式單元格的值

arr = .Range("A2:l" & lr) '數據存儲工作表數據區域寫入數組arr

For i = 1 To UBound(arr) '逐行

If d.exists(arr(i, 1) & arr(i, 2) & arr(i, 3)) Then '如果編碼和名稱連接字元串字典存在,即Sheet2中有

For j = 4 To 12 'D、E、F...列逐列

'If Not Cells(i, j).HasFormula Then Cells(i, j) = Split(d(arr(i, 1) & arr(i, 2)), Chr(9))(j - 3)

'上句:如果單元格不含公式,把Sheet2對應的數據寫入這個單元格

.Cells(i+1,j)=Split(d(arr(i,1)&arr(i,2)&arr(i,3)),Chr(9))(j-4)

Next

EndIf

Next

EndWith

r.ClearContents

Sheets("

數據錄入

").Cells(4,3).Select

MsgBox("

數據已更新完成,若要查看更新後的內容,請點擊按鈕查詢")

8. 怎麼樣用excel做個訂單錄入系統。請高手指點。詳細點。

你所說的,本質上就是信息的共享與許可權控制。用excel也能做,但文件式的共享存在很多問題,如:不便做許可權控制、不穩定,經常出現不能保存、數據沖突等現象。你可以嘗試一下華創信息管理平台。其設計思想和excel是一樣的,但有以下優勢:
1、後台使用的是資料庫,無論是容量還是性能,都會大幅提升。
2、B/S網路架構,整個系統只需在一台電腦上安裝,一般電腦無需任何安裝,使用瀏覽器即可訪問。如果將伺服器接入 Internet,您的員工無論分布在哪裡、出差到哪裡,即使在家裡、在網吧,只要能上網,隨時都可進行信息查詢與處理。
3、用戶管理和許可權控制更完善,用戶憑密碼登陸,不同類型人員可訪問哪些表、可作哪些操作都可控制,控制粒度細化到記錄、細化到欄位。
4、有詳盡的操作日誌可供查詢。用戶何時何地(IP地址)登錄、退出,作了哪些操作均逐一記錄在案,可供查詢;每一條記錄的每一次數據處理,都保留有何人、何時修改,更改前、更改後的值等歷史數據,一旦出現疑問您可完整了解該記錄的處理過程。

針對你目前的要求,具體做法如下:
1、首先建2個表,表1:產品信息基本表,含產品代碼、產品名稱、計量單位、單價...等基本信息;表2:訂單信息表,含客戶名稱、訂單日期、訂貨數量、單價、金額...等信息。
2、建立表間關聯,表1<-->表2間用產品代碼建立起主表-子表關系,並使得表2的單價是從表1的單價引用過來的,而不是自由輸入的。
3、設置計算公式,使得訂單中的金額=訂貨數量*單價。
4、設置許可權控制,使得一般用戶不能修改產品信息基本表,只有高級用戶才可以修改。

簡單幾步,基本上就能滿足你的要求了,該平台無需編程、自由建表,因此能管理各種數據。接下來,你也許想增加其它管理,繼續建表即可。一句話,與一般軟體相比,最大好處是可隨時調整、擴展,不是固定死的。