Group_DJD/D7DJqianjing
8
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

检验信息管理: 将出库日期显示一下

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-10-31 09:20:09 +08:00
parent d37af89883
commit a77b9e2072
2 changed files with 61 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
检验管理/U_JYOrderCDOne.dfm
View File

@ -1,6 +1,6 @@
object frmJYOrderCDOne: TfrmJYOrderCDOne
Left = 405
Top = 314
Left = 680
Top = 458
Width = 1382
Height = 754
Caption = #26816#39564#25253#21578
@ -1183,8 +1183,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end
end
object MovePanel2: TMovePanel
Left = 416
Top = 192
Left = 448
Top = 176
Width = 289
Height = 49
BevelInner = bvLowered
@ -1247,8 +1247,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end
end
object Panel2: TPanel
Left = 480
Top = 268
Left = 544
Top = 460
Width = 273
Height = 101
Color = clSkyBlue
@ -1308,8 +1308,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end
end
object Panel3: TPanel
Left = 503
Top = 203
Left = 855
Top = 411
Width = 231
Height = 216
TabOrder = 6
@ -1398,7 +1398,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end
object RadioGroup2: TRadioGroup
Left = 56
Top = 24
Top = 56
Width = 129
Height = 145
ItemIndex = 0
@ -1599,8 +1599,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end
end
object Panel9: TPanel
Left = 788
Top = 264
Left = 1036
Top = 280
Width = 225
Height = 117
Color = clSkyBlue
@ -1642,8 +1642,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end
end
object Panel_SMCK: TPanel
Left = 456
Top = 204
Left = 120
Top = 492
Width = 317
Height = 97
Color = clSkyBlue

37
检验管理/U_JYOrderCDOne.pas
View File

@ -800,8 +800,6 @@ begin
TBFind.Click;
end;
procedure TfrmJYOrderCDOne.OrderNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
@ -871,7 +869,8 @@ end;
procedure TfrmJYOrderCDOne.TBPrintJYBBClick(Sender: TObject);
begin
if Order_Main.IsEmpty then Exit;
if Order_Main.IsEmpty then
Exit;
if Order_Main.Locate('SSel', True, []) = False then
begin
@ -1384,7 +1383,6 @@ var
sqlStr: string;
begin
if Order_Main.IsEmpty then
Exit;
if trim(ComboBox1.Text) = '' then
@ -1463,7 +1461,7 @@ begin
ExecSQL;
end;
if (trim(ComboBox1.Text) = '检验码单(英文)') or (trim(ComboBox1.Text) = '检验码单(中文)') OR (trim(ComboBox1.Text) = '码单2') then
if (trim(ComboBox1.Text) = '检验码单(英文)') or (trim(ComboBox1.Text) = '检验码单(中文)') or (trim(ComboBox1.Text) = '码单2') then
begin
with ADOQueryTemp do
begin
@ -1566,7 +1564,7 @@ begin
end;
end;
if (trim(ComboBox1.Text) = '检验码单(染色)') OR (trim(ComboBox1.Text) = '检验码单(印花)') then
if (trim(ComboBox1.Text) = '检验码单(染色)') or (trim(ComboBox1.Text) = '检验码单(印花)') then
begin
with ADOQueryTemp do
begin
@ -1591,7 +1589,7 @@ begin
Open;
end;
end;
if (trim(ComboBox1.Text) = '检验码单(染色米数)') OR (trim(ComboBox1.Text) = '检验码单(印花米数)') then
if (trim(ComboBox1.Text) = '检验码单(染色米数)') or (trim(ComboBox1.Text) = '检验码单(印花米数)') then
begin
with ADOQueryTemp do
begin
@ -1709,7 +1707,7 @@ begin
Close;
sql.Clear;
sql.Add('update WFB_MJJY set CKFlag=''Òѳö¿â'' ');
sql.Add(' ckTime=Getdate(),Cker=''' + trim(DName) + '''');
sql.Add(' ,ckTime=Getdate(),Cker=''' + trim(DName) + '''');
sql.add(' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
ExecSQL;
end;
@ -1725,7 +1723,7 @@ begin
end;
end;
Order_Main.EnableControls;
InitGrid();
end;
procedure TfrmJYOrderCDOne.TBNoCKClick(Sender: TObject);
@ -1750,7 +1748,10 @@ begin
begin
Close;
sql.Clear;
sql.Add('update WFB_MJJY set CKFlag=''未出库'' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
//sql.Add('update WFB_MJJY set CKFlag=''未出库'' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
sql.Add('update WFB_MJJY set CKFlag=''未出库'' ');
sql.Add(' ,ckTime=null,Cker=null');
sql.add(' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
ExecSQL;
end;
@ -1765,7 +1766,7 @@ begin
end;
end;
Order_Main.EnableControls;
InitGrid();
end;
procedure TfrmJYOrderCDOne.Button11Click(Sender: TObject);
@ -1871,19 +1872,22 @@ begin
panel3.Visible := false;
end;
procedure TfrmJYOrderCDOne.Edit_CKMJIDKeyPress(Sender: TObject;
var Key: Char);
procedure TfrmJYOrderCDOne.Edit_CKMJIDKeyPress(Sender: TObject; var Key: Char);
begin
IF key=#13 then
if Key = #13 then
begin
IF trim(Edit_CKMJID.Text)='' then exit;
if trim(Edit_CKMJID.Text) = '' then
exit;
try
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('update WFB_MJJY set CKFlag=''已出库'' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
// sql.Add('update WFB_MJJY set CKFlag=''已出库'' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
sql.Add('update WFB_MJJY set CKFlag=''已出库'' ');
sql.Add(' ,ckTime=Getdate(),Cker=''' + trim(DName) + '''');
sql.add(' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
ExecSQL;
end;
PlaySound('wav\ÕýÈ·.wav', 0, SND_FILENAME or SND_ASYNC);
@ -1892,6 +1896,7 @@ begin
end;
Edit_CKMJID.Text := '';
end;
InitGrid();
end;
procedure TfrmJYOrderCDOne.Button_CKSMClick(Sender: TObject);