Розробка системи інформаційного забезпечення роботи меблевого магазину

 

ВСТУП

інформаційний програма магазин

Дисципліна «Алгоритмізація та програмування процедур обробки інформації» вивчає курси вищої математики, дискретний аналіз, обчислювальні машини, системи і мережі, моделі і структури даних та інші. Актуальність дисципліни полягає в тому що для швидкої роботи користувача потрібні не лише швидкі компютери, а і гарні і швидкі алгоритми.

При реалізації курсового проекту використана середовище програмування Visual Studio на мові програмування Vb.NEt.

Мету курсового проекту - закріпити навички створення нових типів даних, в даному випадку бінарного дерева пошуку.

Завдання курсового проекту - провірити знання і навички які були здобуті протягом курсу.

РОЗДІЛ 1. Теоретична частина

1.1Постановка задачі

У цьому курсовому проекті постає задача створення інформаційної системи роботи меблевого магазину. У якій необхідне створення списку наявних меблів у магазині/складі, даних про клієнтів, та даних про продажі.

1.2Актуальність проблеми

Інформаційні системи, які використовуються у магазинах, покликані допомогти у веденні справ. З їх допомогою можна швидко перевірити чи є у магазину необхідні товари, за списком клієнтів можна визначити чи купували раніше, чи є постійними. Тому дана робота необхідна бути створеною, з подальшим удосконаленням та використанням у дійсному меблевому магазині.

1.3Опис та інші дані про інформаційні системи

Інформацíйна система (англ. Information system) - сукупність організаційних і технічних засобів для збереження та обробки інформації з метою забезпечення інформаційних потреб користувачів.

Інформаційні системи включають в себе: технічні засоби обробки даних, програмне забезпечення і відповідний персонал. Чотири складові частини утворюють внутрішню інформаційну основу:

·засоби фіксації і збору інформації;

·засоби передачі відповідних даних та повідомлень;

·засоби збереження інформації;

·засоби аналізу, обробки і представлення інформації.

Основними факторами, які впливають на впровадження інформаційних систем, є потреби організацій та користувачів, а також наявність відповідних засобів для їх формування. Найсуттєвіше на розвиток інформаційних систем вплинули досягнення в галузі компютерної техніки та телекомунікаційних мереж.

1.4Класифікація інформаційних систем

За ступенем автоматизації.

В залежності від ступеня (рівня) автоматизації виділяють ручні, автоматизовані й автоматичні інформаційні системи.

Ручні ІС:

характеризуються тим, що всі операції з переробки інформації виконуються людиною.

Автоматизовані ІС:

частина функції (підсистем) керування або опрацювання даних здійснюється автоматично, а частина - людиною.

За сферою призначення.

Оскільки ІС утворюються для задоволення інформаційних потреб в межах конкретної предметної галузі, то кожна предметна галузь (в сфері призначення) відповідає свій тип ІС. Перераховувати всі ці типи немає змісту, оскільки кількість предметних галузей велика, але можна вказати наприклад такі типи ІС:

·Економічна ІС - інформаційна система призначена для виконання функцій управління на підприємстві;

·Медична ІС - інформаційна система призначена для використання в лікувальному або лікувально-профілактичному закладі;

·Географічна ІС - інформаційна система, забезпечуюча збір, збереження, обробку, доступ, відображення і розповсюдження даних;

·Адміністративні;

·Виробничі;

·Навчальні;

·Екологічні;

·Криміналістичні;

·Військові та інші.

За місцем діяльності ІС.

·наукові ІС - призначені для автоматизації діяльності науковців, аналізу статистичної інформації, керування експериментом.

·ІС автоматизованого керування - призначені для автоматизації праці інженерів-проектувальників і розроблювачів нової техніки (технології). Такі ІС допомагають здійснювати:

oрозробку нових виробів і технологій їхнього виробництва;

oрізноманітні інженерні розрахунки (визначення технічних параметрів виробів, видаткових норм - трудових, матеріальних і т. д.);

oстворення графічної документації (креслень, схем, планувань);

oмоделювання проектованих об'єктів;

