From 84207f3f51d3979fa9cd899c1ffc3c77e53b6d95 Mon Sep 17 00:00:00 2001
From: funa <1559646174@qq.com>
Date: Wed, 27 May 2026 14:57:13 +0800
Subject: [PATCH] =?UTF-8?q?=E4=BB=98=E6=AC=BE=E7=94=B3=E8=AF=B7?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 A09财务通用管理/U_ExpenseInput.dfm | 27 ++++++++++++++++-----------
 A09财务通用管理/U_GetDllForm.pas   |  2 +-
 2 files changed, 17 insertions(+), 12 deletions(-)

diff --git a/A09财务通用管理/U_ExpenseInput.dfm b/A09财务通用管理/U_ExpenseInput.dfm
index d7c2691..5dd7a93 100644
--- a/A09财务通用管理/U_ExpenseInput.dfm
+++ b/A09财务通用管理/U_ExpenseInput.dfm
@@ -2,7 +2,7 @@ object frmExpenseInput: TfrmExpenseInput
   Left = 261
   Top = 149
   Caption = #36153#29992#30331#35760
-  ClientHeight = 551
+  ClientHeight = 506
   ClientWidth = 1194
   Color = clWhite
   Font.Charset = GB2312_CHARSET
@@ -55,7 +55,7 @@ object frmExpenseInput: TfrmExpenseInput
     Left = 0
     Top = 38
     Width = 1194
-    Height = 513
+    Height = 468
     Align = alClient
     BevelInner = bvNone
     BevelOuter = bvNone
@@ -66,9 +66,10 @@ object frmExpenseInput: TfrmExpenseInput
     ParentCtl3D = False
     TabOrder = 1
     OnClick = ScrollBox1Click
+    ExplicitHeight = 459
     object Label7: TLabel
-      Left = 78
-      Top = 404
+      Left = 84
+      Top = 364
       Width = 64
       Height = 21
       Caption = #20132#26131#38468#35328
@@ -152,17 +153,19 @@ object frmExpenseInput: TfrmExpenseInput
     end
     object Label13: TLabel
       Left = 84
-      Top = 351
+      Top = 432
       Width = 64
       Height = 21
       Caption = #20184#27454#26085#26399
+      Visible = False
     end
     object Label14: TLabel
       Left = 440
-      Top = 351
+      Top = 432
       Width = 96
       Height = 21
       Caption = #38134#34892#27700#21333#32534#30721
+      Visible = False
     end
     object Label15: TLabel
       Left = 787
@@ -173,8 +176,8 @@ object frmExpenseInput: TfrmExpenseInput
     end
     object FinanceNote: TMemo
       Tag = 2
-      Left = 168
-      Top = 388
+      Left = 200
+      Top = 348
       Width = 681
       Height = 57
       ScrollBars = ssVertical
@@ -310,15 +313,17 @@ object frmExpenseInput: TfrmExpenseInput
     object PayTime: TcxDateEdit
       Tag = 2
       Left = 200
-      Top = 343
+      Top = 427
       TabOrder = 13
+      Visible = False
       Width = 200
     end
     object BankSlipNumber: TcxTextEdit
       Tag = 2
-      Left = 541
-      Top = 343
+      Left = 542
+      Top = 427
       TabOrder = 14
+      Visible = False
       Width = 200
     end
     object Panel1: TPanel
diff --git a/A09财务通用管理/U_GetDllForm.pas b/A09财务通用管理/U_GetDllForm.pas
index 07f3934..a8c7299 100644
--- a/A09财务通用管理/U_GetDllForm.pas
+++ b/A09财务通用管理/U_GetDllForm.pas
@@ -78,7 +78,7 @@ begin
     pswd := 'rightsoft,.KXY@YN';
     DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
        Parameters1:='����';
-//    Parameters1 := '���2';
+    Parameters1 := '���2';
 //    Parameters1 := '����';
   end
   else