Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности
|
|
|
Помогите разобраться с ООП
|
|||
|---|---|---|---|
|
#18+
Есть описание класса 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. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.09.2004, 14:18 |
|
||
|
Помогите разобраться с ООП
|
|||
|---|---|---|---|
|
#18+
Вот более корректый вопрос: есть БД,таблица скажем Printer,хранимые процедуры реализующие добавление,редактирование,удаление записи и т.п. Нужно написать клиентскую часть с использованием ООП. Как правильно описать класс и методы класса например TPrinter? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.09.2004, 14:57 |
|
||
|
|

start [/forum/topic.php?fid=16&fpage=216&tid=1348217]: |
0ms |
get settings: |
5ms |
get forum list: |
9ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
35ms |
get topic data: |
7ms |
get forum data: |
2ms |
get page messages: |
22ms |
get tp. blocked users: |
1ms |
| others: | 217ms |
| total: | 302ms |

| 0 / 0 |
