Group_01/D7FZaideng
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

调整

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2026-02-05 17:18:48 +08:00
parent 4cbe32486a
commit 9cb1ffbddd
13 changed files with 144 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
坯布仓库/U_BpRk.pas
View File

@ -1,6 +1,6 @@
unit U_BpRk; unit U_BpRk;
interface interface
uses uses
Windows, Messages, SysUtils, StrUtils, Variants, Classes, Graphics, Controls, Windows, Messages, SysUtils, StrUtils, Variants, Classes, Graphics, Controls,

28
坯布仓库/U_Bpkclist.dfm
View File

@ -190,6 +190,19 @@ object frmBpkclist: TfrmBpkclist
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label9: TLabel
Left = 615
Top = 40
Width = 26
Height = 12
Caption = #39068#33394
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker object BegDate: TDateTimePicker
Left = 76 Left = 76
Top = 11 Top = 11
@ -290,6 +303,15 @@ object frmBpkclist: TfrmBpkclist
TabOrder = 8 TabOrder = 8
OnChange = P_CodeNameChange OnChange = P_CodeNameChange
end end
object P_Color: TEdit
Tag = 2
Left = 647
Top = 36
Width = 100
Height = 20
TabOrder = 9
OnChange = P_CodeNameChange
end
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
@ -484,6 +506,12 @@ object frmBpkclist: TfrmBpkclist
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 100 Width = 100
end end
object Tv1Column2: TcxGridDBColumn
Caption = #24211#20301
DataBinding.FieldName = 'KuWei'
HeaderAlignmentHorz = taCenter
Width = 60
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

5
坯布仓库/U_Bpkclist.pas
View File

@ -1,7 +1,7 @@
unit U_Bpkclist; unit U_Bpkclist;
interface interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ToolWin, StdCtrls, ExtCtrls, cxStyles, cxCustomData, Dialogs, ComCtrls, ToolWin, StdCtrls, ExtCtrls, cxStyles, cxCustomData,
@ -77,6 +77,9 @@ type
Label8: TLabel; Label8: TLabel;
v1Column4: TcxGridDBColumn; v1Column4: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
Label9: TLabel;
P_Color: TEdit;
Tv1Column2: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure P_CodeNameChange(Sender: TObject); procedure P_CodeNameChange(Sender: TObject);

2
基础资料维护(BaseInfo.dll)/U_GetDllForm.pas
View File

@ -66,7 +66,7 @@ begin
// dtbase := 'rtjydata12'; // dtbase := 'rtjydata12';
// user := 'sa'; // user := 'sa';
// pswd := 'rightsoft'; // pswd := 'rightsoft';
server := '139.224.12.182,7781'; server := '139.224.12.182,7781';
dtbase := 'aidengdata'; dtbase := 'aidengdata';
user := 'aidengsa'; user := 'aidengsa';
pswd := 'rightsoft@3203'; pswd := 'rightsoft@3203';

36
基础资料维护(BaseInfo.dll)/U_MLXXList.dfm
View File

@ -121,13 +121,27 @@ object frmMLXXList: TfrmMLXXList
Caption = #36741#26009#32534#21495 Caption = #36741#26009#32534#21495
end end
object Label2: TLabel object Label2: TLabel
Left = 369 Left = 777
Top = 13 Top = 13
Width = 24 Width = 24
Height = 12 Height = 12
Caption = #31867#22411 Caption = #31867#22411
Visible = False Visible = False
end end
object Label4: TLabel
Left = 535
Top = 13
Width = 30
Height = 12
Caption = #33394#21495' '
end
object Label5: TLabel
Left = 366
Top = 13
Width = 24
Height = 12
Caption = #39068#33394
end
object MLName: TEdit object MLName: TEdit
Tag = 2 Tag = 2
Left = 256 Left = 256
@ -148,7 +162,7 @@ object frmMLXXList: TfrmMLXXList
end end
object DEFstr5: TComboBox object DEFstr5: TComboBox
Tag = 1 Tag = 1
Left = 398 Left = 806
Top = 8 Top = 8
Width = 81 Width = 81
Height = 20 Height = 20
@ -162,6 +176,24 @@ object frmMLXXList: TfrmMLXXList
#25104#21697 #25104#21697
'') '')
end end
object MLSH: TEdit
Tag = 2
Left = 560
Top = 8
Width = 89
Height = 20
TabOrder = 3
OnChange = MLNameChange
end
object Color: TEdit
Tag = 2
Left = 393
Top = 9
Width = 92
Height = 20
TabOrder = 4
OnChange = MLNameChange
end
end end
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0

