From fbed66c989e398e618af0eafae0465574b5e59bb Mon Sep 17 00:00:00 2001
From: sgwp <63001967@qq.com>
Date: Sat, 2 Nov 2024 14:43:32 +0800
Subject: [PATCH] =?UTF-8?q?=E6=96=B0=E7=9A=84=E5=B8=AE=E5=8A=A9=E6=A8=A1?=
 =?UTF-8?q?=E7=89=88?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 public10/design/U_QryBaseHelpList.dfm | 24 +++++++++++++
 public10/design/U_QryBaseHelpList.pas | 52 +++++++++++++++++++++++++++
 2 files changed, 76 insertions(+)
 create mode 100644 public10/design/U_QryBaseHelpList.dfm
 create mode 100644 public10/design/U_QryBaseHelpList.pas

diff --git a/public10/design/U_QryBaseHelpList.dfm b/public10/design/U_QryBaseHelpList.dfm
new file mode 100644
index 0000000..807c78b
--- /dev/null
+++ b/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
diff --git a/public10/design/U_QryBaseHelpList.pas b/public10/design/U_QryBaseHelpList.pas
new file mode 100644
index 0000000..fd03c07
--- /dev/null
+++ b/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.