付款申请

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

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