窗体内公用的数据表，在使用视图和行过滤时的有趣现象
 
1、开发环境，C#2005WINFORM
 
2、现象，窗体中公用了一个DataTable，原因
 
1)有一个列表控件，使用原始的数据表，即不排序和过滤，也不用视图。
 
2)有一个下拉框控件，使用原始数据表的视图，但要求排序和过滤
 
3)两个控件的绑定事件均在load事件中调用，先列表，后下拉框，结果列表中的记录也被过滤掉了一部分，即与下拉框的内容相同了
 
3、解决方法，不用相同的数据表，在下拉框的绑定时，必须新定义一个表，且不能设置为相等，要用新表等于旧表的复制才行。
 
如，DataTable dtFieldInfotmp = dtFieldInfo.Copy();        //复制该 DataTable 的结构和数据
 
 

 
1.本课的课程内容是设计窗体，设计视图创建窗体可更加自主与灵活，完全控制窗体的布局和外观。
 

 
2.窗体的设计视图的组成是由五部分组成，分别是窗体页眉、窗体页脚、页面页眉、页面页脚、主体。
 

 
3.打开【教学管理.accdb】，点击【创建】-【窗体设计】，窗体默认只显示【主体】，选择【主体】区域，按【右键】-【页面页眉/页脚】与【窗体页眉/页脚】，将其全部显示出来。
 

 
4.窗体页眉在窗体顶部位置，一般用于窗体的标题与产品使用说明，一般存放标签和说明文字。页面页眉一般是设置窗体打印时的页面信息，页面页眉在每页都显示，窗体页眉只在第一页显示。
 

 
5.主体是用来记录数据的，页面上只显示一条或多条记录。页面页脚是设置窗体在打印时的页脚信息，比如：日期等在下方显示的内容。窗体页脚是在底部，显示所有记录显示的内容。
 

 
6.“窗体设计工具“选项卡在功能区内，它有三个选项卡，分别为设计、排列、格式，设计用到的工具有视图、主题、控件、页眉页脚、工具。
 

 
7.打开【数据库】，点击【设计】，点击【视图】，可选择【窗体视图】、【数据透视图】、【数据透视表视图】、【数据透视图视图】、【布局视图】、【设计视图】。
 

 
8.点击【设计】-【选题】，选题中包括主题、颜色、字体，点击【主题】可选择主题，点击【颜色】，可选择主题颜色。点击【字体】，可选择合适的主题字体。
 

 
9.控件组中存放着所有的控件，页眉/页脚中可设置页面页眉/页脚与窗体页眉/页脚的徽标、标题、日期和时间。
 

 
10.工具组中包括添加现有字段、属性表、Tab键次序，以及VB编程的查看代码、将窗体的宏转换为Visual Basic代码。
 

 
11.控件组中第一个是选择工具，功能是选择。点击【使用控件向导】，点击【命令按钮】，弹出命令按钮向导页面，可根据向导选择合适的要求。
 

 本文内容

步骤1：将数据表窗体修改为连续窗体
步骤2：添加记录号与行记录删除按钮
步骤3：在临时表添加2个字段，修改1个字段并在窗体中添加相关控件
步骤4： 在子窗体页脚添加合计项
步骤5：在子窗体页脚添加2个功能按钮


将数据表窗体修改为连续窗体

 
级别：初级
重要：
要求：了解并掌握
来源：Access 软件网



 
本课程主要讲解了如何将一个数据表窗体，修改为一个连续窗体。之所以要修改为连续窗体，是为了方便统计（例如数量、金额的合计）。


 

  本文内容
 
 
显示窗体页眉和页脚
重新对控件布局并在页脚处添加数量合计
调整窗体默认视图


 
显示窗体页眉和页脚
 
1.单击此下载练习用的示例Continuousform.rar（文件大小:21K）
 
2.运行Continuousform.mdb，如下图所示：
 

 
3.进入窗体“frm采购订单_Edit_Detail”的设计视图,如下图所示：
 

 
4.单击上图中的 主体 二字，再按鼠标右键，显示画面如下图所示：
 

 
5.选中上图中的“窗体页眉/页脚(H)”，则显示窗体的页眉与页脚，如下图所示：
 

 
返回页首


 
重新对控件布局并在页脚处添加数量合计
 
