觀點中國 CnEyes...
只有想不到的.没有做不到的! For Evreth ing Making For Anything 才子世界 Esprit World!
posts - 80,comments - 83,trackbacks - 0
  for i:=0 to ComponentCount-1 do
  begin
  if IsPublishedProp(Components[i],'Caption') then
  begin
    SCaption[i]:=(GetPropValue(Components[i],'Caption'));//取得Form的當前語言
    ADOQuery2.SQL.Clear;
    ADOQuery2.Close;
    ADOQuery2.SQL.Add('select * from TABLE2 where '+language2+'='''+SCaption[i]+''''); //查詢當前語言
    ADOQuery2.Open;
    if ADOQuery2.RecordCount<>0 then
    begin
      SCaption[i]:=ADOQuery2.fieldByName(language).AsString;
      SetPropValue(Components[i],'Caption',SCaption[i]);   //設置語言
    end;
  end;
  end;



Snap1.jpg

Snap2.jpg
posted on 2006-08-25 09:36 才子£鸣 阅读(628) 评论(0)  编辑 收藏 引用
只有注册用户登录后才能发表评论。