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、设置权限控制，使得一般用户不能修改产品信息基本表，只有高级用户才可以修改。
简单几步，基本上就能满足你的要求了，该平台无需编程、自由建表，因此能管理各种数据。接下来，你也许想增加其它管理，继续建表即可。一句话，与一般软件相比，最大好处是可随时调整、扩展，不是固定死的。