Высокоуровневые методы информатики и программирования

Автор: Пользователь скрыл имя, 01 Декабря 2011 в 14:04, курсовая работа

Краткое описание

Курсовая работа по дисциплине «Высокоуровневые методы информатики и программирования» выполняется с целью проверки того, насколько «мы –студенты», прослушавшие курс, владеем теоретическими знаниями в области методологии проектирования баз данных, обладаем знаниями и навыками, достаточными для самостоятельного решения небольшой по объему содержательной задачи.
Курсовая работа выполняется на заключительной стадии изучения дисциплины. К этому времени мы должны иметь представление о технологии баз данных в целом, о системе базы данных, о её архитектуре и жизненном цикле; знакомы с основными понятиями теории баз данных такими, как: модели базы данных, структуры данных того или иного типа, операции над данными.
База данных спроектирована в СУБД Microsoft Access. Для разработки самой системы, был использован объектно- ориентированный язык программирования Borland Delphi.

Оглавление

Введение 3
1) Цель курсовой работы. 4
2) задание на выполнение КР по разработке данных со сведениями о художественной литературе. 5
3) состав и назначения системы со сведениями о художественной литературе. 5
4) процесс разработки интерфейса проекта интерактивной системы процесса обработки данных со сведениями о художественной литературе. 5
4.1 основные этапы процесса разработки проекта. 5
4.2 разработка структуры записи таблицы базы данных. 6
5) подключение базы данных в Delphi 9
5.1 методы для поиска даннных 9
5.2 методы для оформления заказа 10
5.3 методы для добавления и удаления данных 10
6) приложения 13
6.1 Приложение 1. Листинг программы. 13

Скачать в ZIP (290.54 Кб) Сколько стоит заказать работу?
Файлы: 1 файл

Копия РОССИЙСКИЙ ГОСУДАРСТВЕННЫЙ.doc

— 484.00 Кб (Скачать)

begin

form3.visible:=true;

end; 

procedure TForm1.N4Click(Sender: TObject);

begin

Form5.visible:=true;

end; 

end.

unit Unit2; 

interface 

uses

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

  Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB,COMObj, Mask, DBCtrls, jpeg,

  ExtCtrls, Menus; 

type

  TForm2 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Edit4: TEdit;

    Button1: TButton;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form2: TForm2; 

implementation 

uses Unit1; 

{$R *.dfm} 

procedure TForm2.Button1Click(Sender: TObject);

begin

Form2.Visible:=false;

end; 

procedure TForm2.Button2Click(Sender: TObject);

const wdReplaceAll=2;

var

w: variant; 

begin

w:=CreateOleObject('word.Application');

w.visible:=true; 

W.documents.Add(ExtractFileDir(Application.ExeName)+'\Заказ.dot'); 
 

messagebox(handle,'Заказ оформлен!','',0); 
 

W.Selection.Find.Text:='###НазваниеБ&';

W.Selection.Find.Replacement.Text:=form1.DBEdit1.Text;

W.Selection.Find.Execute(Replace:=wdReplaceAll);

W.Selection.Find.Text:='###Цена&';

W.Selection.Find.Replacement.Text:=form1.DBEdit2.Text;

W.Selection.Find.Execute(Replace:=wdReplaceAll);

W.Selection.Find.Text:='###Фамилия&';

W.Selection.Find.Replacement.Text:=form2.Edit1.Text;

W.Selection.Find.Execute(Replace:=wdReplaceAll);

W.Selection.Find.Text:='###Имя&';

W.Selection.Find.Replacement.Text:=form2.Edit2.Text;

W.Selection.Find.Execute(Replace:=wdReplaceAll);

W.Selection.Find.Text:='###Отчество&';

W.Selection.Find.Replacement.Text:=form2.Edit3.Text;

W.Selection.Find.Execute(Replace:=wdReplaceAll);

W.Selection.Find.Text:='###Телефон&';

W.Selection.Find.Replacement.Text:=form2.Edit4.Text;

W.Selection.Find.Execute(Replace:=wdReplaceAll);

form2.Visible:=false;

end; 
 

end.

unit Unit3; 

interface 

uses

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

  Dialogs, StdCtrls, DB, ADODB, DBCtrls; 

