Group_99/D7myYunxiang
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-03-24 15:42:47 +08:00
parent 1011cb7292
commit 26b695f66f
5 changed files with 49 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
云翔生产管理(MYSC.dll)/MYSC.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\马国钢开发代码\项目代码\云翔\云翔生产管理(MYSC.dll)\testDll.exe HostApplication=D:\马国钢开发代码\项目代码\D7WMyunxiang\云翔生产管理(MYSC.dll)\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

8
云翔生产管理(MYSC.dll)/U_ZHCPInPut.dfm
View File

@ -20,7 +20,7 @@ object frmZHCPInPut: TfrmZHCPInPut
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1415 Width = 1423
Height = 30 Height = 30
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 79 ButtonWidth = 79
@ -81,8 +81,8 @@ object frmZHCPInPut: TfrmZHCPInPut
object Panel3: TPanel object Panel3: TPanel
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1415 Width = 1423
Height = 701 Height = 709
Align = alClient Align = alClient
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -383,7 +383,7 @@ object frmZHCPInPut: TfrmZHCPInPut
object Panel5: TPanel object Panel5: TPanel
Left = 2 Left = 2
Top = 2 Top = 2
Width = 1411 Width = 1419
Height = 38 Height = 38
Align = alTop Align = alTop
TabOrder = 1 TabOrder = 1

48
云翔生产管理(MYSC.dll)/U_ZHCPInPut.pas
View File

