Главная
База знаний "Allbest"
Программирование, компьютеры и кибернетика
Розробка системи інформаційного забезпечення роботи меблевого магазину
Розробка системи інформаційного забезпечення роботи меблевого магазину
Класифікація існуючих інформаційних систем. Особливості створення інформаційної системи роботи меблевого магазину. Розробка програми, що забезпечує роботу торгівельної организації, в середовищі Microsoft Visual Studio 2008 на мові програмування Vb.NEt.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | украинский |
| Дата добавления | 12.12.2013 |
| Размер файла | 829,5 K |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Размещено на http://www.allbest.ru/
Размещено на http://www.allbest.ru/
ВСТУП
інформаційний програма магазин
Дисципліна «Алгоритмізація та програмування процедур обробки інформації» вивчає курси вищої математики, дискретний аналіз, обчислювальні машини, системи і мережі, моделі і структури даних та інші. Актуальність дисципліни полягає в тому що для швидкої роботи користувача потрібні не лише швидкі комп'ютери, а і гарні і швидкі алгоритми.
При реалізації курсового проекту використана середовище програмування Visual Studio на мові програмування Vb.NEt.
Мету курсового проекту - закріпити навички створення нових типів даних, в даному випадку бінарного дерева пошуку.
Завдання курсового проекту - провірити знання і навички які були здобуті протягом курсу.
РОЗДІЛ 1. Теоретична частина
1.1 Постановка задачі
У цьому курсовому проекті постає задача створення інформаційної системи роботи меблевого магазину. У якій необхідне створення списку наявних меблів у магазині/складі, даних про клієнтів, та даних про продажі.
1.2 Актуальність проблеми
Інформаційні системи, які використовуються у магазинах, покликані допомогти у веденні справ. З їх допомогою можна швидко перевірити чи є у магазину необхідні товари, за списком клієнтів можна визначити чи купували раніше, чи є постійними. Тому дана робота необхідна бути створеною, з подальшим удосконаленням та використанням у дійсному меблевому магазині.
1.3 Опис та інші дані про інформаційні системи
Інформацiйна система (англ. Information system) -- сукупність організаційних і технічних засобів для збереження та обробки інформації з метою забезпечення інформаційних потреб користувачів.
Інформаційні системи включають в себе: технічні засоби обробки даних, програмне забезпечення і відповідний персонал. Чотири складові частини утворюють внутрішню інформаційну основу:
· засоби фіксації і збору інформації;
· засоби передачі відповідних даних та повідомлень;
· засоби збереження інформації;
· засоби аналізу, обробки і представлення інформації.
Основними факторами, які впливають на впровадження інформаційних систем, є потреби організацій та користувачів, а також наявність відповідних засобів для їх формування. Найсуттєвіше на розвиток інформаційних систем вплинули досягнення в галузі комп'ютерної техніки та телекомунікаційних мереж.
1.4 Класифікація інформаційних систем
За ступенем автоматизації.
В залежності від ступеня (рівня) автоматизації виділяють ручні, автоматизовані й автоматичні інформаційні системи.
Ручні ІС:
характеризуються тим, що всі операції з переробки інформації виконуються людиною.
Автоматизовані ІС:
частина функції (підсистем) керування або опрацювання даних здійснюється автоматично, а частина -- людиною.
За сферою призначення.
Оскільки ІС утворюються для задоволення інформаційних потреб в межах конкретної предметної галузі, то кожна предметна галузь (в сфері призначення) відповідає свій тип ІС. Перераховувати всі ці типи немає змісту, оскільки кількість предметних галузей велика, але можна вказати наприклад такі типи ІС:
· Економічна ІС -- інформаційна система призначена для виконання функцій управління на підприємстві;
· Медична ІС -- інформаційна система призначена для використання в лікувальному або лікувально-профілактичному закладі;
· Географічна ІС -- інформаційна система, забезпечуюча збір, збереження, обробку, доступ, відображення і розповсюдження даних;
· Адміністративні;
· Виробничі;
· Навчальні;
· Екологічні;
· Криміналістичні;
· Військові та інші.
За місцем діяльності ІС.
· наукові ІС -- призначені для автоматизації діяльності науковців, аналізу статистичної інформації, керування експериментом.
· ІС автоматизованого керування -- призначені для автоматизації праці інженерів-проектувальників і розроблювачів нової техніки (технології). Такі ІС допомагають здійснювати:
o розробку нових виробів і технологій їхнього виробництва;
o різноманітні інженерні розрахунки (визначення технічних параметрів виробів, видаткових норм -- трудових, матеріальних і т. д.);
o створення графічної документації (креслень, схем, планувань);
o моделювання проектованих об'єктів;
o створення керуючих програм для верстатів із числовим програмним керуванням.
· ІС організаційного керування -- призначені для автоматизації функції адміністративного (управлінського) персоналу. До цього класу відносяться ІС керування як промисловими (підприємства), так і непромисловими об'єктами (банки, біржа, страхові компанії, готелі і т. д.) і окремими офісами (офісні системи).
· ІС керування технологічними процесами -- призначені для автоматизації різноманітних технологічних процесів (гнучкі виробничі процеси, металургія, енергетика тощо).
Інформаційна система, як система управління, тісно пов'язується, як з системами збереження та видачі інформації, так і з іншої -- з системами, що забезпечують обмін інформацією в процесі управління. Вона охоплює сукупність засобів та методів, що дозволяють користувачу збирати, зберігати, передавати і обробляти відібрану інформацію.
За функціональним призначенням.
В залежності від функціонального призначення можна виділити такі системи:
· Керувальні (АСКТП, АСКВ);
· Проектувальні (САП);
· Наукового пошуку (АСНД, експертні системи);
· Діагностичні, моделювальні;
· Систем підготовки прийняття рішення (СППР).
Розділ 2. Аналіз існуючих інформаційних систем
Системи В2B служать для оптимізації взаємодії між діловими партнерами і є потужним інструментом автоматизації бізнесів-процесів. Вони забезпечують єдине інформаційне середовище при взаємодії партнерів незалежно від їхнього географічного розташування й можуть використатися для рішення самого широкого кола завдань.
Наприклад, системи В2B, вибудувані за схемою «виробник - дистриб'ютор - дилер» дозволяють одержувати безперебійну інформацію про поставки, запаси продукції на складах; наявності або відсутності товарів у цей момент часу; розміщати замовлення й стежити за ходом їхнього виконання. Системи В2B [2], вибудувані за схемою «готелю - авіакомпанії - туроператор - турагентства» дозволяють одержувати безперебійну інформацію про наявність місць і квитків і здійснювати їхнє бронювання.
Московська компанія стільникового зв'язку «МОСМОБАЙЛ» воліє користуватися програмним продуктом «Складський облік 1.6» вона призначена:
1. Для ведення складського обліку товару;
2. Виписки й прийняття товару (формування накладних);
3. Складання всіляких звітів по накладних, товарам, відправникові, одержувачеві, даті й т. п.;
4. Фільтрація по товарах і накладним (по постачальниках або одержувачам). Передача цих звітів у програму MS Excel або відразу на печатку.
Програма має гарний і зручний інтерфейс. Дозволяє класифікувати товар по категоріях і розділам.
Програма випускається у двох варіантах: у першому варіанті необхідно заносити характеристики товару (категорія, розділ, країна й фірма виробник) у словники, а потім вже з ними працювати; Другий варіант (Lіght - більше зручна версія) дозволяє не створювати такі словники, а відразу заносити новий товар у базу даних.
Програма призначена для роботи як у локальному режимі (установлюється на один комп'ютер), так й у багатьох користувачів, тобто використовуючи одну базу даних, з нею можуть працювати кілька працівників одночасно на різних комп'ютерах. Для цього необхідно в програмі вказати шлях до загальної бази даних, а саме до файлу SkladBase.DB.
Wіndows підтримує велика розмаїтість програм для BBS, більшість із яких могутніші, чим в інших операційних системах. З телефонною лінією, модемом й Wіndows ви можете перетворити ваш комп'ютер в BBS, забезпечивши dіal-іn доступ до своєї системи для користувачів із Земної кулі. Більшість програм BBS обмежують користувача меню системою, де є деякий фіксований набір функцій. Альтернативою доступу в BBS служить повний спектр можливостей доступу UNІ, що дозволяє вам працювати з вилученою машиною на правах звичайного користувача.
У програмі ведеться робота з первинними документами: прибутковими й видатковими накладними, рахунками-фактурами, рахунками на оплату, внутрішніми накладними, ведеться реєстр виписаних і відвантажених накладних. По уведених документах формується повний набір звітів.
Основні види звітів:
· відомості приходу-витрати;
· сальдо-оборотні відомості;
· прайс-аркуші;
· складська довідка;
· інвентаризаційні відомості;
блок аналітичних звітів:
· прогноз надходження засобів;
· обсяг реалізації;
· загальний прибуток і прибуток по товарах;
· звіт по мінімальним залишкам;
РОЗДІЛ 3. Практична частина
3.1 Розробка програми
За середовище для написання тесту було обрано Microsoft Visual Studio 2008 (Мал. 3.1.1). Прийнято рішення написати максимально просту та зрозумілу для будь-якого користувача програму для інформаційної системи роботи меблевого магазину, де при необхідності та наявності елементарних навичок користування ПК кожен може змінити дані про клієнтів, наявні товари та їх опис.
Мал. 3.1.1 Середовище програмування Visual Studio 2008
Наступним етапом було вирішено розробити дизайн вікон програми та іх оформлення відповідно до цілей програми.
Головне вікно, яке видно відразу після запуску програми, має вигляд (мал. 3.1.2).
Мал. 3.1.2 Головне вікно програми
Форма додавання та редагування каталогів товарів виглядає наступним чином. (Мал. 3.1.3)
Мал. 3.1.3 Форма редагування каталогів
Наступною створеною формою було вікно додавання та редагування товарів, у даному випадку меблів. (Мал. 3.1.4)
Мал. 3.1.4 Форма додавання і редагування товарів
На цьому робота по оформленню вікон програми вважаємо завершеною. Але як можна було побачити із скріншотів вище, на формах згадується про редагування інформації. Для редагування або додавання інформації потрібно зробити певні дії, що указані нижче на малюнках. У свою чергу дані меню мають наступний вигляд:
1) на формі каталогів (Мал. 3.1.5)2) на формі товарів (Мал. 3.1.6)
3) на формі товарів (Мал. 3.1.7)
4) на формі товарів (Мал. 3.1.8)
5) на формі каталогів (Мал. 3.1.9)
Мал. 3.1.5 Редагування каталогів
Мал. 3.1.6 Редагування товарів
Мал. 3.1.7 Збереження даних
Мал. 3.1.8 Пошук по моделі, вартості та країні-виробнику
Мал. 3.1.9 Пошук по каталогу
Оформлення вікон та форм завершено, залишилося написання коду (переглянути можна у додатках), щоб усе це працювало як потрібно, та наповнення програми необхідною інформацією.
3.2 Інструкція користувача
Щодо інструкцій для подальших користувачів, то при розробці даної програми намагалися створити найбільш простіше та зрозуміло, щоб навіть люди не досвідчені у роботі за комп'ютером змогли інтуїтивно здогадатися що потрібно робити. Але декілька пояснень усе ж таки можна зробити.
Після запуску на головному вікні вибираємо із каталогу необхідний розділ, потім трохи нижче вибираємо товар і бачимо інформацію про товар та фотографію, якщо вона є (Мал. 3.2.1).
Мал. 3.2.1 Перегляд види товарів
Також перегляд самого товару (Мал. 3.2.2)
Мал. 3.2.2 Перегляд самого товару
ВИСНОВКИ
У цій роботі було показано різні методи роботи з інформаційними системами. В процесі виконання роботи був створений програмний продукт. Який демонструє головні методи роботи з інформаційними системами. Програма створює певну систему і дає змогу додавати в це неї нові елементи.
Для створення програми були вивчені теоретичні матеріали VB.Net і матеріали з ведення магазину.
У результаті була створена програма, що дозволяє вести інформаційну базу оргтехніки .
Інтерфейс програми дозволяє без особливих труднощів користуватися їй як досвідченому, так і починаючому користувачеві ПК.
У результаті проведеної роботи були досягнуті всі завдання поставлені перед початком курсової роботи.
СПИСОК ЛІТЕРАТУРНИХ ДЖЕРЕЛ
1. Свами М. Графы, сети и алгоритмы / М. Свами, К. Тхуласираман. - М.: Мир, 1984 - 454 с.
2. Липский В. Комбинаторика для программистов / В. Липский. - М.: Мир, 1988. - 200 с.
3. Кнут Д. Искусство программирования, том 3. Сортировка и поиск / Д. Кнут. - М.: Изд. дом «Вильямс», 2000. - 824 с.
4. Макконелл Дж. Основы современных алгоритмов / Дж. Макконелл - М.: Техносфера, 2004 - 368 с.
5. Свами М. Графы, сети и алгоритмы / М. Свами, К. Тхуласираман. - М.: Мир, 1984 - 454 с.
6. Липский В. Комбинаторика для программистов / В. Липский. - М.: Мир, 1988. - 200 с.
7. http://rozetka.com.ua/office-equipment/c80254/
ДОДАТКИ
Додаток А
Форма MAIN.vb
Imports System
Imports System.Windows.Forms
Imports System.IO
Public Class Main
Private M As New Model
Private arrModel As New ArrayList
Dim MyPictMod As String
Dim MyImage As Bitmap
Dim SelNumbTypes As Integer = 0
Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ReadFromFileM()
Try
Me.CmbType.SelectedIndex = 0
Catch ex As Exception
CmbType.Items.Add("Даних немає")
Me.CmbType.SelectedIndex = 0
End Try
Me.CmbModel.Items.Clear()
MyListModel()
InfoModel()
Image()
End Sub
Private Sub ReadFromFileM()
Dim BR As BinaryReader
Dim FS As FileStream
FS = New System.IO.FileStream(".\officeequipment.dat", FileMode.OpenOrCreate, FileAccess.ReadWrite)
BR = New System.IO.BinaryReader(FS)
BR.BaseStream.Seek(0, SeekOrigin.Begin)
arrModel.Clear()
While FS.Position < FS.Length
M.Id = BR.ReadSingle
M.IdNmb = BR.ReadSingle
M.NameOfModel = BR.ReadString
M.TypeOfTool = BR.ReadString
M.Cost = BR.ReadString
M.Amount = BR.ReadSingle
M.Country = BR.ReadString
M.PictureM = BR.ReadString
arrModel.Add(New Model(M.Id, M.IdNmb, M.NameOfModel, M.TypeOfTool, M.Cost, M.Amount, M.Country, M.PictureM))
If CmbType.Items.Contains(M.TypeOfTool) Then
Else
CmbType.Items.Add(M.TypeOfTool)
End If
End While
BR.Close()
FS.Close()
End Sub
Sub MyListModel()
Dim RecModel As Object
Dim curType As New ToolType(0, "")
Dim curModel As New Model(0, 0, "", "", "", 0, "", "")
For Each RecModel In arrModel
curModel = RecModel
If Me.CmbType.SelectedItem = curModel.TypeOfTool Then
Me.CmbModel.Items.Add(curModel.NameOfModel)
End If
Next
If CmbModel.Items.Count = 0 Then
CmbModel.Items.Add("Пропозицій немає")
End If
CmbModel.SelectedIndex = 0
End Sub
Sub InfoModel()
Dim RecModel As Object
Dim curModel As New Model(0, 0, "", "", "", 0, "", "")
For Each RecModel In arrModel
curModel = RecModel
If CmbModel.SelectedItem = curModel.NameOfModel Then
TxtInfo.Text = "Вид оргтехніки: " & CmbType.SelectedItem & Chr(13) & Chr(10)
TxtInfo.Text = TxtInfo.Text & "Модель: " & curModel.NameOfModel & Chr(13) & Chr(10)
TxtInfo.Text = TxtInfo.Text & "Ціна: " & curModel.Cost.ToString & Chr(13) & Chr(10)
TxtInfo.Text = TxtInfo.Text & "Кількість: " & curModel.Amount.ToString & Chr(13) & Chr(10)
TxtInfo.Text = TxtInfo.Text & "Країна-виробник: " & curModel.Country.ToString & Chr(13) & Chr(10)
MyPictMod = curModel.PictureM
End If
Next
If CmbModel.SelectedItem = "Пропозицій немає" Then
TxtInfo.Text = "Пропозицій немає"
End If
End Sub
Private Sub Image()
If File.Exists(".\" & MyPictMod) Then
ShowMyImage(".\" & MyPictMod, 259, 168)
Else
ShowMyImage(".\Головна.jpg", 259, 168)
End If
If TxtInfo.Text = "Пропозицій немає" Then
ShowMyImage(".\Головна.jpg", 259, 168)
End If
End Sub
Public Sub ShowMyImage(ByVal fileToDisplay As String, ByVal xSize As Integer, _
ByVal ySize As Integer)
If Not (MyImage Is Nothing) Then
MyImage.Dispose()
End If
End Sub
Private Sub BtnTypeOfMusicTools_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTypeOfMusicTools.Click
Types.Show()
End Sub
Private Sub BtnMusicTools_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnMusicTools.Click
Models.Show()
End Sub
Private Sub CmbType_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmbType.SelectedIndexChanged
CmbModel.Items.Clear()
MyListModel()
InfoModel()
Image()
End Sub
Private Sub CmbModel_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmbModel.TextChanged
InfoModel()
Image()
End Sub
Private Sub BtnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRefresh.Click
Me.CmbType.Items.Clear()
Main_Load(sender, e)
End Sub
Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
Me.Close()
End Sub
Public Sub New()
InitializeComponent()
End Sub
Protected Overrides Sub Finalize()
MyBase.Finalize()
End Sub
End Class
Форма Models.vb:
Imports System.IO
Imports System.Windows.Forms
Public Class Models
Private nMaxId As Single
Private arrModel As New ArrayList
Private arrTypes As New ArrayList
Private dataSource As IEnumerable
Private CurrentModelNumber As Single, CurrentIndex, nPos As Single
Private cManager As CurrencyManager
Private nAddEdit As Byte
Private CostM As String
Private mShowSearch As Boolean
Private M As New Model
Private S As New ToolType
Private bShowSearch As Boolean
Private Sub MusicTools_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ReadFromFile()
ReadFromFileTypes()
nPos = 0
current_P()
current_objects()
ShowButtons(True, True, True, False, False, True, True)
nAddEdit = 0
bShowSearch = False
DataGrid2.Select(nPos)
Me.GroupBoxForSerch.Enabled = False
ShowBoxes(False)
End Sub
Private Sub ReadFromFile()
Dim BR As BinaryReader
Dim FS As FileStream
FS = New FileStream(".\Oq.dat", FileMode.OpenOrCreate, FileAccess.ReadWrite)
BR = New System.IO.BinaryReader(FS)
BR.BaseStream.Seek(0, SeekOrigin.Begin)
arrModel.Clear()
While FS.Position < FS.Length
M.Id = BR.ReadSingle
M.IdNmb = BR.ReadSingle
M.NameOfModel = BR.ReadString
M.TypeOfTool = BR.ReadString
M.Cost = BR.ReadString
M.Amount = BR.ReadSingle
M.Country = BR.ReadString
M.PictureM = BR.ReadString
arrModel.Add(New Model(M.Id, M.IdNmb, M.NameOfModel, M.TypeOfTool, M.Cost, M.Amount, M.Country, M.PictureM))
End While
If M.Id <= 0 Then
M.Id = 1
M.IdNmb = 1
M.NameOfModel = ""
M.TypeOfTool = ""
M.Cost = ""
M.Amount = 1
M.Country = ""
M.PictureM = ""
arrModel.Add(New Model(M.Id, M.IdNmb, M.NameOfModel, M.TypeOfTool, M.Cost, M.Amount, M.Country, M.PictureM))
End If
DataGrid2.DataSource = arrModel
DataGrid2.Parent = Me
nMaxId = M.Id
cManager = CType(DataGrid2.BindingContext(arrModel), CurrencyManager)
BR.Close()
FS.Close()
End Sub
Private Sub ReadFromFileTypes()
Dim i As Integer
Dim BR As BinaryReader
Dim FS As FileStream
FS = New FileStream(".\Types.dat", _
FileMode.OpenOrCreate, _
FileAccess.ReadWrite)
BR = New BinaryReader(FS)
BR.BaseStream.Seek(0, SeekOrigin.Begin)
arrTypes.Clear()
i = 1
While FS.Position < FS.Length
S.Id = BR.ReadSingle
S.TypeOfTool = BR.ReadString
CmbType.Items.Add(S.TypeOfTool)
i += 1
arrTypes.Add(New ToolType(S.Id, S.TypeOfTool))
End While
If S.Id <= 0 Then
S.Id = 1
S.TypeOfTool = ""
arrTypes.Add(New ToolType(S.Id, S.TypeOfTool))
End If
BR.Close()
FS.Close()
End Sub
Private Sub current_P()
M.Id = Convert.ToSingle(DataGrid2.Item(DataGrid2.CurrentCell.RowNumber, 0))
M.IdNmb = Convert.ToSingle(DataGrid2.Item(DataGrid2.CurrentCell.RowNumber, 1))
M.NameOfModel = DataGrid2.Item(DataGrid2.CurrentCell.RowNumber, 2)
M.TypeOfTool = DataGrid2.Item(DataGrid2.CurrentCell.RowNumber, 3)
M.Cost = DataGrid2.Item(DataGrid2.CurrentCell.RowNumber, 4)
M.Amount = DataGrid2.Item(DataGrid2.CurrentCell.RowNumber, 5)
M.Country = DataGrid2.Item(DataGrid2.CurrentCell.RowNumber, 6)
M.PictureM = DataGrid2.Item(DataGrid2.CurrentCell.RowNumber, 7)
Dim Ab As New Model(M.Id, M.IdNmb, M.NameOfModel, M.TypeOfTool, M.Cost, M.Amount, M.Country, M.PictureM)
CurrentIndex = arrModel.IndexOf(Ab)
CurrentModelNumber = M.Id
End Sub
Private Sub current_objects()
Me.TxtId.Text = M.Id.ToString
Me.TxtIdNmb.Text = M.IdNmb.ToString
Me.CmbType.SelectedIndex = M.IdNmb - 1
Me.TxtModel.Text = M.NameOfModel
Me.TxtCost.Text = M.Cost
Me.TxtAmount.Text = M.Amount
Me.TxtCountry.Text = M.Country
Me.TxtPictureM.Text = M.PictureM
End Sub
Private Sub ShowButtons(ByVal lAdd As Boolean, ByVal lEdit As Boolean, ByVal lDel As Boolean, ByVal lSave As Boolean, ByVal lCancel As Boolean, ByVal lExit As Boolean, ByVal lFind As Boolean)
Me.BtnAdd.Enabled = lAdd
Me.BtnEdit.Enabled = lEdit
Me.BtnDel.Enabled = lDel
Me.BtnSave.Enabled = lSave
Me.BtnCancel.Enabled = lCancel
Me.BtnExit.Enabled = lExit
Me.BtnFind.Enabled = lFind
End Sub
Private Sub ButtonFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonFirst.Click
DataGrid2.UnSelect(cManager.Position)
cManager.Position = 0
DataGrid2.Select(cManager.Position)
current_P()
current_objects()
End Sub
Private Sub ButtonPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonPrev.Click
DataGrid2.UnSelect(cManager.Position)
cManager.Position -= 1
DataGrid2.Select(cManager.Position)
current_P()
current_objects()
End Sub
Private Sub ButtonNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonNext.Click
DataGrid2.UnSelect(cManager.Position)
cManager.Position += 1
DataGrid2.Select(cManager.Position)
current_P()
current_objects()
End Sub
Private Sub ButtonLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonLast.Click
DataGrid2.UnSelect(cManager.Position)
cManager.Position = arrModel.Count - 1
DataGrid2.Select(cManager.Position)
current_P()
current_objects()
End Sub
Private Sub BtnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAdd.Click
ShowButtons(False, False, False, True, True, True, False)
DataGrid2.Enabled = False
Me.PlnNavigation.Enabled = False
nAddEdit = 1
ClearBoxes()
ShowBoxes(True)
Me.TxtModel.Focus()
End Sub
Private Sub DataGrid2_CurrentCellChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGrid2.CurrentCellChanged
current_P()
current_objects()
End Sub
Private Sub ShowBoxes(ByVal lShow As Boolean)
Me.TxtModel.ReadOnly = Not lShow
Me.CmbType.Enabled = lShow
Me.TxtCost.ReadOnly = Not lShow
Me.TxtCountry.ReadOnly = Not lShow
Me.TxtAmount.ReadOnly = Not lShow
Me.TxtPictureM.ReadOnly = Not lShow
End Sub
Private Sub BtnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEdit.Click
ShowButtons(False, False, False, True, True, True, False)
DataGrid2.Enabled = False
Me.PlnNavigation.Enabled = False
nAddEdit = 2
ShowBoxes(True)
Me.TxtModel.Focus()
End Sub
Private Sub ClearBoxes()
Me.TxtId.Text = ""
Me.TxtIdNmb.Text = ""
Me.TxtCost.Text = ""
Me.TxtModel.Text = ""
Me.TxtAmount.Text = ""
Me.TxtCountry.Text = ""
Me.TxtPictureM.Text = ""
Me.CmbType.SelectedIndex = 0
End Sub
Private Sub RefreshObjects()
DataGrid2.DataSource = Nothing
DataGrid2.DataSource = arrModel
cManager = CType(DataGrid2.BindingContext(arrModel), CurrencyManager)
End Sub
Private Sub BtnDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDel.Click
If MsgBox("Поточну модель оргтехніки " + M.NameOfModel + " буде видалена з файлу." + vbCrLf + "Продовжити?", _
MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Видалення моделі") = MsgBoxResult.Yes Then
arrModel.RemoveAt(CurrentIndex)
RefreshObjects()
If arrModel.Count = 0 Then
M.Id = 1
M.IdNmb = 1
M.NameOfModel = ""
M.TypeOfTool = ""
M.Cost = ""
M.Amount = 1
M.Country = ""
M.PictureM = ""
arrModel.Add(New Model(M.Id, M.IdNmb, M.NameOfModel, M.TypeOfTool, M.Cost, M.Amount, M.Country, M.PictureM))
Dim Ab As New Model(M.Id, M.IdNmb, M.NameOfModel, M.TypeOfTool, M.Cost, M.Amount, M.Country, M.PictureM)
CurrentIndex = arrTypes.IndexOf(Ab)
CurrentModelNumber = S.Id
End If
SaveAllToFile()
cManager.Position = 0
current_objects()
MsgBox("Запис видалено")
End If
End Sub
Private Sub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSave.Click
If Len(Me.TxtModel.Text) = 0 Then
MsgBox("Не введено назви моделі", MsgBoxStyle.Information, "Увага!")
Me.TxtModel.Focus()
Exit Sub
End If
If Len(Me.TxtCost.Text) = 0 Then
MsgBox("Не введено вартості", MsgBoxStyle.Information, "Увага!")
Me.TxtCost.Focus()
Exit Sub
End If
ShowButtons(True, True, True, True, True, True, True)
DataGrid2.Enabled = True
Me.PlnNavigation.Enabled = True
SaveToArrayList(nAddEdit)
nAddEdit = 0
End Sub
Private Sub BtnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCancel.Click
ShowButtons(False, False, False, True, True, True, False)
DataGrid2.Enabled = True
Me.PlnNavigation.Enabled = True
current_objects()
ShowBoxes(True)
nAddEdit = 0
End Sub
Private Sub SaveToArrayList(ByVal nAddEdit As Byte)
Select Case nAddEdit
Case 1
M.Id = nMaxId + 1
M.IdNmb = Me.CmbType.SelectedIndex + 1
M.NameOfModel = Me.TxtModel.Text
M.TypeOfTool = Me.CmbType.SelectedItem
M.Cost = Me.TxtCost.Text
M.Amount = Me.TxtAmount.Text
M.Country = Me.TxtCountry.Text
M.PictureM = Me.TxtPictureM.Text
arrModel.Add(New Model(M.Id, M.IdNmb, M.NameOfModel, M.TypeOfTool, M.Cost, M.Amount, M.Country, M.PictureM))
cManager.Position = arrModel.Count - 1
nMaxId = nMaxId + 1
Case 2
M.Id = CurrentModelNumber
M.IdNmb = Me.CmbType.SelectedIndex + 1
M.NameOfModel = Me.TxtModel.Text
M.TypeOfTool = Me.CmbType.SelectedItem
M.Cost = Me.TxtCost.Text
M.Amount = Me.TxtAmount.Text
M.Country = Me.TxtCountry.Text
M.PictureM = Me.TxtPictureM.Text
Dim Ab As New Model(M.Id, M.IdNmb, M.NameOfModel, M.TypeOfTool, M.Cost, M.Amount, M.Country, M.PictureM)
arrModel.Item(CurrentIndex) = Ab
End Select
RefreshObjects()
current_P()
current_objects()
ShowBoxes(False)
SaveAllToFile()
MsgBox("Записи збережено")
End Sub
Private Sub SaveAllToFile()
Dim BW As BinaryWriter
Dim FS As FileStream
Dim aListEnum As IEnumerator
FS = New FileStream(".\officeequipment.dat", FileMode.Create, FileAccess.Write)
BW = New BinaryWriter(FS)
BW.BaseStream.Seek(0, SeekOrigin.Begin)
aListEnum = arrModel.GetEnumerator
While aListEnum.MoveNext
SaveRecord(BW, aListEnum.Current)
End While
BW.Close()
FS.Close()
FS = Nothing
End Sub
Private Sub SaveRecord(ByVal writer As BinaryWriter, ByVal record As Model)
writer.Write(record.Id)
writer.Write(record.IdNmb)
writer.Write(record.NameOfModel)
writer.Write(record.TypeOfTool)
writer.Write(record.Cost)
writer.Write(record.Amount)
writer.Write(record.Country)
writer.Write(record.PictureM)
End Sub
Private Sub BtnFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnFind.Click
Me.TxtSearchModel.Focus()
If bShowSearch = False Then
bShowSearch = True
BtnFind.Text = "Завершити пошук"
Me.GroupBoxForSerch.Enabled = True
Else
bShowSearch = False
BtnFind.Text = "Пошук"
Me.GroupBoxForSerch.Enabled = False
End If
RadioButton1.Checked = True
TxtSearchModel.Text = ""
TxtSearchCost.Text = ""
TxtSearchCountry.Text = ""
End Sub
Private Sub BtnDoSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDoSearch.Click
DataGrid2.UnSelect(cManager.Position)
If RadioButton1.Checked = True Then
nPos = Search(1, (Trim(Me.TxtSearchModel.Text)).ToUpper)
If Me.TxtSearchModel.Text = "" Then
MsgBox("Не введено жодного значення для пошуку!", MsgBoxStyle.Information, "УВАГА!!!")
End If
End If
If RadioButton2.Checked = True Then
nPos = Search(2, (Trim(Me.TxtSearchCost.Text)).ToUpper)
If Me.TxtSearchCost.Text = "" Then
MsgBox("Не введено жодного значення для пошуку!", MsgBoxStyle.Information, "УВАГА!!!")
End If
End If
If RadioButton3.Checked = True Then
nPos = Search(3, (Trim(Me.TxtSearchCountry.Text)).ToUpper)
If Me.TxtSearchCountry.Text = "" Then
MsgBox("Не введено жодного значення для пошуку!", MsgBoxStyle.Information, "УВАГА!!!")
End If
End If
If nPos >= 0 Then
cManager.Position = nPos
DataGrid2.Focus()
DataGrid2.Select(nPos)
Else
MsgBox("Запис не знайдено!", MsgBoxStyle.Information, "УВАГА!!!")
End If
End Sub
Private Function Search(ByVal bField As Integer, ByVal sStr As String) As Integer
Dim itm As Object, i As Integer
Dim CurA As New Model(0, 0, "", "", "", 0, "", "")
Search = -1
i = -1
If bField = 1 Then
For Each itm In arrModel
i += 1
CurA = itm
If String.Compare(sStr, 0, (CurA.NameOfModel).ToUpper, 0, Len(sStr), False) = 0 Then
Search = i
Exit Function
End If
Next
ElseIf bField = 2 Then
For Each itm In arrModel
i += 1
CurA = itm
If String.Compare(sStr, 0, (CurA.Cost).ToUpper, 0, Len(sStr), False) = 0 Then
Search = i
Exit Function
End If
Next
ElseIf bField = 3 Then
For Each itm In arrModel
i += 1
CurA = itm
If String.Compare(sStr, 0, (CurA.Country).ToUpper, 0, Len(sStr), False) = 0 Then
Search = i
Exit Function
End If
Next
Else
MsgBox("Запис не знайдено!", MsgBoxStyle.Information, "УВАГА!!!")
End If
End Function
Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
Me.Close()
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
TxtSearchModel.Enabled = True
TxtSearchModel.Focus()
TxtSearchCost.Enabled = False
TxtSearchCountry.Enabled = False
TxtSearchCost.Text = ""
TxtSearchCountry.Text = ""
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
TxtSearchCost.Enabled = True
TxtSearchCost.Focus()
TxtSearchModel.Enabled = False
TxtSearchCountry.Enabled = False
TxtSearchCountry.Text = ""
TxtSearchModel.Text = ""
End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
TxtSearchCountry.Enabled = True
TxtSearchCountry.Focus()
TxtSearchModel.Enabled = False
TxtSearchCost.Enabled = False
TxtSearchModel.Text = ""
TxtSearchCost.Text = ""
End Sub
Private Sub TxtAmount_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TxtAmount.Validating
If Not IsNumeric(TxtAmount.Text) Then
MsgBox("У це поле слід вводити число!")
TxtAmount.Text = "1"
End If
End Sub
Private Sub DataGrid2_Navigate(ByVal sender As System.Object, ByVal ne As System.Windows.Forms.NavigateEventArgs) Handles DataGrid2.Navigate
End Sub
Private Sub CmbType_ChangeUICues(ByVal sender As Object, ByVal e As System.Windows.Forms.UICuesEventArgs) Handles CmbType.ChangeUICues
End Sub
Private Sub CmbType_ControlAdded(ByVal sender As Object, ByVal e As System.Windows.Forms.ControlEventArgs) Handles CmbType.ControlAdded
End Sub
Private Sub CmbType_DataSourceChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmbType.DataSourceChanged
End Sub
Private Sub CmbType_EnabledChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmbType.EnabledChanged
End Sub
Private Sub CmbType_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles CmbType.KeyUp
End Sub
Private Sub CmbType_RegionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmbType.RegionChanged
End Sub
End Class
Форма Types.vb:
Imports System.IO
Imports System.Windows.Forms
Public Class Types
Private nMaxId As Single
Private arrTypes As New ArrayList
Private dataSource As IEnumerable
Private CurrentTypeNumber As Single, CurrentIndex, nPos, nOldPos As Single
Private cManager As CurrencyManager
Private nAddEdit As Byte
Private bShowSearch As Boolean
Private S As New ToolType
Private Sub Types_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ReadFromFile()
nPos = 0
current_P()
Current_objects()
showbuttons(True, True, True, True, False, False)
nAddEdit = 0
bShowSearch = False
DataGrid1.Select(nPos)
GroupBoxForSerch.Enabled = False
ShowBoxes(False)
End Sub
Private Sub ReadFromFile()
Dim BR As BinaryReader
Dim FS As FileStream
FS = New System.IO.FileStream(".\Types.dat", FileMode.OpenOrCreate, FileAccess.ReadWrite)
BR = New System.IO.BinaryReader(FS)
BR.BaseStream.Seek(0, SeekOrigin.Begin)
arrTypes.Clear()
While FS.Position < FS.Length
S.Id = BR.ReadSingle
S.TypeOfTool = BR.ReadString
arrTypes.Add(New ToolType(S.Id, S.TypeOfTool))
End While
If S.Id <= 0 Then
S.Id = 1
S.TypeOfTool = ""
arrTypes.Add(New ToolType(S.Id, S.TypeOfTool))
End If
DataGrid1.DataSource = arrTypes
nMaxId = S.Id
cManager = CType(DataGrid1.BindingContext(arrTypes), CurrencyManager)
BR.Close()
FS.Close()
End Sub
Private Sub current_P()
S.Id = Convert.ToSingle(DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 0))
S.TypeOfTool = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 1)
Dim Ab As New ToolType(S.Id, S.TypeOfTool)
CurrentIndex = arrTypes.IndexOf(Ab)
CurrentTypeNumber = S.Id
End Sub
Private Sub Current_objects()
Me.TxtId.Text = S.Id.ToString
Me.TxtTypeOfTool.Text = S.TypeOfTool
End Sub
Private Sub showbuttons(ByVal lAdd As Boolean, ByVal lDel As Boolean, ByVal lFind As Boolean, ByVal lEdit As Boolean, _
ByVal lSave As Boolean, ByVal lCancel As Boolean)
Me.BtnAdd.Enabled = lAdd
Me.BtnDel.Enabled = lDel
Me.BtnFind.Enabled = lFind
Me.BtnEdit.Enabled = lEdit
Me.BtnSave.Enabled = lSave
Me.BtnCancel.Enabled = lCancel
End Sub
Private Sub ButtonFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonFirst.Click
DataGrid1.UnSelect(cManager.Position)
cManager.Position = 0
DataGrid1.Select(cManager.Position)
current_P()
Current_objects()
End Sub
Private Sub ButtonPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonPrev.Click
DataGrid1.UnSelect(cManager.Position)
cManager.Position -= 1
DataGrid1.Select(cManager.Position)
current_P()
Current_objects()
End Sub
Private Sub ButtonNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonNext.Click
DataGrid1.UnSelect(cManager.Position)
cManager.Position += 1
DataGrid1.Select(cManager.Position)
current_P()
Current_objects()
End Sub
Private Sub ButtonLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonLast.Click
DataGrid1.UnSelect(cManager.Position)
cManager.Position = arrTypes.Count - 1
DataGrid1.Select(cManager.Position)
current_P()
Current_objects()
End Sub
Private Sub BtnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAdd.Click
showbuttons(False, False, False, False, True, True)
DataGrid1.Enabled = False
Me.PlnNavigate.Enabled = False
nAddEdit = 1
ClearBoxes()
ShowBoxes(True)
Me.TxtTypeOfTool.Focus()
End Sub
Private Sub ShowBoxes(ByVal lShow)
Me.TxtTypeOfTool.ReadOnly = Not lShow
End Sub
Private Sub ClearBoxes()
Me.TxtId.Text = ""
Me.TxtTypeOfTool.Text = ""
End Sub
Private Sub ReturnOldContentsBoxes()
Current_objects()
End Sub
Private Sub BtnDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDel.Click
If MsgBox("Поточний вид " + S.TypeOfTool + " буде видалено з файлу." + vbCrLf + "Продовжити?", _
MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Видалення виду") = MsgBoxResult.Yes Then
arrTypes.RemoveAt(CurrentIndex)
RefreshObjects()
If arrTypes.Count = 0 Then
S.Id = 1
S.TypeOfTool = ""
arrTypes.Add(New ToolType(S.Id, S.TypeOfTool))
Dim Ab As New ToolType(S.Id, S.TypeOfTool)
CurrentIndex = arrTypes.IndexOf(Ab)
CurrentTypeNumber = S.Id
End If
SaveAllToFile()
cManager.Position = 0
Current_objects()
MsgBox("Запис видалено")
End If
End Sub
Private Sub RefreshObjects()
DataGrid1.DataSource = Nothing
DataGrid1.DataSource = arrTypes
cManager = CType(DataGrid1.BindingContext(arrTypes), CurrencyManager)
End Sub
Private Sub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSave.Click
If Len(Me.TxtTypeOfTool.Text) = 0 Then
MsgBox("Не введено назви!", MsgBoxStyle.Information, "Увага!")
Me.TxtTypeOfTool.Focus()
Exit Sub
End If
showbuttons(True, True, True, True, False, False)
DataGrid1.Enabled = True
Me.PlnNavigate.Enabled = True
SaveToArrayList(nAddEdit)
nAddEdit = 0
End Sub
Private Sub BtnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEdit.Click
showbuttons(False, False, False, False, True, True)
DataGrid1.Enabled = False
Me.PlnNavigate.Enabled = False
nAddEdit = 2
ShowBoxes(True)
Me.TxtTypeOfTool.Focus()
End Sub
Private Sub BtnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCancel.Click
Current_objects()
End Sub
Private Sub SaveToArrayList(ByVal nAddEdit As Byte)
Select Case nAddEdit
Case 1
S.Id = nMaxId + 1
S.TypeOfTool = Me.TxtTypeOfTool.Text
arrTypes.Add(New ToolType(S.Id, S.TypeOfTool))
cManager.Position = arrTypes.Count - 1
nMaxId = nMaxId + 1
Case 2
S.Id = CurrentTypeNumber
S.TypeOfTool = Me.TxtTypeOfTool.Text
Me.TxtId.Text = S.Id
Me.TxtTypeOfTool.Text = S.TypeOfTool
Dim Ab As New ToolType(S.Id, S.TypeOfTool)
arrTypes.Item(CurrentIndex) = Ab
End Select
RefreshObjects()
current_P()
Current_objects()
ShowBoxes(False)
SaveAllToFile()
MsgBox("Записи збережено")
End Sub
Private Sub SaveAllToFile()
Dim BW As BinaryWriter
Dim FS As FileStream
Dim aListEnum As IEnumerator
FS = New FileStream(".\Types.dat", System.IO.FileMode.Create, System.IO.FileAccess.Write)
BW = New BinaryWriter(FS)
BW.BaseStream.Seek(0, SeekOrigin.Begin)
aListEnum = arrTypes.GetEnumerator()
While aListEnum.MoveNext
SaveRecord(BW, aListEnum.Current)
End While
BW.Close()
FS.Close()
FS = Nothing
End Sub
Private Sub SaveRecord(ByVal writer As BinaryWriter, ByVal record As ToolType)
writer.Write(record.Id)
writer.Write(record.TypeOfTool)
End Sub
Private Sub DataGrid1_CurrentCellChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGrid1.CurrentCellChanged
current_P()
Current_objects()
End Sub
Private Sub BtnFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnFind.Click
If bShowSearch = False Then
GroupBoxForSerch.Enabled = True
bShowSearch = True
BtnFind.Text = "Завершити пошук"
Else
GroupBoxForSerch.Enabled = False
bShowSearch = False
BtnFind.Text = "Пошук"
End If
Me.TxtSearchTypeOfTool.Text = ""
Me.TxtSearchTypeOfTool.Focus()
End Sub
Private Sub BtnDoSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDoSearch.Click
DataGrid1.UnSelect(cManager.Position)
If Len(Me.TxtSearchTypeOfTool.Text) > 0 Then
nPos = Search(Trim((Me.TxtSearchTypeOfTool.Text).ToUpper))
If nPos >= 0 Then
cManager.Position = nPos
DataGrid1.Focus()
DataGrid1.Select(nPos)
Else
MsgBox("Запис не знайдено", MsgBoxStyle.Information, "Увага!")
End If
Else
MsgBox("Не введено жодного значення" + "для пошуку", MsgBoxStyle.Information, "Увага!")
End If
End Sub
Private Function Search(ByVal sStr As String) As Integer
Dim itm As Object, i As Integer
Dim CurA As New ToolType(0, "")
Search = -1
i = -1
For Each itm In arrTypes
i += 1
CurA = itm
If String.Compare(sStr, 0, (CurA.TypeOfTool).ToUpper, 0, Len(sStr), False) = 0 Then
Search = i
Exit Function
End If
Next
End Function
Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
Me.Close()
End Sub
Private Sub DataGrid1_Navigate(ByVal sender As System.Object, ByVal ne As System.Windows.Forms.NavigateEventArgs) Handles DataGrid1.Navigate
End Sub
End Class
Размещено на Allbest.ru
Подобные документы
Базові конструкції мови програмування С++ з позиції об’єктного програмування. Розробка програми для автоматизації обліку товарів на складі магазину парфумів. Реалізація програми в середовищі Visual Studio C++. Розробка інтерфейсу і тестування програми.
дипломная работа [907,9 K], добавлен 01.04.2016Розробка та схема алгоритму проектованої гри. Особливості мови програмування та середовища "Microsoft Visual Studio C++ 2008 Express Edition". Лістинг програми та загальний опис її роботи, аналіз отриманих результатів та оцінка практичної ефективності.
курсовая работа [762,8 K], добавлен 03.05.2015Розробка таблиці для збереження даних у текстовому файлі про фільми в середовищі програмування Visual Studio C++ та їх сортування за країною виробництва. Реалізація таблиці за допомогою компонента dataGridView. Опис і контрольний приклад роботи програми.
курсовая работа [1,4 M], добавлен 02.11.2016Створення баз даних для автоматизування роботи торгового представника в середовищі програмування Delрhі. Опис вхідної та результуючої інформації, формалізований опис задачі. Розробка технічного та робочого проекту, опис та обґрунтування вибору структури.
курсовая работа [135,8 K], добавлен 11.10.2010Розробка програми для реалізації системи, що забезпечує автоматичне управління та моделювання зміни музичних програм на радіостанції з використанням засобів Microsoft Visual. Програмна реалізація інтерфейсу та процесу моделювання роботи системи.
курсовая работа [1,7 M], добавлен 08.01.2012Розробка моделі системи "Автомобільного магазину". Вивчення основи мови моделювання UML. Створення її для визначення, візуалізації, проектування й документування програмних систем. Використання діаграм кооперацій, послідовності, станів та класів.
курсовая работа [257,8 K], добавлен 10.12.2014Автоматизація роботи інтернет-магазину ювелірних виробів з клієнтами як важлива частина діяльності мережі ювелірних крамниць. Розробка і реалізація інтернет-магазину ювелірних виробів для ювелірної корпорації. Аналіз зручності для користувачів інтерфейсу.
контрольная работа [31,1 K], добавлен 18.01.2013Розробка автоматизованого робочого місця начальника курсу ВВНЗ в програмному середовищі Borland Delphi. Реалізація головного меню програми та додаткової панелі управління. Таблиця з інформацією про спортсмена. Алгоритм роботи інформаційної системи.
курсовая работа [777,6 K], добавлен 19.05.2014Аналіз бізнес-потреб магазину та основних завдань автоматизації процесів купівлі-продажу. Визначення категорій користувачів і класів даних, розробка матриці подій для менеджера товару. Інфологічне та даталогічне проектування інформаційної системи.
курсовая работа [940,2 K], добавлен 07.06.2013Класифікація інформаційних систем. Дослідження особливостей мови UML як засобу моделювання інформаційних систем. Розробка концептуальної моделі інформаційної системи поліклініки з використанням середи редактора програмування IBM Rational Rose 2003.
дипломная работа [930,4 K], добавлен 26.10.2012