1.将各个控件的标签放置到窗体页眉，这里需要注意，并不能直接单独移动标签，所以要么在页眉处一个一个创建标签，要么就剪切标签再贴粘到窗体页眉，然后将各个控件对齐并调整，如下图所示：
 

 
2.在窗体页脚，添加一个文本框，命名为"txt小计"，并在该文本框的控件来源中输入：=sum([完成数量])，如下图所示：
 

 
返回页首
 

  
调整窗体默认视图
  
1.进入窗体的属性，通过双击窗体左上角的小方块，可以打开窗体的属性界面，如将默认视图设置为：连续窗体，如下图所示：
  

  
2.保存窗体，关闭设计视图。
  
3.运行“frm采购订单_Edit_Detail”窗体，修改完成数量的值，就可以看到页脚处的小计在实时变化，如下图所示：
  

  
提示：如果练习时发现行间距过大，需要在窗体中调节一下各控件的位置。
  


  


  

  

   
步骤2：添加记录号与行记录删除按钮
   
在“frm采购订单_Edit_Detail”窗体的设计界面，将相关的文本框和标签往右移动一定距离，在左边添加1个文本框"行号"和1个命令按钮"btnDelete"，如下图所示：
   

   
为了让行号能自动显示序号，这样显得界面比较友好，给“行号”文本框的控件来源中输入：=GetLineNumber([Form])
   
为了方便操作员删除数据，给“btnDelete”删除按钮的单击事件中写代码：
   

    

     

      
 
Private Sub btnDelete_Click()
     
     

      
 
    On Error Resume Next
     
     

      
 
    If Not Me.NewRecord Then
     
     

      
 
        DoCmd.SetWarnings False '屏弊系统的警告
     
     

      
 
        RunCommand acCmdDeleteRecord '删除当前记录
     
     

      
 
        DoCmd.SetWarnings True  '取消屏弊系统的警告
     
     

      
 
    End If
     
     

      
 
End Sub
     
    
   
   
相关阅读点此了解快速开发平台的GetLineNumber 函数
   
返回页首
  
  

   
步骤3：在临时表添加2个字段，修改1个字段并在窗体中添加相关控件
   
当前子窗体只有商品ID，给用户看时，商品ID本身并看不出什么内容，为了方便用户在录入采购订单明细时可以看到商品的”品名规格“、”单位“，在临时表“TMP_采购订单明细表”中添加这两个字段：
   
品名规格(文本类型，字段长度：255)
   
单位(文本类型，字段长度：10)
   
表中原“完成数量”字段，是指采购数量实际完成了多少，也即入库了多少，为了方便显示未入库数量，我们将“完成数量”字段改为“已入库数量”，这样，TMP_采购订单明细表的字段如下图所示：
   

   
同理，窗体中也应作相应的修改：
   
1.将商品ID的标签改为商品编码（该组合框不用修改，可通过设置属性来显示为商品编码）
   
2.添加“品名规格”、“单位”
   
3.添加“金额”，金额的控件来源：=[单价]*[数量]
   
4.修改“完成数量”为“已入库数量”
   
5.添加“未入库数量”，未入库数量的控件来源：=[数量]-[已入库数量]
   
修改后的画面如下图所示：
   

   
返回页首
  
  

   
步骤4：在子窗体页脚添加合计项
   
为了方便看到同一采购订单的数量合计和金额合计，因此，在页脚添加合计项，。
   
1.添加文本框，命名为“数量合计”，控件来源：=Nz(Sum([数量]),0)
   
2.添加文本框，命名为“金额合计”，控件来源：=Nz(Sum([数量]*[单价]),0)
   
如下图所示：
   

   
返回页首
  
  

   
步骤5：在子窗体页脚添加2个功能按钮
   
为了方便操作员在录入数据时，可以清除所有数据，因此添加一个“清空列表”的按钮；另外，当添加的商品没有时，能够添加新的商品，因此添加一个“添加新商品”按钮。
   
