Разработка автоматизированной информационной системы для медработников "Заказы на лекарства"
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
ы и статистика 2009.-352с.
. Федотова Д Э. CASE-технологии. М.: Телеком, 2010.-160с.
. Диго С.М. Проектирование и использование баз данных. - М.: Финансы и статистика, 2007.
. Автоматизированные информационные технологии в экономике: Учебник/ Под ред. проф. Г.А. Титоренко. - М.: Компьютер, ЮНИТИ, 2009. - 400с.
. Волченков Е.Г. Программная инженерия. Стандартизация пользовательского интерфейса / Е.Г. Волченков. - М.: ИНФРА-М, 2008. - 216 с.
Программный продукт
. MS Visual Studio 2010
2. СУБД MS Access
Приложение
Class Form1Sub ВыходToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыходToolStripMenuItem.Click()SubSub КлиентыToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles КлиентыToolStripMenuItem.Click.MdiParent = Me.Show()SubSub БазаЗаказовToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles БазаЗаказовToolStripMenuItem.Click.MdiParent = Me.Show()SubSub СотрудникиToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СотрудникиToolStripMenuItem.Click.MdiParent = Me.Show()SubSub СкладToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СкладToolStripMenuItem.Click.MdiParent = Me.Show()SubClassClass Form2con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Курсовая база.mdb")ds As New DataSetSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click.Open()comm As New OleDb.OleDbCommand("insert into klient(Imya,Famil,Otch,Kod,Adres,N pasport) values(" & TextBox1.Text & "," & TextBox2.Text & "," & TextBox3.Text & "," & TextBox4.Text & "," & TextBox5.Text & "," & TextBox6.Text & ")", con).ExecuteNonQuery().Close()SubSub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Clickadap As New OleDb.OleDbDataAdapter("select * from klient", con).Open().Fill(ds, "Таблица").DataSource = ds.Tables("Таблица").Columns(0).HeaderText = "Имя".Columns(1).HeaderText = "Фамилия".Columns(2).HeaderText = "Отчество".Columns(3).HeaderText = "Код клиента".Columns(4).HeaderText = "Адрес".Columns(5).HeaderText = "Номер паспорта".Close()SubSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click.Open()comm As New OleDb.OleDbCommand("delete " & ds.Tables("Таблица").Columns(0).ColumnName & "," & ds.Tables("Таблица").Columns(1).ColumnName & "," & ds.Tables("Таблица").Columns(2).ColumnName & "," & ds.Tables("Таблица").Columns(3).ColumnName & "," & ds.Tables("Таблица").Columns(4).ColumnName & "," & ds.Tables("Таблица").Columns(5).ColumnName & " from klient where Kod=" & TextBox4.Text, con).ExecuteNonQuery().Close()SubSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click.Open()comm As New OleDb.OleDbCommand("update klient set Imya=" & TextBox1.Text & " where Kod=" & TextBox4.Text, con).ExecuteNonQuery().Close()ex As ExceptionTry.Open()comm As New OleDb.OleDbCommand("update klient set Famil=" & TextBox2.Text & " where Kod=" & TextBox4.Text, con).ExecuteNonQuery().Close()ex1 As ExceptionTry.Open()comm As New OleDb.OleDbCommand("update klient set Otch=" & TextBox3.Text & " where Kod=" & TextBox4.Text, con).ExecuteNonQuery().Close()ex As ExceptionTry.Open()comm As New OleDb.OleDbCommand("update klient set Adres=" & TextBox5.Text & " where Kod=" & TextBox4.Text, con).ExecuteNonQuery().Close()ex As ExceptionTry.Open()comm As New OleDb.OleDbCommand("update klient set N pasport=" & TextBox6.Text & " where Kod=" & TextBox4.Text, con).ExecuteNonQuery().Close()ex As ExceptionTrySubSub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Close()SubClass