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;
interface
interface
uses
Windows, Messages, SysUtils, StrUtils, Variants, Classes, Graphics, Controls,

28
坯布仓库/U_Bpkclist.dfm
View File

@ -190,6 +190,19 @@ object frmBpkclist: TfrmBpkclist
Font.Style = [fsBold]
ParentFont = False
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
Left = 76
Top = 11
@ -290,6 +303,15 @@ object frmBpkclist: TfrmBpkclist
TabOrder = 8
OnChange = P_CodeNameChange
end
object P_Color: TEdit
Tag = 2
Left = 647
Top = 36
Width = 100
Height = 20
TabOrder = 9
OnChange = P_CodeNameChange
end
end
object cxGrid1: TcxGrid
Left = 0
@ -484,6 +506,12 @@ object frmBpkclist: TfrmBpkclist
HeaderAlignmentHorz = taCenter
Width = 100
end
object Tv1Column2: TcxGridDBColumn
Caption = #24211#20301
DataBinding.FieldName = 'KuWei'
HeaderAlignmentHorz = taCenter
Width = 60
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1

5
坯布仓库/U_Bpkclist.pas
View File

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

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

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

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

@ -121,13 +121,27 @@ object frmMLXXList: TfrmMLXXList
Caption = #36741#26009#32534#21495
end
object Label2: TLabel
Left = 369
Left = 777
Top = 13
Width = 24
Height = 12
Caption = #31867#22411
Visible = False
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
Tag = 2
Left = 256
@ -148,7 +162,7 @@ object frmMLXXList: TfrmMLXXList
end
object DEFstr5: TComboBox
Tag = 1
Left = 398
Left = 806
Top = 8
Width = 81
Height = 20
@ -162,6 +176,24 @@ object frmMLXXList: TfrmMLXXList
#25104#21697
'')
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
object cxGrid2: TcxGrid
Left = 0

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

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

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

@ -134,13 +134,27 @@ object frmMLXXListSel: TfrmMLXXListSel
Caption = #36741#26009#32534#21495
end
object Label2: TLabel
Left = 369
Left = 953
Top = 13
Width = 24
Height = 12
Caption = #31867#22411
Visible = False
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
Tag = 2
Left = 253
@ -161,7 +175,7 @@ object frmMLXXListSel: TfrmMLXXListSel
end
object Typpe: TComboBox
Tag = 1
Left = 398
Left = 982
Top = 8
Width = 81
Height = 20
@ -175,6 +189,24 @@ object frmMLXXListSel: TfrmMLXXListSel
#25104#21697
'')
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
object cxGrid2: TcxGrid
Left = 0

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

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

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

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

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

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

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

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

16
应收应付/U_YSYGGJList.dfm
View File

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

6
应收应付/U_YSYGGJList.pas
View File

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