Тема: Поиск, редактирование и удаление записей на основе SQL-запроса

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

Рис.2. Расположение элементов на форме.

 

unit Unit1;

interface

uses

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

Dialogs, Grids, DBGrids, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Label3: TLabel;

DBGrid1: TDBGrid;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

 

uses Unit2;

$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

dm.ADOQuery1.Close;

dm.ADOQuery1.Parameters [0].Value:=Edit1.Text;

dm.ADOQuery1.Open;

//получить текст

Edit2.Text:=dm.ADOQuery1.Fields [1].AsString;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

//Обновить"обозначение"

dm.ADOQuery2.Close;

//Задать "обозначение"

dm.ADOQuery2.Parameters[0].Value:=Edit2.Text;

dm.ADOQuery2.Parameters[1].Value:=dm.ADOQuery1.Fields[0].Text;

dm.ADOQuery2.ExecSQL;

//Обновитьнабор

dm.ADOQuery1.Close;

dm.ADOQuery1.Open;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

dm.ADOQuery3.Close;

dm.ADOQuery3.Parameters[0].Value:=edit1.Text;

dm.ADOQuery3.ExecSQL;

end;

end.

Рис. 3. Проект «Выбор и редактирование записей».

 

 

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

Тема: Проектирование специализированной САПР

Рис.1. Расположение элементов на форме.

Unit Unit1forSAPR;

Interface

Uses

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

Dialogs, StdCtrls, ksAuto, klTLB, Ldefin3D, Grids, DBGrids, DB, ADODB;

Type

TSAPR = class(Tform)

Button1: Tbutton;

Button2: Tbutton;

Button3: Tbutton;

Edit1: Tedit;

Edit2: Tedit;

Edit3: Tedit;

Button4: Tbutton;

Label1: Tlabel;

Edit4: Tedit;

Button5: Tbutton;

Button6: Tbutton;

Label2: Tlabel;

Label3: Tlabel;

Edit5: Tedit;

Edit6: Tedit;

OpenDialog1: TopenDialog;

Button7: Tbutton;

DataSource1: TdataSource;

ADOTable1: TADOTable;

ADOConnection1: TADOConnection;

DBGrid1: TDBGrid;

Button8: Tbutton;

Button9: Tbutton;

procedure Button1Click(Sender: Tobject);

procedure Button2Click(Sender: Tobject);

procedure Button3Click(Sender: Tobject);

procedure Button5Click(Sender: Tobject);

procedure Button6Click(Sender: Tobject);

procedure Button4Click(Sender: Tobject);

procedure Button7Click(Sender: Tobject);

procedure Button8Click(Sender: Tobject);

procedure Button9Click(Sender: Tobject);

private

{ Private declarations }

public

{ Public declarations }

end;

Var

SAPR: TSAPR;

FnameFile:string; // имя 3D файла

Fkompas:KompasObject; // ссылка на API Компас

Fdoc:ksDocument3D; // ссылка на документ КОМПАСа

NameSB:string; //имя сборки

Fpart:ksPart; //ссылка на интерфейс компанениа

FparVar:ksVariableCollection;

FvarSB:ksVariable;

Implementation

{$R *.dfm}

procedure TSAPR.Button1Click(Sender: Tobject);

Begin

Fkompas:=KompasObject (CreateOleObject(‘Kompas.Application.5’));

Fkompas.Visible:=true;

Fdoc:= ksDocument3D(Fkompas.Document3D);

FnameFile:=Edit1.Text;

Fdoc.Open(FnameFile,false);

Fkompas.ActivateControllerAPI;

end;

procedure TSAPR.Button2Click(Sender: Tobject);

Begin

Fpart:=ksPart(Fdoc.GetPart(-1));

NameSB:=Fpart.name;

edit2.Text:=NameSB;

end;

procedure TSAPR.Button3Click(Sender: Tobject);

 var FnumVar:integer;

Begin

FparVar:=ksVariableCollection

(Fpart.VariableCollection);

FnumVar:=FparVar.GetCount;

edit3.Text:= intToStr(FnumVar);

end;

procedure TSAPR.Button4Click(Sender: Tobject);

Begin

Fdoc.close;

end;

procedure TSAPR.Button5Click(Sender: Tobject);

var Fname:string;

Fvar:real;

i:integer;

Begin

i:=strToInt(edit4.Text);

FvarSB:=ksVariable(FparVar.GetbyIndex(i));

Fname:=FvarSB.name;

Fvar:=FvarSB.value;

edit5.text:=Fname;

edit6.Text:= FloatToStr (Fvar);

end;

procedure TSAPR.Button6Click(Sender: Tobject);

var i:integer;

Begin

i:=strToInt(edit4.Text);

Fpart.BeginEdit;

FvarSB:=ksVariable(FparVar.GetByIndex(i));

FvarSB.value:=strToFloat(edit6.Text);

Fpart.Update;

Fpart.EndEdit(True);

Fpart.RebuildModel;

Fdoc.RebuildDocument;

end;

procedure TSAPR.Button7Click(Sender: Tobject);

Begin

if OpenDialog1.Execute then

begin

FnameFile:=openDialog1.FileName;

edit1.Text:=FnameFile;

end;

end;

procedure TSAPR.Button8Click(Sender: Tobject);

Begin

edit1.Text:=SAPR.ADOTable1.Fields[3].Text;

end;

procedure TSAPR.Button9Click(Sender: Tobject);

Begin

SAPR.ADOTable1.Edit;

SAPR.ADOTable1.Fields[3].AsString:=edit1.Text;

SAPR.ADOTable1.Post;

end;

End.

         Рис. 2. Проект «Специализированная САПР».

    Рис. 3. Модель сборки вала и кольца.