6
基础资料维护(BaseInfo.dll)/U_MLXXList.pas
View File

@ -34,7 +34,7 @@ type
FDdys: string[32]; //客户端套接字 FDdys: string[32]; //客户端套接字
FdDysName: string[32]; //客户端套接字 FdDysName: string[32]; //客户端套接字
end; end;
TfrmMLXXList = class(TForm) TfrmMLXXList = class(TForm)
ToolBar1: TToolBar; ToolBar1: TToolBar;
TBRafresh: TToolButton; TBRafresh: TToolButton;
@ -85,6 +85,10 @@ type
Tv2Column6: TcxGridDBColumn; Tv2Column6: TcxGridDBColumn;
Tv2Column7: TcxGridDBColumn; Tv2Column7: TcxGridDBColumn;
Tv2Column8: TcxGridDBColumn; Tv2Column8: TcxGridDBColumn;
Label4: TLabel;
Label5: TLabel;
MLSH: TEdit;
Color: TEdit;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);

36
基础资料维护(BaseInfo.dll)/U_MLXXListSel.dfm
View File

@ -134,13 +134,27 @@ object frmMLXXListSel: TfrmMLXXListSel
Caption = #36741#26009#32534#21495 Caption = #36741#26009#32534#21495
end end
object Label2: TLabel object Label2: TLabel
Left = 369 Left = 953
Top = 13 Top = 13
Width = 24 Width = 24
Height = 12 Height = 12
Caption = #31867#22411 Caption = #31867#22411
Visible = False Visible = False
end end
object Label4: TLabel
Left = 399
Top = 13
Width = 24
Height = 12
Caption = #39068#33394
end
object Label5: TLabel
Left = 555
Top = 13
Width = 30
Height = 12
Caption = #33394#21495' '
end
object MLName: TEdit object MLName: TEdit
Tag = 2 Tag = 2
Left = 253 Left = 253
@ -161,7 +175,7 @@ object frmMLXXListSel: TfrmMLXXListSel
end end
object Typpe: TComboBox object Typpe: TComboBox
Tag = 1 Tag = 1
Left = 398 Left = 982
Top = 8 Top = 8
Width = 81 Width = 81
Height = 20 Height = 20
@ -175,6 +189,24 @@ object frmMLXXListSel: TfrmMLXXListSel
#25104#21697 #25104#21697
'') '')
end end
object Color: TEdit
Tag = 2
Left = 428
Top = 8
Width = 89
Height = 20
TabOrder = 3
OnChange = MLNameChange
end
object MLSH: TEdit
Tag = 2
Left = 580
Top = 8
Width = 89
Height = 20
TabOrder = 4
OnChange = MLNameChange
end
end end
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0

4
基础资料维护(BaseInfo.dll)/U_MLXXListSel.pas
View File

@ -87,6 +87,10 @@ type
cxGridLevel1: TcxGridLevel; cxGridLevel1: TcxGridLevel;
Tv2Column8: TcxGridDBColumn; Tv2Column8: TcxGridDBColumn;
Tv2Column9: TcxGridDBColumn; Tv2Column9: TcxGridDBColumn;
Label4: TLabel;
Color: TEdit;
Label5: TLabel;
MLSH: TEdit;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);

