VB+ACCESS制作设备维护状况数据库,请高手指点.

Question

工作需要做一软件,如题.
设备库
(编号,名称,状态,备注,负责人)
添加设备->如:编号001 ....
删除设备->
查看__设备状态->比如输入001,则画出编号001的设备本月内状态图(1表正常,0表故障),输入具体日期,则可以查看某日机床状态,如果有故障,则显示备注.
(下拉菜单)选择负责人,则列出该人负责的设备,选取设备双击后出现该设备月状况图表...(表同上)大致如此,因为小弟功底太浅,虽然有点思路但还是不敢下手.还请大家出谋划策,分数不是问题(-_-!反正不多,都拿去吧)

Answer 1

用控件可以完全实现.
可以用shap的颜色变动表示1或0状态，(如红色表示故障,绿色表示正常)等等
和数据库记录配合起来,其实就是对数据库的操作。

Answer 2

T_T ..请问在VB下用什么语句可以生成新库呢？（比如新建某设备002的状态库）
请问可以提供一些这方面的例子或资料么？一个人盲目的乱找，太麻烦了，而且，这次也很急，时间不多，谢谢了

Answer 3

推荐下面几个VB站点http://www.vbzx.net/
http://www.vbgood.com/
http://www.vbprobe.com/club/default.asp
http://www.applevb.com/

Answer 4

把数据库设计好看ADO是怎么使用的设计好界面，无非是那几个常用的组合：treeview/listview/MSHflexgrid......

Answer 5

www.21code.com
这里例子很多

Answer 6

从网上找本关于ADO的电子书，看一看你就可以解决的。有了整体思路在动手，省得返工，数据库很重要，一定要做好

Answer 7

dim conn as new ado.connection
dim rs as new ado.recordset
dim strsql as string 
就可以很方便的操作数据库 了。

Answer 8

谁能实现控件随着窗体的大小改变而改变呢？资源管理器中treeview和listview之间滚动条是如何相互协调的？

Answer 9

大胆去干，遇到具体问题再提出来大伙都会帮你的。ADO中文帮助(CHM)
http://www.xia8.com/SoftView/SoftView_1147.html

Answer 10

'工程->引用Microsoft ADO Ext. 2.x for DDL and Security
Sub CreateKey()
'建立主键
Dim adPrimary As New ADOX.Key
Dim mCat As New ADOX.Catalog
    mCat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb" & ";Persist Security Info=False"
    adPrimary.Name = "AddPriKey"
    adPrimary.Type = adKeyPrimary
    adPrimary.Columns.Append "自动增号"
    adPrimary.UpdateRule = adRICascade
    mCat.Tables("OneTable").Keys.Append adPrimary
End SubSub CreateTableAndIndexAndAutoIncrementField()   Dim mTbl As New Table
   Dim mIdx As New ADOX.Index
   Dim mCat As New ADOX.Catalog   ' 打开目录。
   mCat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb" & ";Persist Security Info=False"
   
   ' 定义表并将其追加到目录
   mTbl.Name = "OneTable"
   mTbl.ParentCatalog = mCat
   mTbl.Columns.Append "自动增号", adInteger
   mTbl.Columns("自动增号").Properties("Jet OLEDB:Allow Zero Length").Value = False
   mTbl.Columns("自动增号").Properties("AutoIncrement").Value = True       '设置该字段为自增字段
   mTbl.Columns.Append "帐号", adVarWChar
   mTbl.Columns.Append "名称", adVarWChar
   mTbl.Columns.Append "金额", adCurrency
   mTbl.Columns.Append "代销", adDouble
   mTbl.Columns("代销").Attributes = adColNullable   '设置该字段允许空
   mCat.Tables.Append mTbl
   
   ' 定义多列索引
   mIdx.Name = "MultiColIdx"
   mIdx.Columns.Append "自动增号"   ' 将索引追加到表上
   mTbl.Indexes.Append mIdxEnd SubPrivate Sub Command1_Click()
    Call CreateTableAndIndexAndAutoIncrementField
    Call CreateKey
End Sub