Проектирование информационной системы «Учет оборудования на предприятии» с использованием CASE-технологий

Автор работы: Пользователь скрыл имя, 06 Апреля 2013 в 08:32, курсовая работа

Описание

Постановкой задачи является разработка программного обеспечения в системе визуального программирования Delphi для информационной системы в конкретной предметной области. В качестве инструмента для разработки была выбрана система управления базами данных MS ACCESS, которая является одним из лидеров в области СУБД и предоставляет все средства для надежного, безопасного и простого ведения баз данных.

Скачать (624.35 Кб) Сколько стоит заказать работу?
Работа состоит из  1 файл

Курсовая ПИС.docx

— 660.38 Кб (Скачать документ)

 

Список использованной литературы

  1. С.Маклаков. BPwin, ERwin. CASE - средства разработки информационных систем. - Диалог-Мифи, 1999, 295 стр;
  2. Бобровский С.И. Delphi 7. Учебный курс. - 1ое издание, 2004;
  3. Фаронов В.В. Программирование баз данных в Delphi 7.Учебный курс.  – СПб.:Питер, 2005, 459стр;
  4. M.Вендров. Проектирование программного обеспечения экономических информационных систем. 2-е издание. - М.: Финансы и статистика, 2005. - 544 стр;
  5. М.В.Красильникова. Проектирование информационных систем: Учебное пособие - М.: МИСиС, 2004. - 106 стр;

 

Приложение 1

Программмный код Главной формы (Unit1)

unit Unit1;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, Menus, jpeg, ExtCtrls;

 

type

  TForm1 = class(TForm)

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N3: TMenuItem;

    N4: TMenuItem;

    N5: TMenuItem;

    N8: TMenuItem;

    N9: TMenuItem;

    N10: TMenuItem;

    N11: TMenuItem;

    N12: TMenuItem;

    N6: TMenuItem;

    N13: TMenuItem;

    N14: TMenuItem;

    N15: TMenuItem;

    N16: TMenuItem;

    N7: TMenuItem;

    N17: TMenuItem;

    N18: TMenuItem;

    N19: TMenuItem;

    N20: TMenuItem;

    N21: TMenuItem;

    N22: TMenuItem;

    N23: TMenuItem;

    N24: TMenuItem;

    N25: TMenuItem;

    N26: TMenuItem;

    N27: TMenuItem;

    N28: TMenuItem;

    N29: TMenuItem;

    N31: TMenuItem;

    N32: TMenuItem;

    N33: TMenuItem;

    N34: TMenuItem;

    N35: TMenuItem;

    Image1: TImage;

    N2: TMenuItem;

    N30: TMenuItem;

    procedure N8Click(Sender: TObject);

    procedure N9Click(Sender: TObject);

    procedure N10Click(Sender: TObject);

    procedure N11Click(Sender: TObject);

    procedure N12Click(Sender: TObject);

    procedure N13Click(Sender: TObject);

    procedure N14Click(Sender: TObject);

    procedure N15Click(Sender: TObject);

    procedure N16Click(Sender: TObject);

    procedure N17Click(Sender: TObject);

    procedure N18Click(Sender: TObject);

    procedure N19Click(Sender: TObject);

    procedure N20Click(Sender: TObject);

    procedure N22Click(Sender: TObject);

    procedure N23Click(Sender: TObject);

    procedure N24Click(Sender: TObject);

    procedure N25Click(Sender: TObject);

    procedure N28Click(Sender: TObject);

    procedure N27Click(Sender: TObject);

    procedure N29Click(Sender: TObject);

    procedure N33Click(Sender: TObject);

    procedure N34Click(Sender: TObject);

    procedure N35Click(Sender: TObject);

    procedure N3Click(Sender: TObject);

    procedure N1Click(Sender: TObject);

    procedure N30Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

 

 uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10,

Unit11, Unit12, Unit13, Unit14, Unit15, Unit16, Unit17, Unit18, Unit19,

 Unit20, Unit21, Unit22, Unit23, Unit24, Unit25, Unit26;

 

{$R *.dfm}

 

procedure TForm1.N8Click(Sender: TObject);

begin

Form2.Show;

end;

 

procedure TForm1.N9Click(Sender: TObject);

begin

Form3.Show;

end;

 

procedure TForm1.N10Click(Sender: TObject);

begin

Form4.Show;

end;

 

procedure TForm1.N11Click(Sender: TObject);

begin

Form5.Show;

end;

 

procedure TForm1.N12Click(Sender: TObject);

begin

Form6.Show;

end;

 

procedure TForm1.N13Click(Sender: TObject);

begin

Form7.Show;

end;

 

procedure TForm1.N14Click(Sender: TObject);

begin

Form8.Show;

end;

 

procedure TForm1.N15Click(Sender: TObject);

begin

Form9.Show;

end;

 

procedure TForm1.N16Click(Sender: TObject);

begin

Form10.Show;

end;

 

procedure TForm1.N17Click(Sender: TObject);

begin

Form11.Show;

end;

 

procedure TForm1.N18Click(Sender: TObject);

begin

Form12.Show;

end;

 

procedure TForm1.N19Click(Sender: TObject);

begin

Form13.Show;

end;

 

procedure TForm1.N20Click(Sender: TObject);

begin

Form14.Show;

end;

 

procedure TForm1.N22Click(Sender: TObject);

begin

Form15.Show;

end;

 

procedure TForm1.N23Click(Sender: TObject);

begin

Form16.Show;

end;

 

procedure TForm1.N24Click(Sender: TObject);

begin

Form17.Show;

end;

 

procedure TForm1.N25Click(Sender: TObject);

begin

Form18.Show;

end;

 

procedure TForm1.N27Click(Sender: TObject);

begin

Form19.Show;

end;

 

procedure TForm1.N28Click(Sender: TObject);

begin

Form20.Show;

end;

 

procedure TForm1.N29Click(Sender: TObject);

begin

Form21.Show;

end;

 

procedure TForm1.N33Click(Sender: TObject);

begin

Form23.Show;

end;

 

procedure TForm1.N34Click(Sender: TObject);

begin

Form24.Show;

end;

 

procedure TForm1.N35Click(Sender: TObject);

begin

Form25.Show;

end;

 

procedure TForm1.N3Click(Sender: TObject);

begin

Form1.Close;

end;

 

procedure TForm1.N1Click(Sender: TObject);

begin

Form26.Show;

end;

 

procedure TForm1.N30Click(Sender: TObject);

begin

Form22.Show;

end;

 

end.


Информация о работе Проектирование информационной системы «Учет оборудования на предприятии» с использованием CASE-технологий