konhon

MenuItem1.ShortCut := ShortCut(Word(VK_RIGHT), [ssCtrl])

Struts安裝：
首先請到http://jakarta.apache.org/Struts下載Struts，建議使用release版，現在最高版本為1.1，下載后得到的是一個ZIP文件。
將ZIP包解開，可以看到這個目錄：lib和webapps，webapps下有一些WAR文件。假設你的Tomcat裝在c:\Tomcat下，則將那些WAR文件拷貝到C:\Tomcat\webapps，重新啟動Tomcat即可。打開瀏覽器，在地址欄中輸入：http://localhost:8080/Struts-example/index.jsp，若能見到“powered by Struts”的深藍色圖標，即說明成功了。這是Struts自帶的一個例子，附有詳細的說明文檔，可以做為初學者的入門教程。另外，Struts還提供了一系統實用對象：XML處理、通過Java reflection APIs自動處理JavaBeans屬性、國際化的提示和消息等

一個實例：
一個用戶注冊系統，用戶通過網頁輸入相關信息：注冊ID號，密碼，EMAIL，若注冊成功，則返回成功提示信息，反之出現注冊失敗提示信息。
以下是相關文件的部分核心代碼。

項目建立：
正式開發前，需要在Tocmat（我的tomcat裝在c:\tomcat）中建立此項目。比較快的一種建立方式為：在C:\tomcat\webapps下新建目錄test，再將C:\tomcat\webapps\struts-example下的
WEB-INF目錄拷貝到test目錄下，然后將test\WEB-INF下的src和classes目錄清空，以及struts-config.xml文件中內容清空即可。這樣，我們需要的Struts類包及相關的配置文件就都齊了。
開發時，將JSP文件放在test目錄下，Java原文件放在test\WEB-INF\src下，編譯后的類文件放在test\WEB-INF\classes下。

注冊頁面：reguser.jsp


此JSP頁面不同于普通的JSP頁，因為它大量運用了taglib，這些taglib對初學者而言，可能難于掌握，可這卻是Struts的精華之一。靈活運用，將大大提高開發效率。

Struts-config.xml：


Struts的核心是Controller，即ActionServlet，而ActionServlet的核心就是Struts-config.xml，Struts-config.xml集中了所有頁面的導航定義。對于大型的WEB項目，通過此配置文件即可迅速把握其脈絡，這不管是對于前期的開發，還是后期的維護或升級都是大有裨益的。掌握Struts-config.xml是掌握Struts的關鍵所在。

FormBean：RegUserForm


每一個FormBean 都必須繼承ActionForm類，FormBean是對頁面請求的封裝。即把HTTP request 封裝在一個對象中，需要說明的一點就是多個HTTP request可以共用一個FormBean，便于維護和重用。

ActionBean：RegUserAction


FormBean的產生是為了提供數據給ActionBean，在ActionBean中可以取得FormBean中封裝的數據，經相應的邏輯處理后，調用業務方法完成相應業務要求。

Servlet的演變：在常規的 JSP，Servlet，JavaBean三層結構中，JSP實現View的功能，Servlet實現Controller的功能，JavaBean實現Model的實現。

在Struts中，將常規情況下的Servlet拆分與ActionServlet、FormBean、ActionBean三個部分。ActionServlet配合Struts-config.xml，專職完成頁面導航，而不再負責具體的數據獲取與相應邏輯，這兩部分功能由FormBean和ActionBean來完成。

