Лабораторная работа № 3

Коломенский институт (филиал) Государственного образовательного учреждения высшего профессионального образования Московский государственный открытый университет имени В. С. Черномырдина

 

 

Кафедра: Машиностроения

 

Отчет по лабораторной работе

 

  «Основы алгоритмизации программного обеспечения САПР»

 

 

 

 

Студентка: группы ТМС-41 Диденко Н.А.        __________

Преподаватель:                Малюга В.С.             __________

 

 

Коломна 2012 г.

 

Лабораторная работа №1

Тема: Разработка базы данных конструкторско-технологических спецификаций на изделие

Рис. 1. Схема данных.

 

 

unit UnitForMain;

interface

uses

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

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

type

TForm1 = class(TForm)

Panel1: TPanel;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Splitter1: TSplitter;

Panel2: TPanel;

DBGrid2: TDBGrid;

Splitter2: TSplitter;

DBGrid3: TDBGrid;

DBNavigator2: TDBNavigator;

Label1: TLabel;

procedure DBGrid1DblClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses UnitForDM;

{$R *.dfm}

procedure TForm1.DBGrid1DblClick(Sender: TObject);

begin

dm.ADOQuery1.Close;

dm.ADOQuery1.Parameters[0].Value:=form1.DBGrid1.Fields[0].AsString;

dm.ADOQuery1.Open;

end;

end.

 

 

Лабораторная работа № 2

Тема: Выбора информации из базы данных

 

Рис.1 Модуль данных

Рис. 2. Главная форма программы.

 

Лабораторная работа № 2

Тема: Выбора информации из базы данных

 

Рис.1 Модуль данных

Рис. 2. Главная форма программы.

Модуль главной формы

unit UnitForMForm;

 

interface

 

uses

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

Dialogs, DBCtrls, StdCtrls, Mask, ExtCtrls, Grids, DBGrids;

 

type

TForm1 = class(TForm)

Label3: TLabel;

Panel1: TPanel;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Panel2: TPanel;

Label2: TLabel;

DBGrid2: TDBGrid;

Label1: TLabel;

 DBLookupComboBox1: TDBLookupComboBox;

DBGrid3: TDBGrid;

Splitter1: TSplitter;

procedure DBGrid1DblClick(Sender: TObject);

procedure DBLookupComboBox1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

uses UnitForDM;

 

{$R *.dfm}

 

procedure TForm1.DBGrid1DblClick(Sender: TObject);

begin

 DM.ADOQueryCE.Close;

 DM.ADOQueryCE.Parameters[0].Value:= Form1.DBGrid1.Fields[0].AsString;

 DM.ADOQueryCE.Open;

 

end;

 

procedure TForm1.DBLookupComboBox1Click(Sender: TObject);

begin

DM.ADOQueryCE.Close;

DM.ADOQueryCE.Parameters[0].Value:=Form1.DBLookupComboBox1.KeyValue;

DM.ADOQueryCE.Open;

end;

 

end.

Модуль данных

unit UnitForDM;

interface

uses

SysUtils, Classes, DB, ADODB;

type

TDM = class(TDataModule)

ADOConnection1: TADOConnection;

ADOTableId: TADOTable;

ADOTableSV: TADOTable;

DSID: TDataSource;

DSSV: TDataSource;

ADOTableIdDSDesigner: TAutoIncField;

ADOTableIdDSDesigner2: TWideStringField;

ADOTableIdDSDesigner3: TWideStringField;

ADOTableIdDSDesigner4: TIntegerField;

ADOTableIdDSDesigner5: TIntegerField;

ADOTableSVDSDesigner: TAutoIncField;

ADOTableSVDSDesigner2: TIntegerField;

ADOTableSVDSDesigner3: TIntegerField;

ADOTableSVDSDesigner5: TIntegerField;

ADOTableSVDSDesigner6: TIntegerField;

ADOTableSVDSDesigner7: TWideStringField;

ADOTableTI: TADOTable;

DSTI: TDataSource;

ADOTableTIDSDesigner: TAutoIncField;

ADOTableTIDSDesigner2: TWideStringField;

ADOTableIdField: TStringField;

ADOQueryCE: TADOQuery;

ADOQueryTE: TADOQuery;

DSCE: TDataSource;

ADOQueryCEAutoIncField: TAutoIncField;

ADOQueryCEWideStringField: TWideStringField;

ADOQueryCEWideStringField2: TWideStringField;

ADOQueryCEIntegerField: TIntegerField;

ADOQueryCEIntegerField2: TIntegerField;

ADOQueryTEAutoIncField: TAutoIncField;

ADOQueryTEWideStringField: TWideStringField;

ADOQueryTEWideStringField2: TWideStringField;

ADOTableSVCE: TStringField;

DaSTE: TDataSource;

ADOTableSVWideStringField: TWideStringField;

private

{ Private declarations }

public

{ Public declarations }

end;

var

DM: TDM;

implementation

{$R *.dfm}

end.

Лабораторная работа № 3