|
Нужна помощь по динамическому интерфейсуTComponents.
#39815649
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
|
|
|
Вообще задача такая, есть интерфейс переведенный на несколько языков и есть БД в которой хранится перевод и к тому же еще свойства некоторых компонентов, которые нужно назначать компонентам при создании формы. Теперь вопрос: Помогите/посоветуйте как написать универсальную процедуру/функцию для записи всех компонент в БД и для присвоения им свойств. Процедура должна быть одна, а вот компоненты везде разные и в этом проблема.
Как я написала запись компонент в ДБ:
пробегаю по форме и ищу компоненты в БД, если их там нет - пишу, если есть - пропускаю.
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.
79.
80.
Procedure TfrmAdmin.CompToDB(form: String);
var a,z,g,id,idg: integer; items,parent,hintt,capp: string; Grid, TrGrid: TComponent;
begin
id:=0;
if UniMainModule.FindComDB(form,form,'')=0 then //проверка на наличие формы в БД
Begin
UniMainModule.RecCompToDB(0,form,form,'',''); //Пишем в базу форму, если ее там нет
if UniMainModule.FindComDB(form,form,'')=1 then id:=UniMainModule.PgDataSource1.DataSet.FieldByName('id').AsInteger;
End;
if UniMainModule.FindComDB(form,form,'')=1 then id:=UniMainModule.PgDataSource1.DataSet.FieldByName('id').AsInteger;
if UniMainModule.FindComDB(form,form,'')>1 then ShowMEssage('Error '+form+' > 1');
for z := 0 to ComponentCount-1 do
begin
capp:='NULL';
parent:='NULL';
if Components[z].ClassName= 'TUniLabel' then
begin
capp:=(FindComponent(Components[z].Name) as TUniCustomLabel).Caption;
parent:= Components[z].GetParentComponent.Name;
end;
if Components[z].ClassName= 'TUniTabSheet' then
begin
capp:=(FindComponent(Components[z].Name) as TUniTabSheet).Caption;
parent:= Components[z].GetParentComponent.Name;
end;
if Components[z].ClassName= 'TUniButton' then
begin
capp:=(FindComponent(Components[z].Name) as TUniButton).Caption;
hintt:=(FindComponent(Components[z].Name) as TUniButton).Hint;
parent:= Components[z].GetParentComponent.Name;
end;
if Components[z].ClassName='TUniDBGrid' then
begin
Grid:=(FindComponent(Components[z].Name));
g:=(FindComponent(Components[z].Name) as TUniDBGrid).Columns.Count;
if UniMainModule.FindComDB(form,Components[z].Name,'')=0 then
UniMainModule.RecCompToDB(id, form, Components[z].Name, '', capp);
a:=UniMainModule.FindComDB(form,Components[z].Name,items);
if a=1 then idg:=UniMainModule.PgDataSource1.DataSet.FieldByName('id').AsInteger;
if a=0 then idg:=0;
for g := 0 to g-1 do
begin
capp:= (FindComponent(Components[z].Name) as TUniDBGrid).Columns[g].Title.Caption;
items:= (FindComponent(Components[z].Name) as TUniDBGrid).Columns[g].FieldName;
//Проверка на существование компонента в БД и запись полей грида
if UniMainModule.FindComDB(form,Components[z].Name,items)=0 then
if Components[z].Name<>'' then UniMainModule.RecCompToDB(idg, form, Components[z].Name, items, capp);
end;
capp:='NULL';
parent:='NULL';
end;
if Components[z].ClassName='TUniDBTreeGrid' then
begin
TrGrid:=(FindComponent(Components[z].Name));
g:=(FindComponent(Components[z].Name) as TUniDBTreeGrid).Columns.Count;
if UniMainModule.FindComDB(form,Components[z].Name,'')=0 then
UniMainModule.RecCompToDB(id, form, Components[z].Name, '', capp);
a:=UniMainModule.FindComDB(form,Components[z].Name,items);
if a=1 then idg:=UniMainModule.PgDataSource1.DataSet.FieldByName('id').AsInteger;
if a=0 then idg:=0;
for g := 0 to g-1 do
begin
capp:= (FindComponent(Components[z].Name) as TUniDBTreeGrid).Columns[g].Title.Caption;
items:= (FindComponent(Components[z].Name) as TUniDBTreeGrid).Columns[g].FieldName;
//Проверка на существование компонента в БД и запись полей грида
if UniMainModule.FindComDB(form,Components[z].Name,items)=0 then
if Components[z].Name<>'' then UniMainModule.RecCompToDB(idg, form, Components[z].Name, items, capp);
end;
capp:='NULL';
parent:='NULL';
end;
items:='';
//Проверка на существование компонента в БД и запись найденого компонента
if UniMainModule.FindComDB(form,Components[z].Name,'')=0 then
if Components[z].Name<>'' then UniMainModule.RecCompToDB(id, form, Components[z].Name, '', capp);
end;
end;
А это вычитывание из БД и присвоение компонентам свойств:
я сначала ищу компонент на форме/фрейме, а потом ищу его в БД и присваиваю свойства. Я могу это сделать если заранее известно, что это за компонент, тогда я могу добраться к его свойствам.
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.
procedure TfrmAdmin.UniButton4Click(Sender: TObject);
var
dbstrr,dbstr,EditName,BottonName: string;
EditFound,BottonFound,MenuFound: TComponent;
i: integer;
begin
UniMainModule.PgQuery1.Active:=false;
UniMainModule.PgQuery1.SQL.Clear;
UniMainModule.PgQuery1.SQL.Append('SELECT * FROM getinterface(''MainForm'','+inttostr(UniMainModule.UserRecord.idLang)+') AS t1;');
UniMemo1.Lines:=UniMainModule.PgQuery1.SQL;
UniMainModule.PgQuery1.Active:=True;
UniMainModule.PgDataSource1.DataSet.First;
ShowMessage('First='+inttostr(UniMainModule.PgDataSource1.DataSet.RecordCount));
while UniMainModule.PgDataSource1.DataSet.Eof=false do
begin
dbstr:=UniMainModule.PgDataSource1.DataSet.FieldByName('Component').AsString;
dbstrr:=UniMainModule.PgDataSource1.DataSet.FieldByName('Text').AsString;
MenuFound:=FindComponent(dbstr);
if MenuFound <> nil then
begin
ShowMessage('если это меню');
i:=UniMainModule.PgDataSource1.DataSet.FieldByName('items').AsInteger;
//MainForm.UniTreeMenu1.Items.Add(nil,dbstrr);
if UniMainModule.PgDataSource1.DataSet.FieldByName('Caption').AsString <> '' then
dbstrr:=UniMainModule.PgDataSource1.DataSet.FieldByName('Caption').AsString;
if UniMainModule.PgDataSource1.DataSet.FieldByName('Text').AsString <> '' then
dbstrr:=UniMainModule.PgDataSource1.DataSet.FieldByName('Text').AsString;
if UniMainModule.PgDataSource1.DataSet.FieldByName('Text').AsString = '' then
dbstrr:=UniMainModule.PgDataSource1.DataSet.FieldByName('Caption').AsString;
MainForm.UniTreeMenu1.Items.Item[i].Text:=dbstrr;
end;
UniMainModule.PgDataSource1.DataSet.Next;
end;
end;
Но тут есть проблема - нельзя указывать компонент, который не используется в конкретном фрейме (ошибка, что компонент/Класс не найден) и этот код нужно повторять в каждом юните перечисляя только те классы/компоненты, которые там есть. А я хочу универсальные процедуры/функции для всех фреймов и форм.
Посоветуйте - плиииз! Всем заранее спасибо за ответы! |
|
|
