Visual Basic.NET快速开发MIS系统

来源：作者：出处：巧巧读书 2006-04-28 进入讨论组

　　新的要求

　　现在假设有物理表tChange与tInfo表是一关联表，通过关键字段fID关联，既表tChange的字段fID的数据是通过tInfo表提供，其它来源于用户的输入，要生成tChange表数据处理的窗体。要实现这些功能，我们同样通过窗体的继承来完成（有物理表tSub也如此）。

　　.先定义窗体模板frmModul2,此frmModul2继承frmModul, 即：Public Class frmModul2: Inherits Asset.frmModel。在frmModul2中加入列表盒控制ListBox1和其它控制，布置好后如下图：

点击查看大图

　　.在frmModul2的Load事件中填充ListBox的数据并隐藏不必要的控件。

Private Sub frmModul2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 　MyBase.Load
　FillListBox(Me.ListBox1)
　Me.tlbAdd.Visible = False
End SubPublic

Sub FillListBox(ByVal ListBox As ListBox)
　Dim StrSQL As String
　StrSQL = "select Distinct fID || ' ' || fName as a FROM tInfo "
　Dim dr As OleDb.OleDbDataReader

　dr = DB.SQLDataReader(StrSQL)
　While dr.Read
　　ListBox.Items.Add(dr.Item("a"))
　End While
　dr.Close()
End Sub

.当单击ListBox1时选择当前数据并填充至txt1, txt3中
Public Overridable Sub ListBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown
　Dim i, txt
　i = ListBox1.SelectedIndex
　txt = ListBox1.Items(i)
　txt1.Text = txt.Substring(0, 15)
　txt3.Text = txt.Substring(16, Len(txt) - 16).trim
　txtID.Text = gCls.GetMaxSystemID + 1
　gCls.FillGrid(DataGrid1)
　gIsUpdate = False
End Sub

专题:http://www.qqread.com/vbdotnet/i801104002.html