oстворення керуючих програм для верстатів із числовим програмним керуванням.

·ІС організаційного керування - призначені для автоматизації функції адміністративного (управлінського) персоналу. До цього класу відносяться ІС керування як промисловими (підприємства), так і непромисловими об'єктами (банки, біржа, страхові компанії, готелі і т. д.) і окремими офісами (офісні системи).

·ІС керування технологічними процесами - призначені для автоматизації різноманітних технологічних процесів (гнучкі виробничі процеси, металургія, енергетика тощо).

Інформаційна система, як система управління, тісно повязується, як з системами збереження та видачі інформації, так і з іншої - з системами, що забезпечують обмін інформацією в процесі управління. Вона охоплює сукупність засобів та методів, що дозволяють користувачу збирати, зберігати, передавати і обробляти відібрану інформацію.

За функціональним призначенням.

В залежності від функціонального призначення можна виділити такі системи:

·Керувальні (АСКТП, АСКВ);

·Проектувальні (САП);

·Наукового пошуку (АСНД, експертні системи);

·Діагностичні, моделювальні;

·Систем підготовки прийняття рішення (СППР).

Розділ 2. Аналіз існуючих інформаційних систем

Системи В2B служать для оптимізації взаємодії між діловими партнерами і є потужним інструментом автоматизації бізнесів-процесів. Вони забезпечують єдине інформаційне середовище при взаємодії партнерів незалежно від їхнього географічного розташування й можуть використатися для рішення самого широкого кола завдань.

Наприклад, системи В2B, вибудувані за схемою «виробник - дистриб'ютор - дилер» дозволяють одержувати безперебійну інформацію про поставки, запаси продукції на складах; наявності або відсутності товарів у цей момент часу; розміщати замовлення й стежити за ходом їхнього виконання. Системи В2B [2], вибудувані за схемою «готелю - авіакомпанії - туроператор - турагентства» дозволяють одержувати безперебійну інформацію про наявність місць і квитків і здійснювати їхнє бронювання.

Московська компанія стільникового зв'язку «МОСМОБАЙЛ» воліє користуватися програмним продуктом «Складський облік 1.6» вона призначена:

. Для ведення складського обліку товару;

. Виписки й прийняття товару (формування накладних);

. Складання всіляких звітів по накладних, товарам, відправникові, одержувачеві, даті й т. п.;

. Фільтрація по товарах і накладним (по постачальниках або одержувачам). Передача цих звітів у програму MS Excel або відразу на печатку.

Програма має гарний і зручний інтерфейс. Дозволяє класифікувати товар по категоріях і розділам.

Програма випускається у двох варіантах: у першому варіанті необхідно заносити характеристики товару (категорія, розділ, країна й фірма виробник) у словники, а потім вже з ними працювати; Другий варіант (Lіght - більше зручна версія) дозволяє не створювати такі словники, а відразу заносити новий товар у базу даних.

