Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
adoPrimaryRS.AddNew
Else
adoPrimaryRS.Fields("文件号")=Text1.Text
adoPrimaryRS.Fields("文件名")=Text2.Text
adoPrimaryRS.Fields("作者")=Text3.Text
adoPrimaryRS.Fields("内容摘要")=Text4.Text
adoPrimaryRS.Fields("入库日期")=Date
adoPrimaryRS.Fields("状态")="否"
adoPrimaryRS.Update
Command5.Caption="添加"
Text1.Enabled=False
Text2.Enabled=False
Text3.Enabled=False
Text4.Enabled=False
EndIf
EndSub
PrivateSubCommand6_Click()
IfCommand6.Caption="编辑"Then
Command6.Caption="更新"
Text1.Enabled=True
Text2.Enabled=True
Text3.Enabled=True
Text4.Enabled=True
Else
adoPrimaryRS.Fields("文件号")=Text1.Text
adoPrimaryRS.Fields("文件名")=Text2.Text
adoPrimaryRS.Fields("作者")=Text3.Text
adoPrimaryRS.Fields("内容摘要")=Text4.Text
adoPrimaryRS.Update
Text1.Enabled=False
Text2.Enabled=False
Text3.Enabled=False
Text4.Enabled=False
EndIf
EndSub
PrivateSubCommand7_Click()
adoPrimaryRS.Delete
EndSub
PrivateSubCommand8_Click()
EndSub
PrivateSubCommand9_Click()
Frame4.Visible=True
Frame2.Visible=False
Command9.Enabled=False
EndSub
PrivateSubDataGrid1_Click()
Text1.Text=adoPrimaryRS.Fields("文件号")
Text2.Text=adoPrimaryRS.Fields("文件名")
Text3.Text=adoPrimaryRS.Fields("作者")
Text4.Text=adoPrimaryRS.Fields("内容摘要")
EndSub
PrivateSubForm_Load()
Left=(Screen.Width-Width)\2
Top=(Screen.Height-Height)\2
DimdbAsConnection
Setdb=NewConnection
db.CursorLocation=adUseClient
db.Open"PROVIDER=Microsoft.Jet.OLEDB.3.51;DataSource=dagl.mdb;"
SetadoPrimaryRS=NewRecordset
adoPrimaryRS.Open"select文件号,文件名,作者,入库日期,状态,内容摘要fromfile",db,adOpenStatic,adLockOptimistic
IfadoPrimaryRS.EOFThen
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Else
Text1.Text=adoPrimaryRS.Fields("文件号")
Text2.Text=adoPrimaryRS.Fields("文件名")
Text3.Text=adoPrimaryRS.Fields("作者")
Text4.Text=adoPrimaryRS.Fields("内容摘要")
EndIf
SetDataGrid1.DataSource=adoPrimaryRS
EndSub
创建卷名窗体的源代码:
DimWithEventsadoPrimaryRSAsRecordset
Dima(100)AsString
DimdbAsConnection
PrivateSubCommand1_Click()
IfCommand1.Caption="创建节点"Then
Append=MsgBox("节点序号确实无误吗",vbOKCancel,"核对节点序号")
IfAppend=vbOKThen
Command1.Caption="保存节点"
Text1.Enabled=True
Text1.SetFocus
Text2.Enabled=True
Text3.Enabled=True
Command1.Enabled=True
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=False
Command5.Enabled=False
EndIf
Else
Command1.Caption="创建节点"
adoPrimaryRS.AddNew
adoPrimaryRS.Fields("卷号")=Text1.Text
adoPrimaryRS.Fields("卷名")=Text2.Text
adoPrimaryRS.Fields("备注")=Text3.Text
adoPrimaryRS.Fields("创卷人员")="管理员"
adoPrimaryRS.Fields("创卷日期")=Date
adoPrimaryRS.Update
Text1.Enabled=False
Text2.Enabled=False
Text3.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=True
Command5.Enabled=False
EndIf
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
PrivateSubCommand3_Click()
IfCommand3.Caption="编辑节点"Then
Command3.Caption="保存节点"
Text1.Enabled=True
Text2.Enabled=True
Text3.Enabled=True
Text1.SetFocus
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=True
Command4.Enabled=False
Command5.Enabled=False
Else
Command3.Caption="编辑节点"
Text1.Enabled=False
Text2.Enabled=False
Text3.Enabled=False
adoPrimaryRS.Fields("卷号")=Text1.Text
adoPrimaryRS.Fields("卷名")=Text2.Text
adoPrimaryRS.Fields("备注")=Text3.Text
adoPrimaryRS.Update
Text1.Text=""
Text2.Text=""
Text3.Text=""
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=True
Command5.Enabled=False
EndIf
EndSub
PrivateSubCommand4_Click()
Command1.Enabled=True
Command2.Enabled=True
Command3.Enabled=True
Command4.Enabled=True
Command5.Enabled=True
TreeView1.Nodes.Clear
Setmynod=TreeView1.Nodes.Add(,,"sort","案卷名称及卷号"&"("&"00"&")")
Setdb=NewConnection
db.CursorLocation=adUseClient
db.Open"PROVIDER=Microsoft.Jet.OLEDB.3.51;DataSource=dagl.mdb;"
SetadoPrimaryRS=NewRecordset
adoPrimaryRS.Open"select卷号,卷名,备注,创卷人员,创卷日期fromsort",db,adOpenStatic,adLockOptimistic
adoPrimaryRS.MoveFirst
i=0
Do
IfLeft(adoPrimaryRS.Fields("卷号"),1)=0Then
Setmynod=TreeView1.Nodes.Add("sort",tvwChild,"sort"&Str$(i),adoPrimaryRS.Fields("卷名")&"("&adoPrimaryRS.Fields("卷号")&")")
i=i+1
EndIf
adoPrimaryRS.MoveNext
LoopWhileNotadoPrimaryRS.EOF
adoPrimaryRS.MoveFirst
i=0
Do
IfLeft(adoPrimaryRS.Fields("卷号"),1)=1Then
Setmynod=TreeView1.Nodes.Add("sort"&Str$(0),tvwChild,,adoPrimaryRS.Fields("卷名")&"("&adoPrimaryRS.Fields("卷号")&")")
i=i+1
EndIf
adoPrimaryRS.MoveNext
LoopWhileNotadoPrimaryRS.EOF
adoPrimaryRS.MoveFirst
i=0
Do
IfLeft(adoPrimaryRS.Fields("卷号"),1)=2Then
Setmynod=TreeView1.Nodes.Add("sort"&Str$(1),tvwChild,,adoPrimaryRS.Fields("卷名")&"("&adoPrimaryRS.Fields("卷号")&")")
i=i+1
EndIf
adoPrimaryRS.MoveNext
LoopWhileNotadoPrimaryRS.EOF
adoPrimaryRS.MoveFirst
i=0
Do
IfLeft(adoPrimaryRS.Fields("卷号"),1)=3Then
Setmynod=TreeView1.Nodes.Add("sort"&Str$(2),tvwChild,,adoPrimaryRS.Fields("卷名")&"("&adoPrimaryRS.Fields("卷号")&")")
i=i+1
EndIf
adoPrimaryRS.MoveNext
LoopWhileNotadoPrimaryRS.EOF
adoPrimaryRS.MoveFirst
i=0
Do
IfLeft(adoPrimaryRS.Fields("卷号"),1)=4Then
Setmynod=TreeView1.Nodes.Add("sort"&Str$(3),tvwChild,,adoPrimaryRS.Fields("卷名")&"("&adoPrimaryRS.Fields("卷号")&")")
i=i+1
EndIf
adoPrimaryRS.MoveNext
LoopWhileNotadoPrimaryRS.EOF
adoPrimaryRS.MoveFirst
i=0
Do
IfLeft(adoPrimaryRS.Fields("卷号"),1)=5Then
Setmynod=TreeView1.Nodes.Add("sort"&Str$(4),tvwChild,,adoPrimaryRS.Fields("卷名")&"("&adoPrimaryRS.Fields("卷号")&")")
i=i+1
EndIf
adoPrimaryRS.MoveNext
LoopWhileNotadoPrimaryRS.EOF
adoPrimaryRS.MoveFirst
i=0
Do
IfLeft(adoPrimaryRS.Fields("卷号"),1)=6Then
Setmynod=TreeView1.Nodes.Add("sort"&St
上一篇:
VB文档管理信息系统(论文和程序)
下一篇:
锦鲤送不停 猎豹汽车嗨翻“疯狂购车季”