alex11100так, стоять, руки в гору
будем разговаривать про
визуальные классы
нельзя класс понять через написание его
в прг, ты никогда не поймешь, что классы можно создать и нужно
создать как матрешку, один в одном и другого погоняет ...
нужно понимать сущность
представлять класс как яблоко, которое лежит на руке
начнем изучать визуальные
и начнем писать правильно
созданием визуальной библиотеки и визуальных классов
1 - для моего примера стало быть разницы нету?
2 - сам пробую визуальные, например класс коннекта к серверу Бд, с методом "Случилась ошибка", "веполнить заврос.." ну и так далее....
вот например:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
DEFINE CLASS pgsqlconnector AS custom
odbcdriver = ""
serverip = ""
*-- Specifies the path to the database that contains the table or view associated with the Cursor object.
database = ""
dbuser = ""
userpassword = ""
spresult = 0
csqlstring = ""
Name = "pgsqlconnector"
PROCEDURE connector
nConnHandle = 0
lcDSNLess="DRIVER=" + This.odbcdriver + ";" ;
+ "SERVER=" + this.serverip + ";" ;
+ "UID=" + this.dbuser + ";" ;
+ "PWD=" + this.userpassword + ";" ;
+ "DATABASE=" + this.database
** + "'"
***WAIT WINDOW lcDSNLess
nConnHandle = sqlstringconnect(m.lcDSNLess)
IF nConnHandle <= 0
this.con2postgresqlerror()
ENDIF
ENDPROC
PROCEDURE con2postgresqlerror
=AERROR(lAerror)
DO CASE
CASE 'is not present in table' $ ALLTRIM(lAerror(3))
DO FORM MEssager2.scx WITH 'У В А Г А П О М И Л К А ! ! !', ;
'Записати дані неможливо !', 'Ви заповнили не всі поля'
CASE lAerror(4) = '23505'
DO FORM MEssager2.scx WITH 'У В А Г А П О М И Л К А ! ! !', ;
'Унікальність порушено', 'Такий запис вже існує'
CASE 'invalid input syntax for type date' $ ALLTRIM(lAerror(3))
DO FORM MEssager2.scx WITH 'У В А Г А П О М И Л К А ! ! !', ;
'Записати дані неможливо !', 'Поля з датами повинні бути заповнені'
* CASE lAerror(5) = 7 && Unique constraint violation
* DO FORM MEssager2.scx WITH 'У В А Г А П О М И Л К А ! ! !', ;
* 'Такий запис вже', 'існує'
* CASE lAerror(5) = 113
* DO FORM MEssager.scx WITH 'Помилково введено користувача або пароль'
OTHERWISE
= MESSAGEBOX('Не можу отримати дані з бази' + CHR(13) + ;
'Опис: [' + ALLTRIM(lAerror(2)) + ']' + CHR(13) + ;
'ODBC ErrorMessage: ' + ALLTRIM(lAerror(3)) + CHR(13) + ;
'ODBC SQL state: ' + ALLTRIM(lAerror(4)) + CHR(13) + ;
'The error № from the ODBC data source: ' + TRANSFORM(lAerror(5)) + CHR(13) + ;
'The ODBC connection handle: ' + TRANSFORM(lAerror(6)), 16, ;
'ПОМИЛКА SQL Connect № ' + TRANSFORM(lAerror( 1 )))
ENDCASE
ENDPROC
PROCEDURE spexecute
PARAMETERS cSqlstr, cCursorName
this.spresult = SQLExec(nConnHandle, cSqlstr, cCursorName)
ENDPROC
ENDDEFINE
но так и не понял - чем мне это поможет в случае массы форм, с разным количеством кнопок?
Да, конечно в той же библе класов у меня есть к примеру типовая форма, с гридом кнопкой выйти-добавить-удалить-редактировать....
Если мне нужна другая такая форма - я делаю ее на основе класса первой + добавляю пару кнопок... но как итог.. все равно ниче не понял.. да и класс формы - это не визуальный класс...
