談笑有鴻儒,往來無白丁

          在恰當(dāng)?shù)臅r間、地點(diǎn)以恰當(dāng)?shù)姆绞奖磉_(dá)給恰當(dāng)?shù)娜?..  閱讀的時候請注意分類,佛曰我日里面是談笑文章,其他是各個分類的文章,積極的熱情投入到寫博的隊(duì)伍中來,支持blogjava做大做強(qiáng)!向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文件讀取錯誤,請與開發(fā)商聯(lián)系!'+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:='添加數(shù)據(jù)表'+aTable;
          ????? ClearData(aTable);
          ??? end;
          ??? 11:lb1.Caption:='更新數(shù)據(jù)表'+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.aygfsteel.com/badboyryan/archive/2007/05/28/120510.html

          posted on 2007-05-28 17:02 壞男孩 閱讀(1255) 評論(0)  編輯  收藏 所屬分類: DELPHI
          主站蜘蛛池模板: 静乐县| 临澧县| 灵石县| 泽普县| 乌什县| 通海县| 深水埗区| 缙云县| 修文县| 禄劝| 凌海市| 陇川县| 嫩江县| 新绛县| 呼伦贝尔市| 团风县| 小金县| 六枝特区| 突泉县| 高平市| 宁安市| 开原市| 容城县| 隆化县| 民乐县| 华坪县| 阳曲县| 什邡市| 宜春市| 松阳县| 阳西县| 义乌市| 鲜城| 咸宁市| 庆阳市| 普洱| 安吉县| 郯城县| 民勤县| 甘泉县| 石楼县|