1.在窗体中创建一个“清空列表"命令按钮，命名为：btnDeleteAll，在其单击事件中写如下代码：
   

    

     

      
 
   Private Sub btnDeleteAll_Click()
     
     

      
 
    On Error Resume Next
     
     

      
 
    If MsgBoxEx("确定要清空当前列表中的所有商品吗？", vbQuestion + vbOKCancel) = vbOK Then
     
     

      
 
        CurrentDb.Execute "DELETE FROM TMP_采购订单明细表"  '删除该表全部数据
     
     

      
 
        Me.Requery '刷新数据
     
     

      
 
    End If
     
     

      
 
End Sub
     
    
   
   
2.在窗体中创建一个“添加新商品"命令按钮，命名为：btnAddProduct，在其单击事件中写如下代码：
   

    

     

      
 
Private Sub btnAddProduct_Click()
     
     

      
 
  DoCmd.OpenForm "frm商品信息_Edit", , , , acFormAdd, acDialog
     
     

      
 
  Me!商品ID.Requery
     
     

      
 
End Sub
     
    
   
   
两个按钮的位置如下图所示：
   

   
提示关于“商品ID”组合框，因为需要实现根据输入内容自动筛选的功能，该部分内容在 3.3.1.7 中。同样的，在本教程中，类似“采购订单管理”，一些具体功能的实现，并不存在一种线性的前后顺序，有些可能需要后面的内容学完了，前面一些存在但没有讲到的功能才会被串联起来。因此，请先完成整个功能模块的开发，再去进行测试试用。
  
  

 

一、简介

　　在以
数据库为中心的应用程序中，主/从数据表视图是一种非常常见的
设计模式。在这种模式下，顶级数据（主表）显示在一个用户界面元素中（如Data Grid），而与之相关的细节数据（从表）则根据主表的选择作相应的变化更新。例如：我们可以查看出版社已出版图书的信息列表，当选择某种图书时，在从表中立即显示出该图书的销售情况。



　　在
.net中实现主/从数据表模式一般有两种方式，一是利用一个Data Grid控件装入两个相关的数据表，二是采用两个Data Grid控件实现主从模式。为便于说明，我们采用
SQL Server 2000自带的Pubs数据库的Titles表和Sales表进行演示，其中Titles表记录了某出版社的图书目录，而Sales表则是每种图书的销售数据，两张表中都包含title_id列。



　　
二、一个Data Grid中装入多个相关表



　　我们都知道，将Data Grid的Data Source属性同Dataset相绑定，即可将数据表显示在Data Grid中，但不少初学者并不清楚：通过向Dataset中添加多个Data Table对象，每个Data Table对象装入一张表，再设定好关联，即可在Data Grid中显示多张关联表。 



 
Imports System.Data.SqlClient
’引用SqlClient命名空间
Public Class Form1
Const Connection String As String = "integrated security=sspi;initial catalog=Pubs; data source=(local)"
’定义连接字符串
Private Sub Button1_Click(By Val sender As Object, By Val e As System.EventArgs) Handles Button1.Click
　Dim cn As New SqlConnection (Connection String)
　Cn. Open()
　’建立同数据库的连接
　Dim ds As New Dataset("Book Sales")
　’创建Dataset对象
　Dim Titles Table As New Data Table("Titles")
　ds.Tables.Add(Titles Table)
　’创建Data Table对象（Titles表），加入Dataset
　Dim GetTitlesString As String = "Select * From Titles"
　Dim da As New SqlDataAdapter(GetTitlesString, cn) 
　da.Fill(Titles Table)
　’填充Data Table
　da.Dispose()
　Dim Sales Table As New Data Table("Sales")
　ds.Tables.Add(Sales Table)
　Dim GetSalesString As String = "Select * From Sales"
　da= New SqlDataAdapter(GetSalesString, cn)
　da.Fill(Sales Table)
　’创建并填充Sales表
　da.Dispose()
　cn.Close()
　Dim relation As New Data Relation("Title Sales", TitlesTable.Columns("title_id"),SalesTable.Columns("title_id"))
　ds.Relations.Add(relation)
　根据title_id列建立两个表的关联
　DataGrid1.DataSource = ds
　将DataGrid1绑定到Dataset对象（即ds）
End Sub
End Class
 