Struts優缺點
優點：
Struts跟Tomcat、Turbine等諸多Apache項目一樣，是開源軟件，這是它的一大優點。使開發者能更深入的了解其內部實現機制。
除此之外，Struts的優點主要集中體現在兩個方面：Taglib和頁面導航。Taglib是Struts的標記庫，靈活動用，能大大提高開發效率。另外，就目前國內的JSP開發者而言，除了使用JSP自帶的常用標記外，很少開發自己的標記，或許Struts是一個很好的起點。
關于頁面導航，我認為那將是今后的一個發展方向，事實上，這樣做，使系統的脈絡更加清晰。通過一個配置文件，即可把握整個系統各部分之間的聯系，這對于后期的維護有著莫大的好處。尤其是當另一批開發者接手這個項目時，這種優勢體現得更加明顯。
缺點：
Taglib是Struts的一大優勢，但對于初學者而言，卻需要一個持續學習的過程，甚至還會打亂你網頁編寫的習慣，但是，當你習慣了它時，你會覺得它真的很棒。
Struts將MVC的Controller一分為三，在獲得結構更加清晰的同時，也增加了系統的復雜度。
Struts從產生到現在還不到半年，但已逐步越來越多運用于商業軟件。雖然它現在還有不少缺點，但它是一種非常優秀的J2EE MVC實現方式，如果你的系統準備采用J2EE MVC架構，那么，不妨考慮一下Struts。

Struts實施經驗：
1、基于Struts架構的項目開發，首先需要有一個很好的整體規劃，整個系統中包括哪幾個模塊，每個模塊各需要多少FormBean和ActionBean等，而且最好有專人負責Struts-config.xml的管理。開發基于Struts的項目的難點在于配置管理，尤其是對Struts-config.xml的管理

2、如果你的項目非常緊，并且項目組中又沒有富有經驗的Struts開發人員，建議不要冒然采用Struts。Struts的掌握需要一個過程，對于一個熟練的JSP程序員，自學大概需要半個月左右的時間。如果結合titls，則需要更長的時間

3、如果你在網頁中大量運用taglib，那么你的美工將做出部分犧牲。當你結合Tiles，功能增強的同時，這種犧牲尤為明顯。當然，你對功能和美觀的取舍由你自己決定

4、Taglib是一個好東西，但靈活運用它卻需要一個過程，如果你不想在Taglib上花太多的時間，那么只需理解與FORM有關的幾個標記，其它的標記就放著吧，以后再看，先去研究ActionServlet和Struts-config.xml，你會覺得很有成就感

5、Struts是否只適合于大型項目呢？No！Struts適合于各種大小的項目，當然，對于大型項目，它所體現出來的優勢更加明顯。

