mainunit.pas

三层的通用架构

unit MainUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
  Forms, Dialogs, CommDlg, Menus, ImgList, ComCtrls, StdCtrls, ActnList,
  Buttons, ExtCtrls, ToolWin, IniFiles, ShellAPI, corbacon, SoapConn,
  SConnect, DBClient, MConnect, ADODB, DB, DBTables, bckj_TLB, ComObj,
  ComServ, ActiveX, Registry;

const
  CM_DOSOMETHING = WM_USER + $800;
  CM_ABOUT = $0FFF;
  CM_MINIMIZE = $0FFE;
  StrForMessage = 'BckjByWfs.Message';

type
  TSetSelectOpenThread = class(TThread)
  protected
    procedure Execute; override;
  end;

  TMyClipboard = record
    Flag: Byte;
    Name: string;
  end;

  TDllFunction = function(AppHandle, MainWindowHandle: HWND; AppIcon: HICON; PBDE, PADO, PDCOM, PSOCKET, PWEB, PSOAP, PCORBA: Pointer; IDefaultRDM: OleVariant): HWND; stdcall;

  TCOMDllFunction = function: OleVariant; stdcall;

  TTheMainForm = class(TForm)
    Splitter1: TSplitter;
    Splitter2: TSplitter;
    CoolBar1: TCoolBar;
    Panel4: TPanel;
    Label2: TLabel;
    ComboBoxEx1: TComboBoxEx;
    ToolBar2: TToolBar;
    ToolButton_Goto: TToolButton;
    PageScroller1: TPageScroller;
    Panel5: TPanel;
    ToolBar1: TToolBar;
    ToolButton_Back: TToolButton;
    ToolButton_gnz: TToolButton;
    ToolButton_View: TToolButton;
    ToolButton16: TToolButton;
    PageScroller2: TPageScroller;
    Panel6: TPanel;
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Panel3: TPanel;
    SpeedButton1: TSpeedButton;
    TreeView1: TTreeView;
    StatusBar1: TStatusBar;
    ImageList1: TImageList;
    ActionList1: TActionList;
    FileAction: TAction;
    NewGroup: TAction;
    NewItem: TAction;
    ViewAction: TAction;
    Update: TAction;
    GoToNode: TAction;
    RenameItem: TAction;
    DeleteItem: TAction;
    OpenItem: TAction;
    BigIcon: TAction;
    SmallIcon: TAction;
    ListIcon: TAction;
    ReportIcon: TAction;
    GroupAction: TAction;
    ToolBarAction: TAction;
    GotoAction: TAction;
    StatusBarAction: TAction;
    ToolBarsAction: TAction;
    BrowsesAction: TAction;
    EditAction: TAction;
    CutItem: TAction;
    CopyItem: TAction;
    PasteItem: TAction;
    ItemProperty: TAction;
    SelectItem: TAction;
    NewAction: TAction;
    Back: TAction;
    ForwardTo: TAction;
    UpTo: TAction;
    Customize: TAction;
    GotosAction: TAction;
    ShowCaptionAction: TAction;
    HideCaptionAction: TAction;
    SelectCaptionAction: TAction;
    Sort: TAction;
    SortName: TAction;
    SortIndex: TAction;
    DefaultGroup: TAction;
    PopupMenu1: TPopupMenu;
    V1: TMenuItem;
    G1: TMenuItem;
    M1: TMenuItem;
    L1: TMenuItem;
    D1: TMenuItem;
    N1: TMenuItem;
    I1: TMenuItem;
    N9: TMenuItem;
    I2: TMenuItem;
    E1: TMenuItem;
    N6: TMenuItem;
    V2: TMenuItem;
    N3: TMenuItem;
    W1: TMenuItem;
    G2: TMenuItem;
    P1: TMenuItem;
    PopupMenu2: TPopupMenu;
    O1: TMenuItem;
    N4: TMenuItem;
    T1: TMenuItem;
    C1: TMenuItem;
    P2: TMenuItem;
    N5: TMenuItem;
    D2: TMenuItem;
    R1: TMenuItem;
    N2: TMenuItem;
    R2: TMenuItem;
    ImageList2: TImageList;
    ActionImageList: TImageList;
    ToolBarImageList: TImageList;
    ToolBarHotImageList: TImageList;
    PopupMenu3: TPopupMenu;
    N7: TMenuItem;
    BackPopupMenu: TPopupMenu;
    ForwardPopupMenu: TPopupMenu;
    CoolBarPopupMenu: TPopupMenu;
    T2: TMenuItem;
    A1: TMenuItem;
    N8: TMenuItem;
    C2: TMenuItem;
    S1: TMenuItem;
    Y1: TMenuItem;
    R3: TMenuItem;
    DataBaseParam: TAction;
    SysParam: TAction;
    About: TAction;
    UndoDelete: TAction;
    U1: TMenuItem;
    ToolButton17: TToolButton;
    HelpTopic: TAction;
    Panel7: TPanel;
    ListView1: TListView;
    Panel8: TPanel;
    Splitter3: TSplitter;
    Panel9: TPanel;
    Splitter4: TSplitter;
    Panel10: TPanel;
    Label3: TLabel;
    Label4: TLabel;
    HomePage: TAction;
    EmailTo: TAction;
    SupportsAction: TAction;
    ToolButton_sup: TToolButton;
    ToolsAction: TAction;
    HelpAction: TAction;
    FileExit: TAction;
    ToolBar5: TToolBar;
    MainMenu1: TMainMenu;
    F1: TMenuItem;
    E2: TMenuItem;
    V3: TMenuItem;
    T3: TMenuItem;
    H1: TMenuItem;
    W2: TMenuItem;
    G3: TMenuItem;
    T4: TMenuItem;
    O2: TMenuItem;
    N10: TMenuItem;
    D3: TMenuItem;
    M2: TMenuItem;
    R4: TMenuItem;
    N11: TMenuItem;
    Exit1: TMenuItem;
    U2: TMenuItem;
    N12: TMenuItem;
    T5: TMenuItem;
    C3: TMenuItem;
    P3: TMenuItem;
    N13: TMenuItem;
    S2: TMenuItem;
    T6: TMenuItem;
    S3: TMenuItem;
    A2: TMenuItem;
    N14: TMenuItem;
    C4: TMenuItem;
    S4: TMenuItem;
    Y2: TMenuItem;
    N15: TMenuItem;
    B1: TMenuItem;
    E3: TMenuItem;
    E4: TMenuItem;
    O3: TMenuItem;
    N16: TMenuItem;
    G4: TMenuItem;
    M3: TMenuItem;
    L2: TMenuItem;
    D4: TMenuItem;
    N17: TMenuItem;
    I3: TMenuItem;
    N18: TMenuItem;
    Z1: TMenuItem;
    N19: TMenuItem;
    O4: TMenuItem;
    B2: TMenuItem;
    F2: TMenuItem;
    U3: TMenuItem;
    N20: TMenuItem;
    D5: TMenuItem;
    E5: TMenuItem;
    D6: TMenuItem;
    O5: TMenuItem;
    H2: TMenuItem;
    N21: TMenuItem;
    P4: TMenuItem;
    M4: TMenuItem;
    N22: TMenuItem;
    A3: TMenuItem;
    LoginAgain: TAction;
    N23: TMenuItem;
    L3: TMenuItem;
    ChangePassword: TAction;
    UserManager: TAction;
    C5: TMenuItem;
    N24: TMenuItem;
    M5: TMenuItem;
    SaveIni: TAction;
    N25: TMenuItem;
    S5: TMenuItem;
    Animate1: TAnimate;
    Splitter5: TSplitter;
    Timer1: TTimer;
    CloseItem: TAction;
    N26: TMenuItem;
    C6: TMenuItem;
    CloseAll: TAction;
    A4: TMenuItem;
    Database1: TDatabase;
    ADOConnection1: TADOConnection;
    DCOMConnection1: TDCOMConnection;
    SocketConnection1: TSocketConnection;
    WebConnection1: TWebConnection;
    SoapConnection1: TSoapConnection;
    Timer2: TTimer;
    RegisterIt: TAction;
    R5: TMenuItem;
    Timer3: TTimer;
    CutItem1: TAction;
    CopyItem1: TAction;
    PasteItem1: TAction;
    UndoDelete1: TAction;
    RenameItem1: TAction;
    DeleteItem1: TAction;
    OpenItem1: TAction;
    ItemProperty1: TAction;
    GUIDShow: TAction;
    ServerViewShow: TAction;
    ViewPopupMenu: TPopupMenu;
    G5: TMenuItem;
    M6: TMenuItem;
    L4: TMenuItem;
    D7: TMenuItem;
    Timer4: TTimer;
    SwitchTo: TAction;
    I4: TMenuItem;
    BackPopupMenu2: TPopupMenu;
    ForwardPopupMenu2: TPopupMenu;
    SelectOpen: TAction;
    L5: TMenuItem;
    N27: TMenuItem;
    TreeView2: TTreeView;
    ToolBar3: TToolBar;
    ToolButton_Forward: TToolButton;
    ToolButton_Parent: TToolButton;
    ToolButton_Update: TToolButton;
    ToolButton_Home: TToolButton;
    ToolButton1: TToolButton;
    ToolBar4: TToolBar;
    ToolButton2: TToolButton;
    ToolButton4: TToolButton;
    ToolButton_Paste: TToolButton;
    ToolButton_Cut: TToolButton;
    ToolButton_Copy: TToolButton;
    ToolButton3: TToolButton;
    ToolButton_Delete: TToolButton;
    ToolButton_Property: TToolButton;
    ToolBar6: TToolBar;
    ToolBar7: TToolBar;
    procedure ListView1DblClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure NewGroupExecute(Sender: TObject);
    procedure TreeView1Editing(Sender: TObject; Node: TTreeNode;
      var AllowEdit: Boolean);
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure TreeView1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Splitter2CanResize(Sender: TObject; var NewSize: Integer;
      var Accept: Boolean);
    procedure NewItemExecute(Sender: TObject);
    procedure UpdateExecute(Sender: TObject);
    procedure TreeView1Edited(Sender: TObject; Node: TTreeNode;
      var S: String);
    procedure ListView1Edited(Sender: TObject; Item: TListItem;
      var S: String);
    procedure ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure ListView1StartDrag(Sender: TObject;
      var DragObject: TDragObject);
    procedure ListView1InfoTip(Sender: TObject; Item: TListItem;
      var InfoTip: String);
    procedure ListView1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBoxEx1Click(Sender: TObject);
    procedure GoToNodeExecute(Sender: TObject);
    procedure GoToNodeHint(var HintStr: String; var CanShow: Boolean);
    procedure ComboBoxEx1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure TreeView1ContextPopup(Sender: TObject; MousePos: TPoint;
      var Handled: Boolean);
    procedure ListView1ContextPopup(Sender: TObject; MousePos: TPoint;
      var Handled: Boolean);
    procedure RenameItemExecute(Sender: TObject);
    procedure DeleteItemExecute(Sender: TObject);
    procedure OpenItemExecute(Sender: TObject);
    procedure GoToNodeUpdate(Sender: TObject);
    procedure DefaultGotoClick(Sender: TObject);
    procedure BackPopupMenuPopup(Sender: TObject);
    procedure ForwardPopupMenuPopup(Sender: TObject);
    procedure ToolButton_ViewClick(Sender: TObject);
    procedure BigIconExecute(Sender: TObject);
    procedure SmallIconExecute(Sender: TObject);
    procedure ListIconExecute(Sender: TObject);
    procedure ReportIconExecute(Sender: TObject);
    procedure GroupActionExecute(Sender: TObject);
    procedure ToolBarActionExecute(Sender: TObject);
    procedure GroupActionUpdate(Sender: TObject);
    procedure ToolBarActionUpdate(Sender: TObject);
    procedure GotoActionExecute(Sender: TObject);
    procedure GotoActionUpdate(Sender: TObject);
    procedure StatusBarActionExecute(Sender: TObject);
    procedure StatusBarActionUpdate(Sender: TObject);
    procedure ToolBarsActionExecute(Sender: TObject);
    procedure CopyItemExecute(Sender: TObject);
    procedure PasteItemExecute(Sender: TObject);