type

  TForm3 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    Label10: TLabel;

    Label11: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit4: TEdit;

    Edit5: TEdit;

    Edit8: TEdit;

    Edit9: TEdit;

    Edit10: TEdit;

    Edit11: TEdit;

    Button1: TButton;

    Button2: TButton;

    DBLookupComboBox1: TDBLookupComboBox;

    DBLookupComboBox2: TDBLookupComboBox;

    DBLookupComboBox3: TDBLookupComboBox;

    DataSource1: TDataSource;

    ADOQuery1: TADOQuery;

    ADOQuery2: TADOQuery;

    ADOQuery3: TADOQuery;

    DataSource2: TDataSource;

    DataSource3: TDataSource;

    ADOQuery4: TADOQuery;

    procedure Button2Click(Sender: TObject);

    procedure FormShow(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form3: TForm3; 

implementation 

{$R *.dfm} 

uses Unit1; 

procedure TForm3.Button2Click(Sender: TObject);

begin

form3.Visible:=false;

end; 

procedure TForm3.FormShow(Sender: TObject);

begin

  adoquery1.Active:=false;

  adoquery1.SQL.Clear;

  adoquery1.SQL.Add('SELECT * FROM Жанр');

  adoquery1.Active:=true;

  dblookupcombobox1.ListField:='Жанр';

  dblookupcombobox1.KeyField:='ID_Жанр'; 

  adoquery2.Active:=false;

  adoquery2.SQL.Clear;

  adoquery2.SQL.Add('SELECT * FROM Переплет');

  adoquery2.Active:=true;

  dblookupcombobox2.ListField:='Переплет';

  dblookupcombobox2.KeyField:='ID_Переплет'; 

  adoquery3.Active:=false;

  adoquery3.SQL.Clear;

  adoquery3.SQL.Add('SELECT * FROM Магазин');

  adoquery3.Active:=true;

  dblookupcombobox3.ListField:='Название';

  dblookupcombobox3.KeyField:='ID_Магазин';

end; 

procedure TForm3.Button1Click(Sender: TObject);

var

inc_id, inc_km: integer;

begin

  adoquery4.Active:=false;

  adoquery4.SQL.Clear;

  adoquery4.SQL.Add('SELECT Max(Книга.ID_книга) AS [Max-ID_книга]FROM Книга;');

  adoquery4.Active:=true;

  inc_id:= adoquery4.FieldValues['Max-ID_книга']+1;

  adoquery4.Active:=false;

  adoquery4.SQL.Clear;

  adoquery4.SQL.Add('INSERT INTO Книга VALUES('+inttostr(inc_id)+',"'+edit1.text+'",'+inttostr(dblookupcombobox1.KeyValue)+' ,"'+edit2.text+'","'+edit5.text+'",'+inttostr(dblookupcombobox2.KeyValue)+' ,'+edit4.text+'  );');

  adoquery4.ExecSQL; 

  adoquery4.Active:=false;

  adoquery4.SQL.Clear;

  adoquery4.SQL.Add('SELECT Max(ID_книга_магазин) AS [Max-ID_книга_магазин]FROM Книга_магазин;');

  adoquery4.Active:=true;

  inc_km:= adoquery4.FieldValues['Max-ID_книга_магазин']+1;

  adoquery4.Active:=false;

  adoquery4.SQL.Clear;

  adoquery4.SQL.Add('INSERT INTO Книга_Магазин VALUES('+inttostr(inc_km)+','+inttostr(inc_id)+' ,'+inttostr(dblookupcombobox3.KeyValue)+' );');

  adoquery4.ExecSQL; 

  showmessage('Книга успешно добавлена!');

  close;

end; 

end.

unit Unit4; 

interface 

uses

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

  Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, StdCtrls; 

type

  TForm4 = class(TForm)

    ADOQuery1: TADOQuery;

    ADOQuery2: TADOQuery;

    DataSource1: TDataSource;

    Button1: TButton;

    DBLookupComboBox1: TDBLookupComboBox;

    Label1: TLabel;

    procedure FormShow(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form4: TForm4; 

implementation 

{$R *.dfm}

uses unit1; 

procedure TForm4.FormShow(Sender: TObject);

begin

adoquery1.Active:=false;

adoquery1.SQL.Clear;

adoquery1.SQL.Add('SELECT Id_книга, Название FROM Книга');

adoquery1.Active:=true;

dblookupcombobox1.ListField:='Название';

dblookupcombobox1.KeyField:='Id_книга';

end; 
 
 

procedure TForm4.Button1Click(Sender: TObject);

begin 

adoquery1.Active:=false;

    adoquery2.Active:=false;

    adoquery2.SQL.Clear;

    adoquery2.SQL.Add('DELETE FROM книга_магазин WHERE id_книга='+inttostr(dblookupcombobox1.KeyValue));

    adoquery2.ExecSQL;

    adoquery2.SQL.Clear;

    adoquery2.SQL.Add('DELETE FROM книга WHERE id_книга='+inttostr(dblookupcombobox1.KeyValue));

    adoquery2.ExecSQL;

    showmessage('Книга была успешно удалена!');

adoquery1.Active:=true;

end; 

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);

begin

  form1.DBGrid1.Refresh;

end; 

end.

unit Unit5; 

interface 

uses

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

  Dialogs, StdCtrls, DBCtrls, DB, ADODB, Mask; 

type

  TForm5 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    DBLookupComboBox1: TDBLookupComboBox;

    Edit1: TEdit;

    Button1: TButton;

    ADOQuery1: TADOQuery;

    DataSource1: TDataSource;

    DBEdit1: TDBEdit;

    DBEdit2: TDBEdit;

    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form5: TForm5; 

implementation 

uses Unit3, Unit1; 

{$R *.dfm} 

procedure TForm5.FormCreate(Sender: TObject);

begin 

  adoquery1.Active:=false;

  adoquery1.SQL.Clear;

  adoquery1.SQL.Add('SELECT * from Администратор');

  adoquery1.Active:=true; 

  dblookupcombobox1.KeyField:='ID_администратор';

  dblookupcombobox1.ListField:='Фамилия';

  dbedit2.DataField:='ID_администратор';

  dbedit1.DataField:='пароль'; 

end; 

procedure TForm5.Button1Click(Sender: TObject);

begin

if dbedit1.Text=edit1.Text then

begin

          form1.N3.visible:=true;

          form5.Hide;

          edit1.Text:='';

          dblookupcombobox1.KeyValue:=0;

          form1.panel2.Visible:=false;

          form1.Button1.Visible:=false;

end

     else

       showmessage('Пароль не верен!Повторите ввод.');

end; 

end.

Информация о работе Высокоуровневые методы информатики и программирования