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

37
检验管理/U_JYOrderCDOne.pas
View File

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