J2EE體系結構簡單介紹
一、J2EE提出的背景
1、 企業級應用框架的需求
在許多企業級應用中，例如數據庫連接、郵件服務、事務處理等都是一些通用企業需求模塊，這些模塊如果每次再開發中都由開發人員來完成的話，將會造成開發周期長和代碼可靠性差等問題。于是許多大公司開發了自己的通用模塊服務。這些服務性的軟件系列同陳為中間件。
2、 為了通用必須要提出規范，不然無法達到通用
在上面的需求基礎之上，許多公司都開發了自己的中間件，但其與用戶的溝通都各有不同，從而導致用戶無法將各個公司不同的中間件組裝在一塊為自己服務。從而產生瓶頸。于是提出標準的概念。其實J2EE就是基于JAVA技術的一系列標準。
注：中間件的解釋 中間件處在操作系統和更高一級應用程序之間。他充當的功能是：將應用程序運行環境與操作系統隔離，從而實現應用程序開發者不必為更多系統問題憂慮，而直接關注該應用程序在解決問題上的能力 。我們后面說到的容器的概念就是中間件的一種。
二、相關名詞解釋
容器：充當中間件的角色
WEB容器：給處于其中的應用程序組件（JSP，SERVLET）提供一個環境，使JSP,SERVLET直接更容器中的環境變量接口交互，不必關注其它系統問題。主要有WEB服務器來實現。例如：TOMCAT,WEBLOGIC,WEBSPHERE等。該容器提供的接口嚴格遵守J2EE規范中的WEB APPLICATION 標準。我們把遵守以上標準的WEB服務器就叫做J2EE中的WEB容器。
EJB容器：Enterprise java bean 容器。更具有行業領域特色。他提供給運行在其中的組件EJB各種管理功能。只要滿足J2EE規范的EJB放入該容器，馬上就會被容器進行高效率的管理。并且可以通過現成的接口來獲得系統級別的服務。例如郵件服務、事務管理。
WEB容器和EJB容器在原理上是大體相同的，更多的區別是被隔離的外界環境。WEB容器更多的是跟基于HTTP的請求打交道。而EJB容器不是。它是更多的跟數據庫、其它服務打交道。但他們都是把與外界的交互實現從而減輕應用程序的負擔。例如SERVLET不用關心HTTP的細節，直接引用環境變量session,request,response就行、EJB不用關心數據庫連接速度、各種事務控制，直接由容器來完成。
RMI/IIOP:遠程方法調用/internet對象請求中介協議，他們主要用于通過遠程調用服務。例如，遠程有一臺計算機上運行一個程序，它提供股票分析服務，我們可以在本地計算機上實現對其直接調用。當然這是要通過一定的規范才能在異構的系統之間進行通信。RMI是JAVA特有的。
JNDI:JAVA命名目錄服務。主要提供的功能是：提供一個目錄系統，讓其它各地的應用程序在其上面留下自己的索引，從而滿足快速查找和定位分布式應用程序的功能。
JMS:JAVA消息服務。主要實現各個應用程序之間的通訊。包括點對點和廣播。
JAVAMAIL:JAVA郵件服務。提供郵件的存儲、傳輸功能。他是JAVA編程中實現郵件功能的核心。相當MS中的EXCHANGE開發包。
JTA：JAVA事務服務。提供各種分布式事務服務。應用程序只需調用其提供的接口即可。
JAF:JAVA安全認證框架。提供一些安全控制方面的框架。讓開發者通過各種部署和自定義實現自己的個性安全控制策略。
EAI:企業應用集成。是一種概念，從而牽涉到好多技術。J2EE技術是一種很好的集成實現。
三、J2EE的優越性
1、 基于JAVA 技術，平臺無關性表現突出
2、 開放的標準，許多大型公司已經實現了對該規范支持的應用服務器。如BEA ,IBM,ORACLE等。
3、 提供相當專業的通用軟件服務。
4、 提供了一個優秀的企業級應用程序框架，對快速高質量開發打下基礎
四、體系結構圖
mailto:luopc@edu-edu.com.cn了解更詳細的通俗體系內容，請給我來信。
五、現狀
J2EE是由SUN 公司開發的一套企業級應用規范。現在最高版本是1.4。支持J2EE的應用服務器有IBM WEBSPHERE APPLICATION SERVER,BEA WEBLOGIC SERVER,JBOSS,ORACLE APPLICATION SERVER,SUN ONE APPLICATION SERVER 等。.

http://www.aygfsteel.com/Files/konhon/EnableNetCard.rar

在Delphi中選Project Import Type Library命令，在對話框中選Import Microsoft Shell Controls And Automation類型庫，點Install后，在Delphi的ActiveX控件板上就多了TShellFolderItem，TShellLinkObject，TShellFolderView，TShell，TSearchCommand等幾個組件

const
   discVerb = '禁用(&B)';
   connVerb = '啟用(&A)';

function TForm1.DisableEthernet(const EthName,State: String): Boolean;
var
  cpFolder: Folder;
  nwFolder: Folder;
  nVerbs: FolderItemVerbs;
  i,j,k: integer;
  aItem: TListItem;
begin
  result := false;
  cpFolder := Form1.shell1.NameSpace(3);
  if cpFolder <> nil then
  begin
    for i := 0 to cpFolder.items.Count-1 do
    begin
      if cpFolder.Items.Item(i).Name = '網絡和撥號連接' then
      begin
        nwFolder := cpFolder.items.item(i).GetFolder as Folder;
        if nwFolder <> nil then
        begin
          for j :=0 to nwFolder.items.Count-1 do
          begin
            if nwFolder.Items.Item(j).Name = EthName then
            begin
              nVerbs := nwFolder.Items.Item(j).Verbs;
              for k := 0 to  nVerbs.Count-1 do
             begin
                if nVerbs.Item(k).Name = State then
                begin
                  nVerbs.Item(k).DoIt;
                  aItem := Form1.lvLog.Items.Add;
                  aItem.Caption := FormatDateTime('yyyy-mm-dd hh:mm:ss',now);
                  aItem.SubItems.Add(EthName);
                  aItem.SubItems.Add(State);
                  Result := True;
                end;
              end;
            end;
          end;
        end;
      end;
    end;
    if nwFolder = nil then
       showmessage('Network and Dial-up Connections not found');
  end
  else
    showmessage('control panel not found');

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  DisableEthernet('本地連接',discVerb);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  DisableEthernet('本地連接',connVerb);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  lUrl: string;
  lParams: TStrings;
  lHtml: string;
