Group_DJD/D7DJduojin
9
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-07-19 10:16:56 +08:00
parent 0b3c90fe6a
commit 0c5916875a
2 changed files with 48 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
检验管理/U_GetDllForm.pas
View File

@ -110,8 +110,8 @@ begin
end;
////////////////////
/////////////////////
//调用子模块窗口
case FormID of
//调用子模块窗口
case FormID of
201: //生产指示单
begin
if frmProductOrderNewList = nil then

54
检验管理/U_OrderInPut.pas
View File

@ -12,7 +12,20 @@ uses
cxCurrencyEdit, cxImage, Menus, cxLookAndFeelPainters, cxButtons, cxDBEdit,
cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxNavigator,
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_Preview,
RM_DsgGridReport, RM_e_Graphic, RM_e_bmp;
RM_DsgGridReport, RM_e_Graphic, RM_e_bmp, dxSkinsCore, dxSkinBlack, dxSkinBlue,
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
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;
type
TfrmOrderInPut = class(TForm)
@ -324,7 +337,7 @@ end;
procedure TfrmOrderInPut.InitDataSetDictionary();
begin
with ADOQuery_label do
begin
begin
close;
sql.Clear;
sql.Add('exec P_Print_RollLabel');
@ -918,6 +931,18 @@ end;
procedure TfrmOrderInPut.TBSaveClick(Sender: TObject);
begin
OrdDate.SetFocus;
if Trim(OrderNo.text) = '' then
begin
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('exec P_Get_MaxorderNo ');
// ShowMessage(SQL.Text);
Open;
end;
OrderNo.Text := trim(ADOTemp.fieldByName('MaxBH').AsString);
end;
if Trim(OrderNo.Text) = '' then
begin
Application.MessageBox('指示单号不能为空！', '提示', 0);
@ -981,13 +1006,13 @@ var
i: Integer;
begin
Tv1.Columns[0].FocusWithSelection;
if Trim(OrderNo.Text) = '' then
begin
Application.MessageBox('订单号不能为空!', '提示', 0);
Exit;
end;
// if Trim(OrderNo.Text) = '' then
// begin
// Application.MessageBox('¶©µ¥ºÅ²»ÄÜΪ¿Õ!', 'Ìáʾ', 0);
// Exit;
// end;
i := Order_Sub.RecordCount;
i := i + 1;
i := i + 1;
CopyAddRow(Tv1, Order_Sub);
with Order_Sub do
begin
@ -1629,6 +1654,19 @@ procedure TfrmOrderInPut.Button1Click(Sender: TObject);
var
fFileName: string;
begin
if Trim(OrderNo.text) = '' then
begin
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('exec P_Get_MaxorderNo ');
// ShowMessage(SQL.Text);
Open;
end;
OrderNo.Text := trim(ADOTemp.fieldByName('MaxBH').AsString);
end;
if trim(OrderNo.Text) = '' then
begin
application.MessageBox('订单号不能为空', '提示信息', 0);