2
基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP_CB.pas
View File

@ -1446,7 +1446,7 @@ begin
begin begin
if showmodal = 1 then if showmodal = 1 then
begin begin
with CDS_HZ do with CDS_HZ do
begin begin
DisableControls; DisableControls;
// First; // First;

20
基础资料维护(BaseInfo.dll)/U_ZdyAttachCP10.dfm
View File

@ -139,16 +139,8 @@ object frmZdyAttachCP10: TfrmZdyAttachCP10
ImageIndex = 51 ImageIndex = 51
OnClick = ToolButton11Click OnClick = ToolButton11Click
end end
object TBClose: TToolButton
Left = 387
Top = 30
AutoSize = True
Caption = #20851#38381
ImageIndex = 55
OnClick = TBCloseClick
end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 450 Left = 387
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #23610#30721#32452 Caption = #23610#30721#32452
@ -156,13 +148,21 @@ object frmZdyAttachCP10: TfrmZdyAttachCP10
OnClick = ToolButton8Click OnClick = ToolButton8Click
end end
object ToolButton9: TToolButton object ToolButton9: TToolButton
Left = 525 Left = 462
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #39068#33394#31649#29702 Caption = #39068#33394#31649#29702
ImageIndex = 49 ImageIndex = 49
OnClick = ToolButton9Click OnClick = ToolButton9Click
end end
object TBClose: TToolButton
Left = 549
Top = 30
AutoSize = True
Caption = #20851#38381
ImageIndex = 55
OnClick = TBCloseClick
end
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0

4
基础资料维护(BaseInfo.dll)/U_ZdyAttachCP10.pas
View File

@ -35,7 +35,7 @@ type
end; end;
TfrmZdyAttachCP10 = class(TForm) TfrmZdyAttachCP10 = class(TForm)
ToolBar1: TToolBar; ToolBar1: TToolBar;
TBRafresh: TToolButton; TBRafresh: TToolButton;
TBDel: TToolButton; TBDel: TToolButton;
TBClose: TToolButton; TBClose: TToolButton;
@ -545,7 +545,7 @@ begin
end; end;
end; end;
finally finally
frmZdyAttInputCP_CB.Free; frmZdyAttInputCP_CB.Free;
end; end;
end; end;

16
应收应付/U_YSYGGJList.dfm
View File

@ -221,6 +221,13 @@ object frmYSYGGJList: TfrmYSYGGJList
Height = 12 Height = 12
Caption = #20135#21697#32534#21495 Caption = #20135#21697#32534#21495
end end
object Label6: TLabel
Left = 736
Top = 12
Width = 36
Height = 12
Caption = #35746#21333#21495
end
object BegDate: TDateTimePicker object BegDate: TDateTimePicker
Left = 73 Left = 73
Top = 9 Top = 9
@ -337,6 +344,15 @@ object frmYSYGGJList: TfrmYSYGGJList
TabOrder = 11 TabOrder = 11
OnChange = MPRTCodeNameChange OnChange = MPRTCodeNameChange
end end
object OrderNo: TEdit
Tag = 2
Left = 775
Top = 8
Width = 109
Height = 20
TabOrder = 12
OnChange = MPRTCodeNameChange
end
end end
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0

6
应收应付/U_YSYGGJList.pas
View File

@ -103,6 +103,8 @@ type
CheckBox5: TCheckBox; CheckBox5: TCheckBox;
Button9: TButton; Button9: TButton;
Tv1Column6: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn;
Label6: TLabel;
OrderNo: TEdit;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -257,8 +259,8 @@ begin
try try
frmZDYHelp := TfrmZDYHelp.Create(Application); frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do with frmZDYHelp do
begin begin
flag := 'SOrdDefStr10'; flag := 'SOrdDefStr10';
flagname := '库存存放地点'; flagname := '库存存放地点';
if ShowModal = 1 then if ShowModal = 1 then
begin begin