@ -145,7 +145,7 @@ type
var var
frmZHCPInPut: TfrmZHCPInPut; frmZHCPInPut: TfrmZHCPInPut;
implementation implementation //ZH_KH_DJ
uses uses
U_DataLink, U_ZDYHelp, U_RTFun, U_ZHCPBigTP, U_ZdyAttachCP_HX, U_MLMangeRSSel, U_DataLink, U_ZDYHelp, U_RTFun, U_ZHCPBigTP, U_ZdyAttachCP_HX, U_MLMangeRSSel,
@ -163,29 +163,29 @@ begin
FDate := SGetServerDate(ADOTemp); FDate := SGetServerDate(ADOTemp);
try try
// ADOCmd.Connection.BeginTrans; // ADOCmd.Connection.BeginTrans;
if GetLSNoHZ(ADOCmd, BJmaxno, 'ZD', 'ZH_KH_DJ', 3, 1, 1) = False then // if GetLSNoHZ(ADOCmd, BJmaxno, 'ZD', 'ZH_KH_DJ', 3, 1, 1) = False then
begin // begin
ADOCmd.Connection.RollbackTrans; // ADOCmd.Connection.RollbackTrans;
Application.MessageBox('È¡×î´óºÅʧ°Ü!', 'Ìáʾ', 0); // Application.MessageBox('È¡×î´óºÅʧ°Ü!', 'Ìáʾ', 0);
Exit; // Exit;
end; // end;
with ADOCmd do // with ADOCmd do
begin // begin
Close; // Close;
sql.Clear; // sql.Clear;
SQL.Add('select * from ZH_KH_DJ where ZDId=''' + Trim(BJmaxno) + ''''); // SQL.Add('select * from ZH_KH_DJ where ZDId=''' + Trim(BJmaxno) + '''');
Open; // Open;
end; // end;
with ADOCmd do // with ADOCmd do
begin // begin
Append; // Append;
FieldByName('ZDId').Value := Trim(BJmaxno); // FieldByName('ZDId').Value := Trim(BJmaxno);
FieldByName('Filler').Value := Trim(DName); // FieldByName('Filler').Value := Trim(DName);
FieldByName('FillerCode').Value := Trim(DCode); // FieldByName('FillerCode').Value := Trim(DCode);
FieldByName('Valid').Value := 'Y'; // FieldByName('Valid').Value := 'Y';
FieldByName('ZDDate').Value := FDate; // FieldByName('ZDDate').Value := FDate;
Post; // Post;
end; // end;
if GetLSNo(ADOCmd, BJmaxmxno, 'ZC', 'ZH_KH_DJ_CP', 4, 1) = False then if GetLSNo(ADOCmd, BJmaxmxno, 'ZC', 'ZH_KH_DJ_CP', 4, 1) = False then
begin begin
// Order_Sub.EnableControls; // Order_Sub.EnableControls;

24
云翔生产管理(MYSC.dll)/U_ZHDJInPut.dfm
View File

@ -20,7 +20,7 @@ object frmZHDJInPut: TfrmZHDJInPut
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1328 Width = 1336
Height = 30 Height = 30
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 123 ButtonWidth = 123
@ -135,8 +135,8 @@ object frmZHDJInPut: TfrmZHDJInPut
object Panel3: TPanel object Panel3: TPanel
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1328 Width = 1336
Height = 628 Height = 636
Align = alClient Align = alClient
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -144,7 +144,7 @@ object frmZHDJInPut: TfrmZHDJInPut
object Panel5: TPanel object Panel5: TPanel
Left = 2 Left = 2
Top = 2 Top = 2
Width = 1324 Width = 1332
Height = 107 Height = 107
Align = alTop Align = alTop
TabOrder = 0 TabOrder = 0
@ -175,7 +175,7 @@ object frmZHDJInPut: TfrmZHDJInPut
ParentFont = False ParentFont = False
end end
object Label5: TLabel object Label5: TLabel
Left = 885 Left = 893
Top = 1 Top = 1
Width = 16 Width = 16
Height = 105 Height = 105
@ -215,7 +215,7 @@ object frmZHDJInPut: TfrmZHDJInPut
ParentFont = False ParentFont = False
end end
object Label7: TLabel object Label7: TLabel
Left = 654 Left = 662
Top = 1 Top = 1
Width = 16 Width = 16
Height = 105 Height = 105
@ -242,7 +242,7 @@ object frmZHDJInPut: TfrmZHDJInPut
ParentFont = False ParentFont = False
end end
object Panel66: TPanel object Panel66: TPanel
Left = 1067 Left = 1075
Top = 1 Top = 1
Width = 179 Width = 179
Height = 105 Height = 105
@ -260,7 +260,7 @@ object frmZHDJInPut: TfrmZHDJInPut
end end
end end
object Panel2: TPanel object Panel2: TPanel
Left = 1246 Left = 1254
Top = 1 Top = 1
Width = 77 Width = 77
Height = 105 Height = 105
@ -324,7 +324,7 @@ object frmZHDJInPut: TfrmZHDJInPut
end end
object Note: TMemo object Note: TMemo
Tag = 2 Tag = 2
Left = 901 Left = 909
Top = 1 Top = 1
Width = 166 Width = 166
Height = 105 Height = 105
@ -472,7 +472,7 @@ object frmZHDJInPut: TfrmZHDJInPut
end end
object KHGY: TMemo object KHGY: TMemo
Tag = 9 Tag = 9
Left = 670 Left = 678
Top = 1 Top = 1
Width = 215 Width = 215
Height = 105 Height = 105
@ -490,8 +490,8 @@ object frmZHDJInPut: TfrmZHDJInPut
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 2 Left = 2
Top = 109 Top = 109
Width = 1324 Width = 1332
Height = 517 Height = 525
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 1 TabOrder = 1

16
云翔生产管理(MYSC.dll)/U_ZHDJInPut.pas
View File

@ -21,12 +21,12 @@ uses
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter; dxSkinscxPCPainter;
type type
TfrmZHDJInPut = class(TForm) TfrmZHDJInPut = class(TForm)
@ -196,7 +196,7 @@ begin
Open; Open;
end; end;
SCSHDataNew(ADOQuery1, Panel5, 2); SCSHDataNew(ADOQuery1, Panel5, 2);
SCSHDataNew(ADOQuery1, Panel9, 2); SCSHDataNew(ADOQuery1, Panel9, 2);
with ADOTemp do with ADOTemp do
begin begin
Close; Close;
@ -688,7 +688,7 @@ begin
Result := False; Result := False;
Panel1.Visible := False; Panel1.Visible := False;
ADOCmd.Connection.RollbackTrans; ADOCmd.Connection.RollbackTrans;
Application.MessageBox('保存失败！', '提示', 0); application.MessageBox(PChar(Exception(ExceptObject).Message), 'ÌáʾÐÅÏ¢', 0);
end; end;
end; end;