Програма призначена для роботи як у локальному режимі (установлюється на один комп'ютер), так й у багатьох користувачів, тобто використовуючи одну базу даних, з нею можуть працювати кілька працівників одночасно на різних комп'ютерах. Для цього необхідно в програмі вказати шлях до загальної бази даних, а саме до файлу SkladBase.DB.і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 Форма додавання і редагування товарів

На цьому робота по оформленню вікон програми вважаємо завершеною. Але як можна було побачити із скріншотів вище, на формах згадується про редагування інформації. Для редагування або додавання інформації потрібно зробити певні дії, що указані нижче на малюнках. У свою чергу дані меню мають наступний вигляд:

) на формі каталогів (Мал. 3.1.5)2) на формі товарів (Мал. 3.1.6)

) на формі товарів (Мал. 3.1.7)

) на формі товарів (Мал. 3.1.8)

) на формі каталогів (Мал. 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. Сортировка и поиск / Д. Кнут. - М.: Изд. дом «Вильямс», 2000. - 824 с.

4.Макконелл Дж. Основы современных алгоритмов / Дж. Макконелл - М.: Техносфера, 2004 - 368 с.

5.Свами М. Графы, сети и алгоритмы / М. Свами, К. Тхуласираман. - М.: Мир, 1984 - 454 с.

6.Липский В. Комбинаторика для программистов / В. Липский. - М.: Мир, 1988. - 200 с.

.#"justify">ДОДАТКИ

Додаток А

Форма MAIN.vb

Imports SystemSystem.Windows.FormsSystem.IOClass MainM As New ModelarrModel As New ArrayListMyPictMod As StringMyImage As BitmapSelNumbTypes As Integer = 0Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load().CmbType.SelectedIndex = 0ex As Exception.Items.Add("Даних немає").CmbType.SelectedIndex = 0Try.CmbModel.Items.Clear()()()()SubSub ReadFromFileM()BR As BinaryReaderFS As FileStream= New System.IO.FileStream(".\officeequipment.dat", FileMode.OpenOrCreate, FileAccess.ReadWrite)= New System.IO.BinaryReader(FS).BaseStream.Seek(0, SeekOrigin.Begin).Clear()FS.Position < FS.Length.Id = BR.ReadSingle.IdNmb = BR.ReadSingle.NameOfModel = BR.ReadString.TypeOfTool = BR.ReadString.Cost = BR.ReadString.Amount = BR.ReadSingle.Country = BR.ReadString.PictureM = BR.ReadString.Add(New Model(M.Id, M.IdNmb, M.NameOfModel, M.TypeOfTool, M.Cost, M.Amount, M.Country, M.PictureM))CmbType.Items.Contains(M.TypeOfTool) Then.Items.Add(M.TypeOfTool)IfWhile.Close().Close()SubMyListModel()RecModel As ObjectcurType As New ToolType(0, "")curModel As New Model(0, 0, "", "", "", 0, "", "")Each RecModel In arrModel= RecModelMe.CmbType.SelectedItem = curModel.TypeOfTool Then.CmbModel.Items.Add(curModel.NameOfModel)IfCmbModel.Items.Count = 0 Then.Items.Add("Пропозицій немає")If.SelectedIndex = 0SubInfoModel()RecModel As ObjectcurModel As New Model(0, 0, "", "", "", 0, "", "")Each RecModel In arrModel= RecModelCmbModel.SelectedItem = curModel.NameOfModel Then.Text = "Вид оргтехніки: " & CmbType.SelectedItem & Chr(13) & Chr(10).Text = TxtInfo.Text & "Модель: " & curModel.NameOfModel & Chr(13) & Chr(10).Text = TxtInfo.Text & "Ціна: " & curModel.Cost.ToString & Chr(13) & Chr(10).Text = TxtInfo.Text & "Кількість: " & curModel.Amount.ToString & Chr(13) & Chr(10).Text = TxtInfo.Text & "Країна-виробник: " & curModel.Country.ToString & Chr(13) & Chr(10)= curModel.PictureMIfCmbModel.SelectedItem = "Пропозицій немає" Then.Text = "Пропозицій немає"IfSubSub Image()File.Exists(". & MyPictMod) Then(". & MyPictMod, 259, 168)(".\Головна.jpg", 259, 168)IfTxtInfo.Text = "Пропозицій немає" Then(".\Головна.jpg", 259, 168)IfSubSub ShowMyImage(ByVal fileToDisplay As String, ByVal xSize As Integer, _ySize As Integer)

Not (MyImage Is Nothing) Then.Dispose()IfSubSub BtnTypeOfMusicTools_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTypeOfMusicTools.Click.Show()SubSub BtnMusicTools_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnMusicTools.Click.Show()SubSub CmbType_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmbType.SelectedIndexChanged.Items.Clear()()()()SubSub CmbModel_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmbModel.TextChanged()()SubSub BtnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRefresh.Click.CmbType.Items.Clear()_Load(sender, e)SubSub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click.Close()SubSub New()()SubOverrides Sub Finalize().Finalize()SubClass

Форма Models.vb:

Imports System.IOSystem.Windows.FormsClass ModelsnMaxId As SinglearrModel As New ArrayListarrTypes As New ArrayListdataSource As IEnumerableCurrentModelNumber As Single, CurrentIndex, nPos As SinglecManager As CurrencyManagernAddEdit As ByteCostM As StringmShowSearch As BooleanM As New ModelS As New ToolTypebShowSearch As BooleanSub MusicTools_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load()()= 0_P()_objects()(True, True, True, False, False, True, True)= 0= False.Select(nPos).GroupBoxForSerch.Enabled = False(False)SubSub ReadFromFile()BR As BinaryReaderFS As FileStream= New FileStream(".\Oq.dat", FileMode.OpenOrCreate, FileAccess.ReadWrite)= New System.IO.BinaryReader(FS).BaseStream.Seek(0, SeekOrigin.Begin).Clear()FS.Position < FS.Length.Id = BR.ReadSingle.IdNmb = BR.ReadSingle.NameOfModel = BR.ReadString.TypeOfTool = BR.ReadString.Cost = BR.ReadString.Amount = BR.ReadSingle.Country = BR.ReadString.PictureM = BR.ReadString.Add(New Model(M.Id, M.IdNmb, M.NameOfModel, M.TypeOfTool, M.Cost, M.Amount, M.Country, M.PictureM))WhileM.Id <= 0 Then.Id = 1.IdNmb = 1.NameOfModel = "".TypeOfTool = "".Cost = "".Amount = 1.Country = "".PictureM = "".Add(New Model(M.Id, M.IdNmb, M.NameOfModel, M.TypeOfTool, M.Cost, M.Amount, M.Country, M.PictureM))If.DataSource = arrModel.Parent = Me= M.Id= CType(DataGrid2.BindingContext(arrModel), CurrencyManager).Close().Close()SubSub ReadFromFileTypes()i As IntegerBR As BinaryReaderFS As FileStream= New FileStream(".\Types.dat", _.OpenOrCreate, _.ReadWrite)= New BinaryReader(FS).BaseStream.Seek(0, SeekOrigin.Begin).Clear()= 1FS.Position < FS.Length.Id = BR.ReadSingle.TypeOfTool = BR.ReadString.Items.Add(S.TypeOfTool)+= 1.Add(New ToolType(S.Id, S.TypeOfTool))WhileS.Id <= 0 Then.Id = 1.TypeOfTool = "".Add(New ToolType(S.Id, S.TypeOfTool))If.Close().Close()SubSub current_P().Id = Convert.ToSingle(DataGrid2.Item(DataGrid2.CurrentCell.RowNumber, 0)).IdNmb = Convert.ToSingle(DataGrid2.Item(DataGrid2.CurrentCell.RowNumber, 1)).NameOfModel = DataGrid2.Item(DataGrid2.CurrentCell.RowNumber, 2).TypeOfTool = DataGrid2.Item(DataGrid2.CurrentCell.RowNumber, 3).Cost = DataGrid2.Item(DataGrid2.CurrentCell.RowNumber, 4).Amount = DataGrid2.Item(DataGrid2.CurrentCell.RowNumber, 5).Country = DataGrid2.Item(DataGrid2.CurrentCell.RowNumber, 6).PictureM = DataGrid2.Item(DataGrid2.CurrentCell.RowNumber, 7)Ab As New Model(M.Id, M.IdNmb, M.NameOfModel, M.TypeOfTool, M.Cost, M.Amount, M.Country, M.PictureM)= arrModel.IndexOf(Ab)= M.IdSubSub current_objects().TxtId.Text = M.Id.ToString.TxtIdNmb.Text = M.IdNmb.ToString.CmbType.SelectedIndex = M.IdNmb - 1.TxtModel.Text = M.NameOfModel.TxtCost.Text = M.Cost.TxtAmount.Text = M.Amount.TxtCountry.Text = M.Country.TxtPictureM.Text = M.PictureMSubSub 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).BtnAdd.Enabled = lAdd.BtnEdit.Enabled = lEdit.BtnDel.Enabled = lDel.BtnSave.Enabled = lSave.BtnCancel.Enabled = lCancel.BtnExit.Enabled = lExit.BtnFind.Enabled = lFindSubSub ButtonFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonFirst.Click.UnSelect(cManager.Position).Position = 0.Select(cManager.Position)_P()_objects()SubSub ButtonPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonPrev.Click.UnSelect(cManager.Position).Position -= 1.Select(cManager.Position)_P()_objects()SubSub ButtonNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonNext.Click.UnSelect(cManager.Position).Position += 1.Select(cManager.Position)_P()_objects()SubSub ButtonLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonLast.Click.UnSelect(cManager.Position).Position = arrModel.Count - 1.Select(cManager.Position)_P()_objects()SubSub BtnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAdd.Click(False, False, False, True, True, True, False).Enabled = False.PlnNavigation.Enabled = False= 1()(True).TxtModel.Focus()SubSub DataGrid2_CurrentCellChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGrid2.CurrentCellChanged_P()_objects()SubSub ShowBoxes(ByVal lShow As Boolean).TxtModel.ReadOnly = Not lShow.CmbType.Enabled = lShow.TxtCost.ReadOnly = Not lShow.TxtCountry.ReadOnly = Not lShow.TxtAmount.ReadOnly = Not lShow.TxtPictureM.ReadOnly = Not lShowSubSub BtnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEdit.Click(False, False, False, True, True, True, False).Enabled = False.PlnNavigation.Enabled = False= 2(True).TxtModel.Focus()SubSub ClearBoxes().TxtId.Text = "".TxtIdNmb.Text = "".TxtCost.Text = "".TxtModel.Text = "".TxtAmount.Text = "".TxtCountry.Text = "".TxtPictureM.Text = "".CmbType.SelectedIndex = 0SubSub RefreshObjects().DataSource = Nothing.DataSource = arrModel= CType(DataGrid2.BindingContext(arrModel), CurrencyManager)SubSub BtnDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDel.ClickMsgBox("Поточну модель оргтехніки " + M.NameOfModel + " буде видалена з файлу." + vbCrLf + "Продовжити?", _.YesNo + MsgBoxStyle.Question, "Видалення моделі") = MsgBoxResult.Yes Then.RemoveAt(CurrentIndex)()arrModel.Count = 0 Then.Id = 1.IdNmb = 1.NameOfModel = "".TypeOfTool = "".Cost = "".Amount = 1.Country = "".PictureM = "".Add(New Model(M.Id, M.IdNmb, M.NameOfModel, M.TypeOfTool, M.Cost, M.Amount, M.Country, M.PictureM))Ab As New Model(M.Id, M.IdNmb, M.NameOfModel, M.TypeOfTool, M.Cost, M.Amount, M.Country, M.PictureM)= arrTypes.IndexOf(Ab)= S.IdIf().Position = 0_objects()("Запис видалено")IfSubSub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSave.ClickLen(Me.TxtModel.Text) = 0 Then("Не введено назви моделі", MsgBoxStyle.Information, "Увага!").TxtModel.Focus()SubIfLen(Me.TxtCost.Text) = 0 Then("Не введено вартості", MsgBoxStyle.Information, "Увага!").TxtCost.Focus()SubIf(True, True, True, True, True, True, True).Enabled = True.PlnNavigation.Enabled = True(nAddEdit)= 0SubSub BtnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCancel.Click(False, False, False, True, True, True, False).Enabled = True.PlnNavigation.Enabled = True_objects()(True)= 0SubSub SaveToArrayList(ByVal nAddEdit As Byte)Case nAddEdit1.Id = nMaxId + 1.IdNmb = Me.CmbType.SelectedIndex + 1.NameOfModel = Me.TxtModel.Text.TypeOfTool = Me.CmbType.SelectedItem.Cost = Me.TxtCost.Text.Amount = Me.TxtAmount.Text.Country = Me.TxtCountry.Text.PictureM = Me.TxtPictureM.Text.Add(New Model(M.Id, M.IdNmb, M.NameOfModel, M.TypeOfTool, M.Cost, M.Amount, M.Country, M.PictureM)).Position = arrModel.Count - 1= nMaxId + 12.Id = CurrentModelNumber.IdNmb = Me.CmbType.SelectedIndex + 1.NameOfModel = Me.TxtModel.Text.TypeOfTool = Me.CmbType.SelectedItem.Cost = Me.TxtCost.Text.Amount = Me.TxtAmount.Text.Country = Me.TxtCountry.Text.PictureM = Me.TxtPictureM.TextAb As New Model(M.Id, M.IdNmb, M.NameOfModel, M.TypeOfTool, M.Cost, M.Amount, M.Country, M.PictureM).Item(CurrentIndex) = AbSelect()_P()_objects()(False)()("Записи збережено")SubSub SaveAllToFile()BW As BinaryWriterFS As FileStreamaListEnum As IEnumerator= New FileStream(".\officeequipment.dat", FileMode.Create, FileAccess.Write)= New BinaryWriter(FS).BaseStream.Seek(0, SeekOrigin.Begin)= arrModel.GetEnumeratoraListEnum.MoveNext(BW, aListEnum.Current)While.Close().Close()= NothingSubSub SaveRecord(ByVal writer As BinaryWriter, ByVal record As Model).Write(record.Id).Write(record.IdNmb).Write(record.NameOfModel).Write(record.TypeOfTool).Write(record.Cost).Write(record.Amount).Write(record.Country).Write(record.PictureM)SubSub BtnFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnFind.Click.TxtSearchModel.Focus()bShowSearch = False Then= True.Text = "Завершити пошук".GroupBoxForSerch.Enabled = True= False.Text = "Пошук".GroupBoxForSerch.Enabled = FalseIf.Checked = True.Text = "".Text = "".Text = ""SubSub BtnDoSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDoSearch.Click.UnSelect(cManager.Position)RadioButton1.Checked = True Then= Search(1, (Trim(Me.TxtSearchModel.Text)).ToUpper)Me.TxtSearchModel.Text = "" Then("Не введено жодного значення для пошуку!", MsgBoxStyle.Information, "УВАГА!!!")IfIfRadioButton2.Checked = True Then= Search(2, (Trim(Me.TxtSearchCost.Text)).ToUpper)Me.TxtSearchCost.Text = "" Then("Не введено жодного значення для пошуку!", MsgBoxStyle.Information, "УВАГА!!!")IfIfRadioButton3.Checked = True Then= Search(3, (Trim(Me.TxtSearchCountry.Text)).ToUpper)Me.TxtSearchCountry.Text = "" Then("Не введено жодного значення для пошуку!", MsgBoxStyle.Information, "УВАГА!!!")IfIfnPos >= 0 Then.Position = nPos.Focus().Select(nPos)("Запис не знайдено!", MsgBoxStyle.Information, "УВАГА!!!")IfSubFunction Search(ByVal bField As Integer, ByVal sStr As String) As Integeritm As Object, i As IntegerCurA As New Model(0, 0, "", "", "", 0, "", "")= -1= -1bField = 1 ThenEach itm In arrModel+= 1= itmString.Compare(sStr, 0, (CurA.NameOfModel).ToUpper, 0, Len(sStr), False) = 0 Then= iFunctionIfbField = 2 ThenEach itm In arrModel+= 1= itmString.Compare(sStr, 0, (CurA.Cost).ToUpper, 0, Len(sStr), False) = 0 Then= iFunctionIfbField = 3 ThenEach itm In arrModel+= 1= itmString.Compare(sStr, 0, (CurA.Country).ToUpper, 0, Len(sStr), False) = 0 Then= iFunctionIf("Запис не знайдено!", MsgBoxStyle.Information, "УВАГА!!!")IfFunctionSub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click.Close()SubSub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged.Enabled = True.Focus().Enabled = False.Enabled = False.Text = "".Text = ""SubSub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged.Enabled = True.Focus().Enabled = False.Enabled = False.Text = "".Text = ""SubSub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged.Enabled = True.Focus().Enabled = False.Enabled = False.Text = "".Text = ""SubSub TxtAmount_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TxtAmount.ValidatingNot IsNumeric(TxtAmount.Text) Then("У це поле слід вводити число!").Text = "1"IfSubSub DataGrid2_Navigate(ByVal sender As System.Object, ByVal ne As System.Windows.Forms.NavigateEventArgs) Handles DataGrid2.NavigateSubSub CmbType_ChangeUICues(ByVal sender As Object, ByVal e As System.Windows.Forms.UICuesEventArgs) Handles CmbType.ChangeUICuesSubSub CmbType_ControlAdded(ByVal sender As Object, ByVal e As System.Windows.Forms.ControlEventArgs) Handles CmbType.ControlAddedSubSub CmbType_DataSourceChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmbType.DataSourceChangedSubSub CmbType_EnabledChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmbType.EnabledChangedSubSub CmbType_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles CmbType.KeyUpSubSub CmbType_RegionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmbType.RegionChangedSubClass

