某毕业论文-图书管理系统-源代码.doc

登录窗体代码:Imports System.Data.SqlClientPublic Class FormDengLu Dim biaozhi As Boolean Private Sub ButtonDengLu_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ButtonDengLu.Click sqlconn.ConnectionString = user id=sa;password=;initial catalog=重庆新华电脑学校图书管理系统;data source=(local) sqlconn.Open() Dim sqlcomm As New SqlCommand Dim sqlds As New DataSet Dim sqldapt As New SqlDataAdapter sqlcomm.CommandText = select * from userinfo where username= & TextBoxYongHu.Text & and password= & TextBoxMiMa.Text & sqlcomm.Connection = sqlconn sqldapt.SelectCommand = sqlcomm sqldapt.Fill(sqlds, userinfo) If sqlds.Tables(userinfo).Rows.Count = 0 Then If MessageBox.Show(用户名或密码错误, 错误提示, MessageBoxButtons.OK, MessageBoxIcon.Error) = Windows.Forms.DialogResult.OK Then TextBoxYongHu.Text = TextBoxMiMa.Text = sqlconn.Close() End If Else biaozhi = True Me.Close() FormZhuJieMian.ToolStripStatusLabel2.Text = Me.TextBoxYongHu.Text End If End Sub Private Sub FormDengLu_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing If biaozhi = False Then End End If End Sub Private Sub FormDengLu_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown TextBoxYongHu.Focus() Me.PictureBox1.Image = New Bitmap(Application.StartupPath & picturedenglu.jpg) Me.BackgroundImage = New Bitmap(Application.StartupPath & picturebackgroudimage.jpg) Label1.Image = New Bitmap(Application.StartupPath & picturebackgroudimage.jpg) Label1.Text = 用户登录提示: & vbCrLf & vbCrLf & 系统默认用户名 & vbCrLf & vbCrLf & admin,密码admin Label1.Image = New Bitmap(Application.StartupPath & picturebackgroudimage.jpg) GroupBox1.BackgroundImage = New Bitmap(Application.StartupPath & picturebackgroudimage.jpg) End Sub Private Sub ButtonTuiChu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonTuiChu.Click End End SubEnd Class版本说明窗体代码:Public Class FormBanBenShuoMing Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked System.Diagnostics.Process.Start(/ylinuxs) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Close() End SubEnd Class打印窗体代码:Public Class FormTuShuDaYin Public biaozi As Boolean Private Sub ButtonYeMianSheZhi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonYeMianSheZhi.Click PageSetupDialog1.Document = PrintDocument1 PageSetupDialog1.ShowDialog() End Sub Private Sub ButtonYuLan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonYuLan.Click PrintPreviewDialog1.Document = PrintDocument1 PrintPreviewDialog1.ShowDialog() End Sub Private Sub ButtonDaYin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonDaYin.Click PrintDialog1.Document = PrintDocument1 PrintDialog1.AllowSomePages = True PrintDialog1.AllowCurrentPage = True PrintDialog1.AllowSelection = True If PrintDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then PrintDocument1.Print() End If End Sub Private Sub ButtonYeMeiJiao_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonYeMeiJiao.Click FormYeMeiJiao.ShowDialog() End Sub Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage Dim w, h, x, y As Integer Dim PrintHeight As Integer Dim PrintLeft, PrintTop As Integer Dim CellWidth, Cellheight As Integer Dim k As Integer Dim i As Integer Static j As Integer If biaozi = True Then If FormYeMeiJiao.TextBoxYeMei.Text Then w = e.PageBounds.Width h = e.MarginBounds.Top y = h / 2 - FormYeMeiJiao.TextBoxYeMei.Font.Height / 2 x = w / 2 - (FormYeMeiJiao.TextBoxYeMei.TextLength * FormYeMeiJiao.TextBoxYeMei.Font.Height) / 2 e.Graphics.DrawString(FormYeMeiJiao.TextBoxYeMei.Text, FormYeMeiJiao.TextBoxYeMei.Font, Brushes.Blue, x, y) End If If FormYeMeiJiao.TextBoxYeJiao.Text Then w = e.PageBounds.Width h = e.PageBounds.Height - e.MarginBounds.Bottom y = h / 2 - FormYeMeiJiao.TextBoxYeJiao.Font.Height / 2 + e.MarginBounds.Bottom x = w / 2 - (FormYeMeiJiao.TextBoxYeJiao.TextLength * FormYeMeiJiao.TextBoxYeJiao.Font.Height) / 2 e.Graphics.DrawString(FormYeMeiJiao.TextBoxYeJiao.Text, FormYeMeiJiao.TextBoxYeJiao.Font, Brushes.Blue, x, y) End If PrintTop = e.MarginBounds.Top PrintLeft = e.MarginBounds.Left For k = 0 To FormTuShuGuanLi.DataGridView1.Columns.Count - 1 e.Graphics.DrawString(FormTuShuGuanLi.DataGridView1.Columns(k).HeaderText, FormTuShuGuanLi.DataGridView1.Font, Brushes.Red, PrintLeft, PrintTop) CellWidth = FormTuShuGuanLi.DataGridView1.Columns(k).Width Cellheight = FormTuShuGuanLi.DataGridView1.ColumnHeadersHeight e.Graphics.DrawRectangle(Pens.Blue, PrintLeft, PrintTop, CellWidth, Cellheight) PrintLeft = PrintLeft + FormTuShuGuanLi.DataGridView1.Columns(k).Width Next PrintTop = PrintTop + FormTuShuGuanLi.DataGridView1.ColumnHeadersHeight PrintHeight = FormTuShuGuanLi.DataGridView1.ColumnHeadersHeight i列下标的变化范围, j行下标的变化范围 Do While j = e.MarginBounds.Height Then Exit Do End If Loop If j = FormTuShuGuanLi.DataGridView1.Rows.Count - 1 Then e.HasMorePages = True Else e.HasMorePages = False j = 0 End If Else Dim w, h, x, y As Integer If FormYeMeiJiao.TextBoxYeMei.Text Then w = e.PageBounds.Width h = e.MarginBounds.Top y = h / 2 - FormYeMeiJiao.TextBoxYeMei.Font.Height / 2 x = w / 2 - (FormYeMeiJiao.TextBoxYeMei.TextLength * FormYeMeiJiao.TextBoxYeMei.Font.Height) / 2 e.Graphics.DrawString(FormYeMeiJiao.TextBoxYeMei.Text, FormYeMeiJiao.TextBoxYeMei.Font, Brushes.Blue, x, y) End If If FormYeMeiJiao.TextBoxYeJiao.Text Then w = e.PageBounds.Width h = e.PageBounds.Height - e.MarginBounds.Bottom y = h / 2 - FormYeMeiJiao.TextBoxYeJiao.Font.Height / 2 + e.MarginBounds.Bottom x = w / 2 - (FormYeMeiJiao.TextBoxYeJiao.TextLength * FormYeMeiJiao.TextBoxYeJiao.Font.Height) / 2 e.Graphics.DrawString(FormYeMeiJiao.TextBoxYeJiao.Text, FormYeMeiJiao.TextBoxYeJiao.Font, Brushes.Blue, x, y) End If Dim PrintHeight As Integer Dim PrintLeft, PrintTop As Integer PrintTop = e.MarginBounds.Top PrintLeft = e.MarginBounds.Left Dim CellWidth, Cellheight As Integer Dim k As Integer For k = 0 To FormDuZheGuanLi.DataGridView1.Columns.Count - 1 e.Graphics.DrawString(FormDuZheGuanLi.DataGridView1.Columns(k).HeaderText, FormDuZheGuanLi.DataGridView1.Font, Brushes.Red, PrintLeft, PrintTop) CellWidth = FormDuZheGuanLi.DataGridView1.Columns(k).Width Cellheight = FormDuZheGuanLi.DataGridView1.ColumnHeadersHeight e.Graphics.DrawRectangle(Pens.Blue, PrintLeft, PrintTop, CellWidth, Cellheight) PrintLeft = PrintLeft + FormDuZheGuanLi.DataGridView1.Columns(k).Width Next PrintTop = PrintTop + FormDuZheGuanLi.DataGridView1.ColumnHeadersHeight PrintHeight = FormDuZheGuanLi.DataGridView1.ColumnHeadersHeight Dim i As Integer Static j As Integer i列下标的变化范围, j行下标的变化范围 Do While j = e.MarginBounds.Height Then Exit Do End If Loop If j = FormDuZheGuanLi.DataGridView1.Rows.Count - 1 Then e.HasMorePages = True Else e.HasMorePages = False j = 0 End If End If End Sub Private Sub ButtonQuXiao_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonQuXiao.Click Me.Close() End SubEnd Class读者查询打印窗体代码:Public Class FormDuZheChaXunDaYin Public biaozi As Boolean Private Sub ButtonYeMianSheZhi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonYeMianSheZhi.Click PageSetupDialog1.Document = PrintDocument1 PageSetupDialog1.ShowDialog() End Sub Private Sub ButtonYuLan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonYuLan.Click PrintPreviewDialog1.Document = PrintDocument1 PrintPreviewDialog1.ShowDialog() End Sub Private Sub ButtonDaYin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonDaYin.Click PrintDialog1.Document = PrintDocument1 PrintDialog1.AllowSomePages = True PrintDialog1.AllowCurrentPage = True PrintDialog1.AllowSelection = True If PrintDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then PrintDocument1.Print() End If End Sub Private Sub ButtonYeMeiJiao_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonYeMeiJiao.Click FormYeMeiJiao.ShowDialog() End Sub Private Sub ButtonQuXiao_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonQuXiao.Click Me.Close() End Sub Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage Dim w, h, x, y As Integer Dim PrintHeight As Integer Dim PrintLeft, PrintTop As Integer Dim CellWidth, Cellheight As Integer Dim i As Integer Dim k As Integer Static j As Integer If biaozi = True Then If FormYeMeiJiao.TextBoxYeMei.Text Then w = e.PageBounds.Width h = e.MarginBounds.Top y = h / 2 - FormYeMeiJiao.TextBoxYeMei.Font.Height / 2 x = w / 2 - (FormYeMeiJiao.TextBoxYeMei.TextLength * FormYeMeiJiao.TextBoxYeMei.Font.Height) / 2 e.Graphics.DrawString(FormYeMeiJiao.TextBoxYeMei.Text, FormYeMeiJiao.TextBoxYeMei.Font, Brushes.Blue, x, y) End If If FormYeMeiJiao.TextBoxYeJiao.Text Then w = e.PageBounds.Width h = e.PageBounds.Height - e.MarginBounds.Bottom y = h / 2 - FormYeMeiJiao.TextBoxYeJiao.Font.Height / 2 + e.MarginBounds.Bottom x = w / 2 - (FormYeMeiJiao.TextBoxYeJiao.TextLength * FormYeMeiJiao.TextBoxYeJiao.Font.Height) / 2 e.Graphics.DrawString(FormYeMeiJiao.TextBoxYeJiao.Text, FormYeMeiJiao.TextBoxYeJiao.Font, Brushes.Blue, x, y) End If PrintTop = e.MarginBounds.Top PrintLeft = e.MarginBounds.Left For k = 0 To FormDuZheGuaShiChaXun.DataGridView1.Columns.Count - 1 e.Graphics.DrawString(FormDuZheGuaShiChaXun.DataGridView1.Columns(k).HeaderText, FormDuZheGuaShiChaXun.DataGridView1.Font, Brushes.Red, PrintLeft, PrintTop) CellWidth = FormDuZheGuaShiChaXun.DataGridView1.Columns(k).Width Cellheight = FormDuZheGuaShiChaXun.DataGridView1.ColumnHeadersHeight e.Graphics.DrawRectangle(Pens.Blue, PrintLeft, PrintTop, CellWidth, Cellheight) PrintLeft = PrintLeft + FormDuZheGuaShiChaXun.DataGridView1.Columns(k).Width Next PrintTop = PrintTop + FormDuZheGuaShiChaXun.DataGridView1.ColumnHeadersHeight PrintHeight = FormDuZheGuaShiChaXun.DataGridView1.ColumnHeadersHeight i列下标的变化范围, j行下标的变化范围 Do While j = e.MarginBounds.Height Then Exit Do End If Loop If j = FormDuZheGuaShiChaXun.DataGridView1.Rows.Count - 1 Then e.HasMorePages = True Else e.HasMorePages = False j = 0 End If Else If FormYeMeiJiao.TextBoxYeMei.Text Then w = e.PageBounds.Width h = e.MarginBounds.Top y = h / 2 - FormYeMeiJiao.TextBoxYeMei.Font.Height / 2 x = w / 2 - (FormYeMeiJiao.TextBoxYeMei.TextLength * FormYeMeiJiao.TextBoxYeMei.Font.Height) / 2 e.Graphics.DrawString(FormYeMeiJiao.TextBoxYeMei.Text, FormYeMeiJiao.TextBoxYeMei.Font, Brushes.Blue, x, y) End If If FormYeMeiJiao.TextBoxYeJiao.Text Then w = e.PageBounds.Width h = e.PageBounds.Height - e.MarginBounds.Bottom y = h / 2 - FormYeMeiJiao.TextBoxYeJiao.Font.Height / 2 + e.MarginBounds.Bottom x = w / 2 - (FormYeMeiJiao.TextBoxYeJiao.TextLength * FormYeMeiJiao.TextBoxYeJiao.Font.Height) / 2 e.Graphics.DrawString(FormYeMeiJiao.TextBoxYeJiao.Text, FormYeMeiJiao.TextBoxYeJiao.Font, Brushes.Blue, x, y) End If PrintTop = e.MarginBounds.Top PrintLeft = e.MarginBounds.Lef