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
[Parameters]
RunParams=
HostApplication=D:\马国钢开发代码\项目代码\云翔\云翔生产管理(MYSC.dll)\testDll.exe
HostApplication=D:\马国钢开发代码\项目代码\D7WMyunxiang\云翔生产管理(MYSC.dll)\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=

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

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

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

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

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

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

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

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