powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Помогите разобраться с ООП
3 сообщений из 3, страница 1 из 1
Помогите разобраться с ООП
    #32683346
ZDenis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Есть описание класса TPrinter и пара методов как правильней использовать эти методы:например сначала заполнять скажем поля объекта Printer,а затем вызывать метод AddItem
Printer:=TPrinter.Create;
Printer.name:='HP';
Printer.SerN:=='bnnmbb';
......
Printer.Add;



или как в приведенном коде,скажем без создания экземпляра класса
Var
Printer:Tprinter;
begin
Printer.addItem('HP','dgsd'....);
end;

unit uPrinter;

interface
uses
SysUtils, Classes;
Type
TPrinter=class
private
fid:integer;
fName:string;
fSerN:string;
fInvN:string;
fUserid:integer;
fStatusid:smallint;
fPrim:string;
fKomnataId:integer;
public
constructor Create;
procedure addItem(name,SerN,InvN,Komnata,Prim:string);
procedure EditItem(Id:integer;NewName,NewSerN,NewInvN,NewKomnata,NewPrim:string) ;
end;
implementation
uses UDm;
constructor TPrinter.Create;
begin
end;
procedure TPrinter.addItem(Name,SerN,InvN,Komnata,prim:string);
begin
with DM1.SP1 do begin
ProcedureName :='AddPrinter';
Parameters.Refresh;
Parameters.ParamByName('@PrinterName').Value :=name;
Parameters.ParamByName('@PrinterSerN').Value :=SerN;
Parameters.ParamByName('@PrinterInvN').Value :=InvN;
Parameters.ParamByName('@Komnata').Value :=Komnata;
Parameters.ParamByName('@prim').Value :=prim;
ExecProc;
end;
Dm1.SPqPrinter.Close;
Dm1.SPqPrinter.open;
end;
procedure TPrinter.EditItem(Id:integer;NewName,NewSerN,NewInvN,NewKomnata,NewPrim:string) ;
begin
with DM1.SP1 do begin
close;
ProcedureName :='EditPrinter';
Parameters.Refresh;
Parameters.ParamByName('@PrinterName').Value :=NewName;
Parameters.ParamByName('@PrinterSerN').Value :=NewSerN;
Parameters.ParamByName('@PrinterInvN').Value :=NewInvN;
Parameters.ParamByName('@Komnata').Value :=NewKomnata;
Parameters.ParamByName('@prim').Value :=NewPrim;
Parameters.ParamByName('@PrinterID').Value :=ID;
ExecProc;
end;
dm1.SPqPrinter.Close;
dm1.SPqPrinter.open;
end;
end.
...
Рейтинг: 0 / 0
Помогите разобраться с ООП
    #32683480
ZDenis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Вот более корректый вопрос:
есть БД,таблица скажем Printer,хранимые процедуры реализующие добавление,редактирование,удаление записи и т.п.
Нужно написать клиентскую часть с использованием ООП.
Как правильно описать класс и методы класса например TPrinter?
...
Рейтинг: 0 / 0
Помогите разобраться с ООП
    #32685492
Фотография avlih
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Помогите разобраться с ООП
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]