|
4.3 文件编辑窗体的实现 1）运行时的窗体： paper51.com
内容来自www.paper51.com 2）控件和事件 copyright paper51.com 控件包括最首，上一个，下一个，最末，添加，编辑，删除，查询，导出，退出等按钮和用于输入信息的文本框。，其中导出按钮是隐藏在框架4中，点击查询即可显示。这些按钮控件的事件和前面档案柜资料窗体相似。下面对编辑，添加这两个按钮的事件和实现语句分析如下： copyright paper51.com a）“编辑”按钮控件：click事件是将按钮名改成“保存”，增加了系统的交互性。同时使文本框变得可编辑。 “保存” 按钮控件的click事件是将按钮名改成“编辑”，同时用文本框的记录修改数据库中的记录。它的实现语句是： copyright paper51.com If Command6.Caption = "编辑" Then 内容来自www.paper51.com Command6.Caption = "更新" 内容来自www.paper51.com
Text1.Enabled = True http://www.paper51.com Text2.Enabled = True copyright paper51.com Text3.Enabled = True paper51.com Text4.Enabled = True http://www.paper51.com Else paper51.com adoPrimaryRS.Fields("文件号") = Text1.Text copyright paper51.com adoPrimaryRS.Fields("文件名") = Text2.Text 内容来自论文无忧网 www.paper51.com adoPrimaryRS.Fields("作者") = Text3.Text 内容来自论文无忧网 www.paper51.com adoPrimaryRS.Fields("内容摘要") = Text4.Text 内容来自论文无忧网 www.paper51.com adoPrimaryRS.Update http://www.paper51.com Text1.Enabled = False copyright paper51.com Text2.Enabled = False 内容来自www.paper51.com
Text3.Enabled = False copyright paper51.com Text4.Enabled = False paper51.com
End If paper51.com 2）“添加”按钮控件：click事件是将按钮名改成“保存”，增加了系统的交互性。同时使文本框变得可编辑。 “保存” 按钮控件的click事件是将按钮名改成“添加”，此时使文本框变得不可编辑，同时用文本框的记录添加到数据库末尾。添加完成后，网格容器控件中的数据自动更新。它的实现语句是： copyright paper51.com If Command5.Caption = "添加" Then paper51.com Command5.SetFocus copyright paper51.com Command5.Caption ="保存" http://www.paper51.com
Text1.Enabled =True 内容来自www.paper51.com Text2.Enabled =True http://www.paper51.com Text3.Enabled =True 内容来自论文无忧网 www.paper51.com
Text4.Enabled =True http://www.paper51.com Text1.SetFocus paper51.com Text1.Text ="" copyright paper51.com Text2.Text ="" 内容来自论文无忧网 www.paper51.com
Text3.Text ="" 内容来自www.paper51.com Text4.Text ="" 内容来自论文无忧网 www.paper51.com adoPrimaryRS.AddNew paper51.com
Else 内容来自www.paper51.com
adoPrimaryRS.Fields("文件号") = Text1.Text paper51.com
adoPrimaryRS.Fields("文件名") = Text2.Text http://www.paper51.com adoPrimaryRS.Fields("作者") = Text3.Text 内容来自论文无忧网 www.paper51.com adoPrimaryRS.Fields("内容摘要") = Text4.Text copyright paper51.com adoPrimaryRS.Fields("入库日期") = Date 内容来自论文无忧网 www.paper51.com adoPrimaryRS.Fields("状态") = "否" 内容来自www.paper51.com
adoPrimaryRS.Update paper51.com
Command5.Caption ="添加" paper51.com
Text1.Enabled =False http://www.paper51.com Text2.Enabled =False 内容来自论文无忧网 www.paper51.com Text3.Enabled =False copyright paper51.com Text4.Enabled =False http://www.paper51.com End If 内容来自论文无忧网 www.paper51.com 4.4 组卷窗体的实现 内容来自www.paper51.com 1)运行时的窗体： copyright paper51.com 2）控件和事件 paper51.com a)treeview控件：nodeclick事件是将treeview控件选中的节点值传给文本框，得到卷号和卷名，将此作为网格容器控件中的数据源的查询条件。并将查询记录集作为网格容器控件中的数据源。 内容来自www.paper51.com 内容来自www.paper51.com 实现的语句如下： paper51.com Dim db AsConnection 内容来自论文无忧网 www.paper51.com Set db = New Connection paper51.com db.CursorLocation = adUseClient paper51.com
db.Open"PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=dagl.mdb;" paper51.com Set adoPrimaryRS = New Recordset http://www.paper51.com Text4.Text =Left$(Right$(Node.Text, 3), 2) 内容来自论文无忧网 www.paper51.com Text1.Text =Text4.Text copyright paper51.com Text2.Text =Left$(Node.Text, Len(Node.Text) - 4) 内容来自www.paper51.com If Text4.Text<> "00" Then http://www.paper51.com Set adoPrimaryRS = New Recordset 内容来自www.paper51.com adoPrimaryRS.Open "select 卷号,卷名,文件号,文件名,作者,入库日期,内容摘要,档案柜号,入卷日期,组卷人,状态 from file where 卷号 like '%" & Text4.Text &"%'", db, adOpenStatic, adLockOptimistic 内容来自www.paper51.com Else 内容来自www.paper51.com Text1.Text = "00" copyright paper51.com Text2.Text = "" 内容来自论文无忧网 www.paper51.com End If 内容来自www.paper51.com Text6.Enabled =True copyright paper51.com Text6.SetFocus paper51.com
Command4.Enabled =True http://www.paper51.com SetDataGrid1.DataSource = adoPrimaryRS paper51.com b）“查询”按钮控件：click事件是根据当前窗体中的组合框控件和文本框控件的内容，作为查询的条件。这个查询是本系统最重要的一个功能。它的实现关键功能语句与说明如下： paper51.com Dim db As Connection http://www.paper51.com Set db = New Connection copyright paper51.com db.CursorLocation = adUseClient 内容来自论文无忧网 www.paper51.com db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;DataSource=dagl.mdb;" 内容来自www.paper51.com Set adoPrimaryRS = New Recordset 内容来自论文无忧网 www.paper51.com a = Combo1.Text paper51.com b = Text7.Text paper51.com adoPrimaryRS.Open "select 卷号,卷名,文件号,文件名,作者,入库日期,内容摘要,档案柜号,入卷日期,组卷人,状态 from file where " & a & " like '%" & b &"%'", db, adOpenStatic, adLockOptimistic 内容来自论文无忧网 www.paper51.com Set DataGrid1.DataSource = adoPrimaryRS paper51.com c) 导出按钮控件的click事件是将当前网格容器控件中的查询结果导出到EXCEL表以实现报表打印。导出的主要语句如下： copyright paper51.com For i = 0 To adoPrimaryRS.RecordCount - 1 http://www.paper51.com Forj = 0 To adoPrimaryRS.Fields.Count - 1 paper51.com DataGrid1.Row = i paper51.com DataGrid1.Col = j copyright paper51.com xlsheet.Cells(i + 2, j + 1) = DataGrid1.Text http://www.paper51.com Nextj paper51.com
Next i paper51.com Set xlapp = Nothing 内容来自www.paper51.com
Set xlbook = Nothing copyright paper51.com
|