　　需要注意的是：在单表模式下，用SqlDataAdapter对象填充Dataset时，若发现Dataset中没有表，就自动创建一个新的Data Table并填充；而用主从模式时，应显示创建每个Data Table对象并填充，再利用Data Relation对象建立多个Data Table之间的关联，最后将Data Grid绑定到Dataset上。 



 
 
    

     
     
(图1：Data Grid中装入两张表)
    
 
 

　　运行工程，会看到一个有加号按钮的视图。单击加号，窗体中出现装入的所有表名，如图1。如果查看Titles表，就会发现在每行的旁边有一个小加号按钮，点击加号，就可以查看其销售情况，如图2、图3。



 
 
    

     
     
（图2：主表情况）
    
 
 

 
 
    

     
     
（图3：从表情况）
    
 
 

　　在窗体的右上部，向左的小箭头按钮用于回退。每查看一次销售情况后，都必须用回退按钮回到主表，显然，这种主/从表模式的可操作性很差，也不太符合我们的操作习惯。也许，后一种方式是比较好的解决方案。
 
三、用两个Data Grid实现主/从数据表

　　更有效的解决方案是使用两个Data Grid控件，主、从表均可见。对主表上某行进行选择，会立即引发从表内容的改变。
建立工程，添加一个Panel控件，将其Dock属性设置为Top；添加一个Splitter控件，Dock属性同样设置为Top；在窗体下部再添加一个Panel，Dock属性为top。然后，在两面板中各添加一个Data Grid，其Dock属性为Fill。窗体布局如图4。

 
 
    

     
     
（图4：窗体布局）
    
 
 

　　要实现
DataGrid2的内容动态更新，需要对DataGrid1的CurrentCellChanged事件进行监听，在接受到DataGrid1的变化消息后，加载相应的数据。



 
Imports System.Data.SqlClient
Public Class Form1
　Const Connection String As String = "integrated security=sspi;initial catalog=pubs; data source=(local)"
Private Sub Button1_Click(By Val sender As Object, By Val e As System.EventArgs) Handles Button1.Click
　Dim cn As New SqlConnection(Connection String)
　cn.Open()
　Dim ds As New Dataset
　Dim GetTitlesString As String = "Select * From Titles"
　Dim Titles Table As New Data Table("Titles")
　ds.Tables.Add(Titles Table)
　Dim da As New SqlDataAdapter(GetTitlesString, cn)
　da.Fill(Titles Table)
　da.Dispose()
　cn.Close()
　DataGrid1.DataSource = Titles Table
　’主表显示在DataGrid1中
End Sub

Private Sub DataGrid1_CurrentCellChanged(By Val sender As Object, By Val e As System.EventArgs) Handles DataGrid1.CurrentCellChanged
　Dim titled As String = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 0).To String
　’判断用户在主表中选择了哪一行，取出它的第0列（在本例中即为title_id列）
　Dim sql As String = "select * from sales where title_id=’" & titled & "’"
　’SQL命令字符串，选择与主表中相同title_id值的从表数据
　Dim cn As New SqlConnection(Connection String)
　cn.Open()
　Dim ds As New Dataset
　Dim da As New SqlDataAdapter(sql, cn)
　Dim Sales Table As New Data Table("Sales")
　ds.Tables.Add(Sales Table)
　da.Fill(Sales Table)
　’用选择的从表数据填充，更新
　da.Dispose()
　cn.Close()
　DataGrid2.DataSource = Sales Table
End Sub
End Class
 

　　运行程序，在主表中选择某行，从表就会显示出匹配的销售信息，如图5。



 
 
    

     
     
（图5：主从数据表同时显示）
    
 
 

　　
四、结束语



　　利用主/从数据表模式，能在较小的编程工作量下，实现很好的显示及操作效果。若要建立多表关联的主/从视图，或是进行增、删、改等操作，在此方法上进行改进即可。希望本文能给读者在
数据库编程时带来一定的启示和帮助。