Group_99/D10SZKaiXiYa
9
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

付款申请

Browse Source
This commit is contained in:
funa 2026-05-27 14:57:13 +08:00
parent 6e0c465c9c
commit 84207f3f51
2 changed files with 17 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
A09财务通用管理/U_ExpenseInput.dfm
View File

@ -2,7 +2,7 @@ object frmExpenseInput: TfrmExpenseInput
Left = 261 Left = 261
Top = 149 Top = 149
Caption = #36153#29992#30331#35760 Caption = #36153#29992#30331#35760
ClientHeight = 551 ClientHeight = 506
ClientWidth = 1194 ClientWidth = 1194
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -55,7 +55,7 @@ object frmExpenseInput: TfrmExpenseInput
Left = 0 Left = 0
Top = 38 Top = 38
Width = 1194 Width = 1194
Height = 513 Height = 468
Align = alClient Align = alClient
BevelInner = bvNone BevelInner = bvNone
BevelOuter = bvNone BevelOuter = bvNone
@ -66,9 +66,10 @@ object frmExpenseInput: TfrmExpenseInput
ParentCtl3D = False ParentCtl3D = False
TabOrder = 1 TabOrder = 1
OnClick = ScrollBox1Click OnClick = ScrollBox1Click
ExplicitHeight = 459
object Label7: TLabel object Label7: TLabel
Left = 78 Left = 84
Top = 404 Top = 364
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #20132#26131#38468#35328 Caption = #20132#26131#38468#35328
@ -152,17 +153,19 @@ object frmExpenseInput: TfrmExpenseInput
end end
object Label13: TLabel object Label13: TLabel
Left = 84 Left = 84
Top = 351 Top = 432
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #20184#27454#26085#26399 Caption = #20184#27454#26085#26399
Visible = False
end end
object Label14: TLabel object Label14: TLabel
Left = 440 Left = 440
Top = 351 Top = 432
Width = 96 Width = 96
Height = 21 Height = 21
Caption = #38134#34892#27700#21333#32534#30721 Caption = #38134#34892#27700#21333#32534#30721
Visible = False
end end
object Label15: TLabel object Label15: TLabel
Left = 787 Left = 787
@ -173,8 +176,8 @@ object frmExpenseInput: TfrmExpenseInput
end end
object FinanceNote: TMemo object FinanceNote: TMemo
Tag = 2 Tag = 2
Left = 168 Left = 200
Top = 388 Top = 348
Width = 681 Width = 681
Height = 57 Height = 57
ScrollBars = ssVertical ScrollBars = ssVertical
@ -310,15 +313,17 @@ object frmExpenseInput: TfrmExpenseInput
object PayTime: TcxDateEdit object PayTime: TcxDateEdit
Tag = 2 Tag = 2
Left = 200 Left = 200
Top = 343 Top = 427
TabOrder = 13 TabOrder = 13
Visible = False
Width = 200 Width = 200
end end
object BankSlipNumber: TcxTextEdit object BankSlipNumber: TcxTextEdit
Tag = 2 Tag = 2
Left = 541 Left = 542
Top = 343 Top = 427
TabOrder = 14 TabOrder = 14
Visible = False
Width = 200 Width = 200
end end
object Panel1: TPanel object Panel1: TPanel

2
A09财务通用管理/U_GetDllForm.pas
View File

@ -78,7 +78,7 @@ begin
pswd := 'rightsoft,.KXY@YN'; pswd := 'rightsoft,.KXY@YN';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
Parameters1:='管理'; Parameters1:='管理';
// Parameters1 := 'ÉóºË2'; Parameters1 := 'ÉóºË2';
// Parameters1 := '付款'; // Parameters1 := '付款';
end end
else else