一个信息管理系统(MIS)的小例子(C#.NET+MS SQL2K)

最新推荐文章于 2026-07-06 10:21:03 发布
原创 最新推荐文章于 2026-07-06 10:21:03 发布 · 621 阅读 · 0 ·
本内容遵循CC 4.0 BY-SA版权协议
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文介绍了如何使用C#.NET和MS SQL 2000创建一个简单信息管理系统，包括创建数据表、浏览并存储图片、数据库连接、以及增删查改操作的代码实现。示例提供了Windows Form应用中处理图片管理和数据交互的详细步骤。
前一段时间写了个编写XML的小东西，当时没怎么整理，也没涉及到图片的处理。

今天这个是可以存储和管理的例子，增加了图片管理的这一功能

测试环境：Windows XP Pro +VS.NET 2003+ MS SQL 2000 (均为英文版)

PS：学习中，望不吝赐教！

偶就简单的介绍下代码
1，包含的命名空间

CODE:
Option Strict On
Imports System.IO
Imports System.Data.SqlClient
Imports System.Text
2，一些共有变量的声明：

CODE:
Protected Const SQL_CONNECTION_STRING As String = _
        "Server=localhost;" & _
        "DataBase=Northwind;" & _
        "Integrated Security=SSPI"

    Protected Const CONNECTION_ERROR_MSG As String = _
        "You must have SQL with the Northwind database installed.  "

    Protected da As SqlDataAdapter
    Protected cbd As SqlCommandBuilder
    Protected dsPictures As DataSet
    Protected didPreviouslyConnect As Boolean = False
    Protected connectionString As String = SQL_CONNECTION_STRING
3，略去Windows Form Designer Generate Code这个部分，可参见偶贴图
4，创建数据表的代码

CODE:
Private Sub btnCreate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreate.Click
        Dim strSQL As String = _
            "IF EXISTS (" & _
            "SELECT * " & _
            "FROM northwind.dbo.sysobjects " & _
            "WHERE NAME = 'Picture' " & _
            "AND TYPE = 'u')" & vbCrLf & _
            "BEGIN" & vbCrLf & _
            "DROP TABLE northwind.dbo.picture" & vbCrLf & _
            "END" & vbCrLf & _
            "CREATE TABLE Picture (" & _
            "PictureID Int IDENTITY(1,1) NOT NULL," & _
            "[FileName] Varchar(255) NOT NULL," & _
            "Picture Image NOT NULL," & _
            "Name nvarchar(20) NOT NULL," & _
            "UID Varchar(20) NOT NULL," & _
            "UG nvarchar(10) NOT NULL," & _
            "Gender nvarchar(10) NOT NULL," & _
            "Score nvarchar(50) NOT NULL," & _
            "SelfIntr Varchar(255) NOT NULL," & _
            "CONSTRAINT [PK_Picture] PRIMARY KEY CLUSTERED" & _
            "(PictureID))"
        Dim frmMessage As New status
        If Not didPreviouslyConnect Then
            frmMessage.Show("Connecting to SQL Server")
        End If
        Dim isConnecting As Boolean = True
        While isConnecting
            Try
                ' communicate with SQL Server
                Dim northwindConnection As New SqlConnection(connectionString)
                ' A SqlCommand object is used to execute the SQL commands.
                Dim cmd As New SqlCommand(strSQL, northwindConnection)
                ' Open ,execute the command, and close the connection.
                northwindConnection.Open()
                cmd.ExecuteNonQuery()
                northwindConnection.Close()
                ' Data has been successfully submitted
                isConnecting = False
                didPreviouslyConnect = True
                frmMessage.Close()
                MessageBox.Show("Table successfully created.", "Table Creation Status", _
                    MessageBoxButtons.OK, MessageBoxIcon.Information)
            Catch sqlExc As SqlException
                MessageBox.Show(sqlExc.ToString, "SQL Exception Error!", _
                    MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit While
            Catch exc As Exception
                ' Unable to connect to SQL Server
                frmMessage.Close()
                MessageBox.Show(CONNECTION_ERROR_MSG, _
                        "Connection Failed!", MessageBoxButtons.OK, _
                        MessageBoxIcon.Error)
                End
            End Try
        End While
        frmMessage.Close()
    End Sub
这里为了节省版面就删了一些格式的东西
5，浏览文件，按钮的代码，这里用到openfiledialog

CODE:
Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click
        With OpenFileDialog1
            .InitialDirectory = "C:/"
            .Filter = "All Files|*.*|Bitmap|*.bmp|GIF|*.gif|JPEG|*.jpg"
            .FilterIndex = 4
        End With

        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            With picImage
                .Image = Image.FromFile(OpenFileDialog1.FileName)
                .SizeMode = PictureBoxSizeMode.CenterImage
                .BorderStyle = BorderStyle.Fixed3D
            End With
            lblFilePath.Text = OpenFileDialog1.FileName
        End If
    End Sub
6，存储数据的按钮事件

CODE:
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        If picImage.Image Is Nothing Then
            MessageBox.Show("No Image is loaded", "Erro")
        End If

        Dim arrFilename() As String = Split(lblFilePath.Text, "/")
        arrFilename.Reverse(arrFilename)   /让数组中的数据反过来

        Dim ms As New MemoryStream
        picImage.Image.Save(ms, picImage.Image.RawFormat)
        Dim arrImage() As Byte = ms.GetBuffer

        ms.Close()


        Dim frmMessage As New status
        If Not didPreviouslyConnect Then
            frmMessage.Show("Connecting to SQL Server")
        End If
        ' connect to the SQL server
        Dim isConnecting As Boolean = True
        While isConnecting
            Try
                'communicate with SQL Server and uses Integrated Security
                Dim northwindConnection As New SqlConnection(connectionString)
                Dim strSQL As String = _
                    "INSERT INTO Picture (Filename, Picture, Name, UID, UG, Gender, Score, SelfIntr)" & _
                    "VALUES (@Filename, @Picture, @Name, @UID, @UG, @Gender, @Score, @SelfIntr)"

                'execute SQL statement.
                Dim cmd As New SqlCommand(strSQL, northwindConnection)
                With cmd
                    .Parameters.Add(New SqlParameter("@Filename", _
                        SqlDbType.NVarChar, 50)).Value = arrFilename(0)
                    .Parameters.Add(New SqlParameter("@Picture", _
                        SqlDbType.Image)).Value = arrImage
                    .Parameters.Add(New SqlParameter("@Name", _
                        SqlDbType.NVarChar)).Value = txtName.Text
                    .Parameters.Add(New SqlParameter("@UID", _
                        SqlDbType.NVarChar)).Value = txtUID.Text
                    .Parameters.Add(New SqlParameter("@UG", _
                        SqlDbType.NVarChar)).Value = cmbUG.Text
                    .Parameters.Add(New SqlParameter("@Gender", _
                        SqlDbType.NVarChar)).Value = cmbGender.Text
                    .Parameters.Add(New SqlParameter("@Score", _
                        SqlDbType.NVarChar)).Value = txtScore.Text
                    .Parameters.Add(New SqlParameter("@SelfIntr", _
                       SqlDbType.VarChar)).Value = txtSelf.Text
                End With

                ' Open, execute, and close connection.
                northwindConnection.Open()
                cmd.ExecuteNonQuery()
                northwindConnection.Close()

                isConnecting = False
                didPreviouslyConnect = True
                frmMessage.Close()
                MessageBox.Show(arrFilename(0) & " has been stored to the database.", _
                    "Save Image", MessageBoxButtons.OK, _
                    MessageBoxIcon.Information)

            Catch sqlExc As SqlException
                MessageBox.Show(sqlExc.ToString, "SQL Exception Error!", _
                    MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit While
            Catch exc As Exception

                ' Unable to connect to SQL Server
                frmMessage.Close()
                MessageBox.Show(CONNECTION_ERROR_MSG, _
                        "Connection Failed!", MessageBoxButtons.OK, _
                        MessageBoxIcon.Error)
                End

            End Try
        End While
    End Sub
7，显示信息按钮事件，读取数据

CODE:
Private Sub btnDisplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisplay.Click
        If lstPictures.SelectedIndex < 0 Then
            MessageBox.Show("There are no images in the database to display.", _
                "Empty Database!", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else
            ' first create a stream object containing the binary data. Then generate the image by calling Image.FromStream().
            Dim arrPicture() As Byte = _
             CType(dsPictures.Tables(0).Rows(lstPictures.SelectedIndex)("Picture"), _
             Byte())
            Dim ms As New MemoryStream(arrPicture)

            With PictureBox2
                .Image = Image.FromStream(ms)
                .SizeMode = PictureBoxSizeMode.CenterImage
                .BorderStyle = BorderStyle.Fixed3D
            End With

            lblFileName.Text = _
             dsPictures.Tables(0).Rows(lstPictures.SelectedIndex)("FileName").ToString
            TextBox4.Text = _
             dsPictures.Tables(0).Rows(lstPictures.SelectedIndex)("Name").ToString
            TextBox3.Text = _
            dsPictures.Tables(0).Rows(lstPictures.SelectedIndex)("UID").ToString
            TextBox5.Text = _
            dsPictures.Tables(0).Rows(lstPictures.SelectedIndex)("UG").ToString
            TextBox6.Text = _
            dsPictures.Tables(0).Rows(lstPictures.SelectedIndex)("Gender").ToString
            TextBox2.Text = _
            dsPictures.Tables(0).Rows(lstPictures.SelectedIndex)("Score").ToString
            TextBox1.Text = _
            dsPictures.Tables(0).Rows(lstPictures.SelectedIndex)("SelfIntr").ToString
            ' Close the stream object
            ms.Close()
        End If
    End Sub
8，删除按钮的事件

CODE:
Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
        ' When nothing is selected in the ListBox, the SelectedIndex = -1.
        If lstPictures.SelectedIndex < 0 Then
            MessageBox.Show("There are no images in the database to delete.", _
                "Empty Database!", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else
            dsPictures.Tables(0).Rows(lstPictures.SelectedIndex).Delete()
            da.UpdateCommand = cbd.GetDeleteCommand
            da.Update(dsPictures)

            lblFileName.Text = ""
            PictureBox2.Image = Nothing
        End If
    End Sub
9，控制单转换时自动加载

CODE:
Private Sub TabControl1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged

        If TabControl1.SelectedIndex = 2 Then
            Dim frmStatusMessage As New status
            If Not didPreviouslyConnect Then
                frmStatusMessage.Show("Connecting to SQL Server")
            End If
            Dim isConnecting As Boolean = True
            While isConnecting

                Try
                    Dim northwindConnection As New SqlConnection(connectionString)
                    Dim cmd As New SqlCommand("SELECT * " & _
                                              "FROM Picture", _
                                              northwindConnection)

                    da = New SqlDataAdapter(cmd)
                    cbd = New SqlCommandBuilder(da)
                    dsPictures = New DataSet
                    da.Fill(dsPictures)

                    isConnecting = False
                    didPreviouslyConnect = True
                    frmStatusMessage.Close()

                    With lstPictures
                        .DataSource = dsPictures.Tables(0)
                        .DisplayMember = "FileName"
                    End With



                Catch sqlExc As SqlException
                    MessageBox.Show(sqlExc.ToString, "SQL Exception Error!", _
                        MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Exit While
                Catch exc As Exception
                    frmStatusMessage.Close()
                    MessageBox.Show(CONNECTION_ERROR_MSG, _
                            "Connection Failed!", MessageBoxButtons.OK, _
                            MessageBoxIcon.Error)

                End Try
            End While
        End If
    End Sub
另外，心定一类，为测试安装的SQL服务器
代码

CODE:
Public Class status
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents lblStatus As System.Windows.Forms.Label
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.lblStatus = New System.Windows.Forms.Label
        Me.SuspendLayout()
        '
        'lblStatus
        '
        Me.lblStatus.Dock = System.Windows.Forms.DockStyle.Fill
        Me.lblStatus.Location = New System.Drawing.Point(0, 0)
        Me.lblStatus.Name = "lblStatus"
        Me.lblStatus.Size = New System.Drawing.Size(232, 86)
        Me.lblStatus.TabIndex = 0
        Me.lblStatus.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'status
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(232, 86)
        Me.Controls.Add(Me.lblStatus)
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "status"
        Me.Text = "status"
        Me.ResumeLayout(False)

    End Sub

#End Region
    Public Overloads Sub Show(ByVal Message As String)
        lblStatus.Text = Message
        Me.Show()
        Application.DoEvents()
    End Sub
End Class


标签
#sql #sql server #textbox #exception #database
#string
hill_wash
关注
C#.NET开发的MIS打印程序
04-03
C#.NET开发的MIS打印程序.rar
一个Mis系统的设计案例
04-21
一个Mis系统的设计案例，雏形。30个表左右。
（一）员工信息管理系统（超级详细代码）
热门推荐
Sunshineづ
08-04 1万+
超级详细的Idea控制台管理系统项目，打印带颜色以及表情包的控制台代码，还等啥呢来看看吧。
MIS管理信息系统快速开发框架-C/S架构+Winform软件快速开发平台
weixin_45724188的博客
11-18 2144
MIS管理信息系统快速开发框架-C/S架构+Winform软件快速开发平台 一、什么是MIS系统? - MIS(管理信息系统) 所谓MIS（管理信息系统--Management Information System）系统，主要指的是进行日常事务操作的系统。这种系统主要用于管理需要的记录，并对记录数据进行相关处理，将处理的信息及时反映给管理者的一套网络管理系统。 MIS（管理信息系统--Management Information System）系统 ，是一个由人、计算机及其他外围设备等.
C# Winform下一个热插拔的MIS/MRP/ERP框架（简介）
weixin_30646505的博客
10-10 366
　　Programmer普弱哥们都喜欢玩自己的框架，我也不例外。 　　理想中，这个框架要易于理解、易于扩展、易于维护；最重要的，易于CODING。 　　系统是1主体框架+N模组的多个EXE/DLL组成的，在主体框架打开的时候，编译完模块EXE可以马上响应需求，不用退系统，不用重登录。 　　大概的目标：来一个新功能需求，在框架中拷贝一个模板，修改一下定义，再挂接一下，就可以上线。 　　一、先...
【数据库实验】《小型MIS的开发》PyQt5 开发 民航票务管理系统
萌宅鹿的技术小屋
06-16 6703
PyQt5 开发 民航票务管理系统知识点PyQt5 实现页面跳转 知识点 PyQt5 实现页面跳转
GPT-4o统一多模态架构解析：从文本模型到实时跨模态交互
weixin_33730836的博客
06-17 362
多模态AI是指能同时处理文本、图像、语音等多种信息形式的智能系统，其核心原理在于构建跨模态对齐的统一表征空间，而非传统ASR+OCR+LLM拼接式流水线。技术价值体现在端到端低延迟（如GPT-4o音频响应低至232ms）、原生语义一致性与强鲁棒性，显著提升人机协作的真实感与可靠性。典型应用场景包括实时会议纪要生成、工程图纸理解、方言语音交互、多源文档联合分析等需要‘所见即所得’响应的高交互密度任务。本文聚焦GPT-4o所代表的omni架构范式，深入解析其单骨干transformer如何实现视觉、音频、文本的
前端犄角旮旯，非常规面试题总结（不断更新....）
qq_51398495的博客
06-24 1599
27、判断类型的方式有哪些？1、typeof操作符：用来检测数据的类型，返回的是一个表示类型的字符串。2、instanceof操作符：用来检测对象是否为指定的构造函数的实例。3、方法：可以返回对象的准确类型。4、方法：用来判断一个变量是否为数组。（一）typeof和instanceof区别typeof返回的是一个字符串，表示变量的数据类型，可能的返回值有numberstringbooleanfunctionundefinedobject。instanceof返回的是一个布尔值，true或。
渗透测试 ( 0 ) --- XSS、CSRF、文件上传、文件包含、反序列化漏洞
freeking101的博客
06-12 5341
渗透测试 --- http协议、XSS、CSRF、文件上传、文件包含、反序列化漏洞
AI应用工程化落地：从IDE副驾驶到RAG实战，解析Top10工具趋势
最新发布
weixin_34130389的博客
07-06 136
人工智能正从概念验证走向工程化落地，其核心价值在于将大模型能力转化为稳定可靠的生产力。这一过程依赖于检索增强生成（RAG）等关键技术，通过将外部知识库与模型推理结合，有效缓解幻觉问题，构建可信的AI应用。在工程实践层面，AI应用工程化落地案例揭示了从单点工具到流程重塑的演进：集成开发环境（IDE）通过AI副驾驶实现代码生成的意图理解与上下文感知；低代码平台通过可视化编排将AI能力转化为可管理的业务流程组件；而如Spring AI等开源框架则通过统一抽象层，解决了多模型API集成与切换的工程复杂度。这些趋势共
01：SpringAI
weixin_43761434的博客
06-09 239
ai
c#开发的学生MIS系统
03-23
C#开发的学生MIS系统，拥有源代码，大家多多支持啊！！！
C# 管理系统 MIS
02-21
有研究或探讨或开源的请加群:37424970 或联系本人MSN或邮箱:zhuseahui@yahoo.com.cn
c#mis，数据库版（感觉自己提的有点二==）
03-28
数据的修改，删除，添加，最最基本的功能。记得在删除，添加，修改后要自己手动按刷新才能显示。懒得改了==
mis系统采用三层架构！
07-27
采用vs2008（C#）开发的一份mis系统 ，采用了三层架构！大家可以一起学习！！
C#实例研究MDI和子窗口应用（MIS项目）
漫步技术小栈的博客
04-11 554
实例：记录下来以防忘记 代码段 using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Fo...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值