新的帮助模版

public10/design/U_QryBaseHelpList.dfm

@@ -0,0 +1,24 @@
+inherited frmQryBaseHelpList: TfrmQryBaseHelpList
+  Caption = 'frmQryBaseHelpList'
+  PixelsPerInch = 96
+  TextHeight = 21
+  inherited cxGrid1: TcxGrid
+    inherited tv1: TcxGridDBTableView
+      inherited tv1SSel: TcxGridDBColumn
+        DataBinding.IsNullValueType = True
+      end
+    end
+  end
+  inherited ADOQueryBaseCmd: TADOQuery
+    Connection = ADOConnection1
+  end
+  inherited ADOQueryBaseTemp: TADOQuery
+    Connection = ADOConnection1
+  end
+  object ADOConnection1: TADOConnection
+    ConnectionTimeout = 30
+    LoginPrompt = False
+    Left = 480
+    Top = 176
+  end
+end

public10/design/U_QryBaseHelpList.pas

@@ -0,0 +1,52 @@
+unit U_QryBaseHelpList;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, U_QryBaseList, cxGraphics, cxControls,
+  cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
+  dxSkinWXI, cxStyles, cxCustomData, cxFilter, cxData, cxDataStorage, cxEdit,
+  cxNavigator, dxDateRanges, dxScrollbarAnnotations, Data.DB, cxDBData,
+  cxCheckBox, cxContainer, dxBarBuiltInMenu, Datasnap.DBClient,
+  cxGridCustomPopupMenu, cxGridPopupMenu, Data.Win.ADODB, MovePanel, cxTextEdit,
+  cxMaskEdit, cxDropDownEdit, Vcl.StdCtrls, Vcl.ExtCtrls, FrameDateSel10,
+  dxLayoutContainer, dxLayoutControl, cxGridLevel, cxGridCustomTableView,
+  cxGridTableView, cxGridDBTableView, cxClasses, cxGridCustomView, cxGrid,
+  Vcl.ComCtrls, Vcl.ToolWin;
+
+type
+  TfrmQryBaseHelpList = class(TfrmQryBaseList)
+    ADOConnection1: TADOConnection;
+    procedure FormCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  frmQryBaseHelpList: TfrmQryBaseHelpList;
+
+implementation
+uses
+  U_dataLink;
+{$R *.dfm}
+
+procedure TfrmQryBaseHelpList.FormCreate(Sender: TObject);
+begin
+  with ADOConnection1 do
+  begin
+      if not Connected then
+      begin
+        Connected := false;
+        ConnectionString := DConString;
+        LoginPrompt := false;
+        Connected := true;
+      end;
+  end;
+  inherited;
+
+end;
+
+end.