begin
  lUrl := 'http://snixxx.co.uk/cgi-bin/mt-comments.cgi';
  lParams := TStringList.Create;
  try
    lParams.Add('entry_id=1302');
    lParams.Add('author=dqxhyy');
    lParams.Add('dqxhyy@sina.com');
    lParams.Add('dqxhyydqxhyydqxhyydqxhyy');
    try
      lHtml := IdHttp1.Post(lUrl, lParams);
    except
      showmessage(lhtml);
    end;
    showmessage(lhtml);
  finally
    lParams.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   h,m,s,s1:hwnd;
begin
  h:=FindWindow('notepad',nil);
   if h<>0 then
   begin
     m:=GetMenu(h);
     s:=GetSubMenu(m,1);
     s1:=GetSubMenu(s,7);
     SendMessage(h,WM_COMMAND,MakeLong(GetMenuItemId(s,7),0),s1);
  end;
end;

procedure TForm1.Label1Click(Sender: TObject);
var
  lPoint: TPoint;
begin
  lPoint.X := TLabel(Sender).Left;
  lPoint.Y := TLabel(Sender).Top + TLabel(Sender).Height;
  lPoint:=ClientToScreen(lPoint);
  PopupMenu1.Popup(lPoint.X, lPoint.Y);
end;

procedure TForm1.ADODataSet1MaterielNameGetText(Sender: TField;
  var Text: string; DisplayText: Boolean);
var
  lSingleWidth: integer;
  lDBGridWidth: integer;
begin
  lSingleWidth := DBGrid1.Canvas.TextWidth('壹');
  lDBGridWidth := DBGrid1.Columns[1].Width;
  if DBGrid1.Canvas.TextWidth(Sender.AsString) <= lDBGridWidth then
    Text := Sender.AsString
  else if DBGrid1.Canvas.TextWidth(Sender.AsString) > lDBGridWidth then
  begin
    lSingleWidth := lDBGridWidth div lSingleWidth - 1;
    if lSingleWidth mod 2 = 1 then
      lSingleWidth := lSingleWidth + 1;
    Text := Copy(Sender.AsString, 1, lSingleWidth) + '...';
  end
end;

uses CommCtrl;

procedure TForm1.ListView1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  item: TListItem;
  lvhti: LV_HITTESTINFO;
begin
  item := ListView1.GetItemAt(X, Y);
  if (item <> nil) then
    Caption := 'Mouse at: ' + item.Caption
  else
  begin
    lvhti.pt.X := X;
    lvhti.pt.Y := Y;
    ListView_SubItemHitTest(ListView1.Handle, @lvhti);
    if Assigned(ListView1.Items[lvhti.iItem])
      and (ListView1.Items[lvhti.iItem].SubItems.Count >= lvhti.iSubItem) then
      Caption := 'Mouse at:' + ListView1.Items[lvhti.iItem].SubItems[lvhti.iSubItem - 1];
  end;
end;

     摘要:   學習sql有一段時間了，發現在我建了一個用來測試的表（沒有建索引）中出現了許多的重復記錄。后來總結了一些刪除重復記錄的方法，在Oracle中，可以通過唯一rowid實現刪除重復記錄；還可以建臨時表來實現...這個只提到其中的幾種簡單實用的方法，希望可以和大家分享（以表employee為例）。 SQL> desc employee  Name&nb...  閱讀全文