Форма Types.vb:

Imports System.IOSystem.Windows.FormsClass TypesnMaxId As SinglearrTypes As New ArrayListdataSource As IEnumerableCurrentTypeNumber As Single, CurrentIndex, nPos, nOldPos As SinglecManager As CurrencyManagernAddEdit As BytebShowSearch As BooleanS As New ToolTypeSub Types_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load()= 0_P()_objects()(True, True, True, True, False, False)= 0= False.Select(nPos).Enabled = False(False)SubSub ReadFromFile()BR As BinaryReaderFS As FileStream= New System.IO.FileStream(".\Types.dat", FileMode.OpenOrCreate, FileAccess.ReadWrite)= New System.IO.BinaryReader(FS).BaseStream.Seek(0, SeekOrigin.Begin).Clear()FS.Position < FS.Length.Id = BR.ReadSingle.TypeOfTool = BR.ReadString.Add(New ToolType(S.Id, S.TypeOfTool))WhileS.Id <= 0 Then.Id = 1.TypeOfTool = "".Add(New ToolType(S.Id, S.TypeOfTool))If.DataSource = arrTypes= S.Id= CType(DataGrid1.BindingContext(arrTypes), CurrencyManager).Close().Close()SubSub current_P().Id = Convert.ToSingle(DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 0)).TypeOfTool = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 1)Ab As New ToolType(S.Id, S.TypeOfTool)= arrTypes.IndexOf(Ab)= S.IdSubSub Current_objects().TxtId.Text = S.Id.ToString.TxtTypeOfTool.Text = S.TypeOfToolSubSub showbuttons(ByVal lAdd As Boolean, ByVal lDel As Boolean, ByVal lFind As Boolean, ByVal lEdit As Boolean, _lSave As Boolean, ByVal lCancel As Boolean).BtnAdd.Enabled = lAdd.BtnDel.Enabled = lDel.BtnFind.Enabled = lFind.BtnEdit.Enabled = lEdit.BtnSave.Enabled = lSave.BtnCancel.Enabled = lCancelSubSub ButtonFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonFirst.Click.UnSelect(cManager.Position).Position = 0.Select(cManager.Position)_P()_objects()SubSub ButtonPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonPrev.Click.UnSelect(cManager.Position).Position -= 1.Select(cManager.Position)_P()_objects()SubSub ButtonNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonNext.Click.UnSelect(cManager.Position).Position += 1.Select(cManager.Position)_P()_objects()SubSub ButtonLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonLast.Click.UnSelect(cManager.Position).Position = arrTypes.Count - 1.Select(cManager.Position)_P()_objects()SubSub BtnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAdd.Click(False, False, False, False, True, True).Enabled = False.PlnNavigate.Enabled = False= 1()(True).TxtTypeOfTool.Focus()SubSub ShowBoxes(ByVal lShow).TxtTypeOfTool.ReadOnly = Not lShowSubSub ClearBoxes().TxtId.Text = "".TxtTypeOfTool.Text = ""SubSub ReturnOldContentsBoxes()_objects()SubSub BtnDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDel.ClickMsgBox("Поточний вид " + S.TypeOfTool + " буде видалено з файлу." + vbCrLf + "Продовжити?", _.YesNo + MsgBoxStyle.Question, "Видалення виду") = MsgBoxResult.Yes Then.RemoveAt(CurrentIndex)()arrTypes.Count = 0 Then.Id = 1.TypeOfTool = "".Add(New ToolType(S.Id, S.TypeOfTool))Ab As New ToolType(S.Id, S.TypeOfTool)= arrTypes.IndexOf(Ab)= S.IdIf().Position = 0_objects()("Запис видалено")IfSubSub RefreshObjects().DataSource = Nothing.DataSource = arrTypes= CType(DataGrid1.BindingContext(arrTypes), CurrencyManager)SubSub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSave.ClickLen(Me.TxtTypeOfTool.Text) = 0 Then("Не введено назви!", MsgBoxStyle.Information, "Увага!").TxtTypeOfTool.Focus()SubIf(True, True, True, True, False, False).Enabled = True.PlnNavigate.Enabled = True(nAddEdit)= 0SubSub BtnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEdit.Click(False, False, False, False, True, True).Enabled = False.PlnNavigate.Enabled = False= 2(True).TxtTypeOfTool.Focus()SubSub BtnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCancel.Click_objects()SubSub SaveToArrayList(ByVal nAddEdit As Byte)Case nAddEdit1.Id = nMaxId + 1.TypeOfTool = Me.TxtTypeOfTool.Text.Add(New ToolType(S.Id, S.TypeOfTool)).Position = arrTypes.Count - 1= nMaxId + 12.Id = CurrentTypeNumber.TypeOfTool = Me.TxtTypeOfTool.Text.TxtId.Text = S.Id.TxtTypeOfTool.Text = S.TypeOfToolAb As New ToolType(S.Id, S.TypeOfTool).Item(CurrentIndex) = AbSelect()_P()_objects()(False)()("Записи збережено")SubSub SaveAllToFile()BW As BinaryWriterFS As FileStreamaListEnum As IEnumerator= New FileStream(".\Types.dat", System.IO.FileMode.Create, System.IO.FileAccess.Write)= New BinaryWriter(FS).BaseStream.Seek(0, SeekOrigin.Begin)= arrTypes.GetEnumerator()aListEnum.MoveNext(BW, aListEnum.Current)While.Close().Close()= NothingSubSub SaveRecord(ByVal writer As BinaryWriter, ByVal record As ToolType).Write(record.Id).Write(record.TypeOfTool)SubSub DataGrid1_CurrentCellChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGrid1.CurrentCellChanged_P()_objects()SubSub BtnFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnFind.ClickbShowSearch = False Then.Enabled = True= True.Text = "Завершити пошук".Enabled = False= False.Text = "Пошук"If.TxtSearchTypeOfTool.Text = "".TxtSearchTypeOfTool.Focus()SubSub BtnDoSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDoSearch.Click.UnSelect(cManager.Position)Len(Me.TxtSearchTypeOfTool.Text) > 0 Then= Search(Trim((Me.TxtSearchTypeOfTool.Text).ToUpper))nPos >= 0 Then.Position = nPos.Focus().Select(nPos)("Запис не знайдено", MsgBoxStyle.Information, "Увага!")If("Не введено жодного значення" + "для пошуку", MsgBoxStyle.Information, "Увага!")IfSubFunction Search(ByVal sStr As String) As Integeritm As Object, i As IntegerCurA As New ToolType(0, "")= -1= -1Each itm In arrTypes+= 1= itmString.Compare(sStr, 0, (CurA.TypeOfTool).ToUpper, 0, Len(sStr), False) = 0 Then= iFunctionIfFunctionSub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click.Close()SubSub DataGrid1_Navigate(ByVal sender As System.Object, ByVal ne As System.Windows.Forms.NavigateEventArgs) Handles DataGrid1.NavigateSubClass

ВСТУП інформаційний програма магазин Дисципліна «Алгоритмізація та програмування процедур обробки інформації» вивчає курси вищої математики, дис

Больше работ по теме: