谈笑有鸿儒,往来无白丁

在恰当的时间、地点以恰当的方式表达给恰当的人...  阅读的时候请注意分类,佛曰我日里面是谈笑文章,其他是各个分类的文章,积极的热情投入到写博的队伍中来,支持blogjava做大做强!向dudu站长致敬>> > 我的微博敬请收听

<?xml version="1.0" encoding="GBK"?>

<SqlMain>
<property name="1" table="索引ID_Tpu_Menu3_Cyzgxz">
    create unique index ID_Tpu_Menu3_Cyzgxz on Tpu_Menu3_Cyzgxz(CyzgxzID)
  </property>

  <property name="3" table="T_CYRY_MZ">
    drop table T_CYRY_MZ
  </property>


  <property name="2" table="TPu_Menu8_Clxx">
    alter table tpu_menu8_clxx alter column dzw decimal(6,2)
  </property>
</SqlMain

procedure TFrmMain.UpDataStruct(aFileName:String);
var
  vNode,vChildNode:IXMLNode;
  iLen,i:integer;
  fSqlText,fName,fTable:string;
begin
  try 
    XMLDoc.LoadFromFile(aFileName);
    XMLDoc.Active:=True;
    vNode:=XMLDoc.ChildNodes.FindNode('SqlMain');
    iLen:=vNode.ChildNodes.Count;
    pb1.Max:=iLen*10;
    for i:=0 to iLen-1 do
    begin
      vChildNode:=vNode.ChildNodes.Get(i);
      fSqlText:=vChildNode.NodeValue;
      fName:=vChildNode.Attributes['name'];
      fTable:=vChildNode.Attributes['table'];
      DoSqlText(fSqlText,fName,fTable);
    end;
  except
    on e:Exception do
      Showmessage('XML文件读取错误,请与开发商联系!'+chr(13)+e.Message);
  end;
end;

procedure TFrmMain.DoSqlText(aSqlText,aName,aTable:string);
var
  it:Integer;
begin
  ADOExec.SQL.Clear;
  ADOExec.SQL.Add(aSqlText);
  try
    it:=StrToInt(aName);
    case it of
    1:lb1.Caption:='建立表'+aTable;
    2:lb1.Caption:='更新表'+aTable;
    3:lb1.Caption:='删除表'+aTable;
    10:
    begin
      lb1.Caption:='添加数据表'+aTable;
      ClearData(aTable);
    end;
    11:lb1.Caption:='更新数据表'+aTable;
    else
      lb1.Caption:='更新表'+aTable;
    end;
    ADOExec.ExecSQL;
    memo1.Lines.Add('信息→'+lb1.Caption+'操作成功!');
  except
    on e:Exception do
      memo1.Lines.Add('警告→'+e.Message);
  end;
  pb1.StepIt;
  pb1.Refresh;
  lb1.Refresh;
  memo1.Refresh;
end;


注明出处:http://www.blogjava.net/badboyryan/archive/2007/05/28/120510.html

posted on 2007-05-28 17:02 坏男孩 阅读(1222) 评论(0)  编辑  收藏 所属分类: DELPHI

只有注册用户登录后才能发表评论。


网站导航: