Group_01/D7DJnaile
5
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-29 16:41:45 +08:00
parent 1e94c6429a
commit aaecd2e3e3
3 changed files with 28 additions and 109 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
检验管理/TradeManage.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\徐加艳项目代码\项目代码\奈乐\检验管理\testDll.exe HostApplication=D:\Dp7Repo\项目代码\D7DJnaile\检验管理\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

6
检验管理/U_JYOrderCDOne.dfm
View File

@ -1085,6 +1085,12 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 65 Width = 65
end end
object Tv1Column2: TcxGridDBColumn
Caption = #39068#33394'('#33521#25991')'
DataBinding.FieldName = 'SOrddefstr4'
HeaderAlignmentHorz = taCenter
Width = 60
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

129
检验管理/U_JYOrderCDOne.pas
View File

@ -11,7 +11,20 @@ uses
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, ShellAPI, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, ShellAPI,
cxCurrencyEdit, MMSystem; cxCurrencyEdit, MMSystem, 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 type
TfrmJYOrderCDOne = class(TForm) TfrmJYOrderCDOne = class(TForm)
@ -206,6 +219,7 @@ type
RM4: TRMGridReport; RM4: TRMGridReport;
ADOQueryPrint1: TADOQuery; ADOQueryPrint1: TADOQuery;
RMDB_Main1: TRMDBDataSet; RMDB_Main1: TRMDBDataSet;
Tv1Column2: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -369,7 +383,7 @@ begin
try try
ADOQueryMain.DisableControls; ADOQueryMain.DisableControls;
with ADOQueryMain do with ADOQueryMain do
begin begin
Close; Close;
Filtered := False; Filtered := False;
sql.Clear; sql.Clear;
@ -1502,107 +1516,6 @@ begin
ExecSQL; ExecSQL;
end; end;
// if (trim(ComboBox1.Text) = '쇱駱쯤데(亶匡)') or (ComboBox1.ItemIndex = 0) then
// begin
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.add('exec P_Print_CKMDHAEIL ');
// sql.add('@DName=' + quotedstr(Trim(DCode)));
// Open;
// end;
// SCreateCDS20(ADOQueryTemp, CDS_HZ);
// SInitCDSData20(ADOQueryTemp, CDS_HZ);
//
// with ADOQueryPrint do
// begin
// Close;
// sql.Clear;
// sql.add('exec P_Do_PrintMd_HZ ');
// sql.add('@mainID=' + quotedstr(Trim('')));
// sql.add(',@DName=' + quotedstr(Trim(DCode)));
// sql.add(',@flag=''2'' ');
// Open;
// end;
// end;
// if (trim(ComboBox1.Text) = '쇱駱쯤데(櫓匡)') or (ComboBox1.ItemIndex = 1) then
// begin
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.add('exec P_Print_CKMDHAEIL ');
// sql.add('@DName=' + quotedstr(Trim(DCode)));
// Open;
// end;
// SCreateCDS20(ADOQueryTemp, CDS_HZ);
// SInitCDSData20(ADOQueryTemp, CDS_HZ);
//
// with ADOQueryPrint do
// begin
// Close;
// sql.Clear;
// sql.add('exec P_Do_PrintMd_HZ ');
// sql.add('@mainID=' + quotedstr(Trim('')));
// sql.add(',@DName=' + quotedstr(Trim(DCode)));
// sql.add(',@flag=''2'' ');
// Open;
// end;
// end;
//
// if (trim(ComboBox1.Text) = '쇱駱쯤데(삠悧)') or (ComboBox1.ItemIndex = 4) then
// begin
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.add('exec P_Print_CKMDHZ ');
// SQL.Add('@mainid='''' ');
// sql.add(',@DName=' + quotedstr(Trim(DCode)));
// SQL.Add(',@DLen =' + edit3.Text);
// Open;
// end;
// SCreateCDS20(ADOQueryTemp, CDS_HZ);
// SInitCDSData20(ADOQueryTemp, CDS_HZ);
//
// with ADOQueryPrint do
// begin
// Close;
// sql.Clear;
// sql.add('exec P_Do_PrintMd_HZ ');
// sql.add('@mainID=' + quotedstr(Trim('')));
// sql.add(',@DName=' + quotedstr(Trim(DCode)));
// sql.add(',@flag=''2'' ');
// Open;
// end;
// end;
//
// if (trim(ComboBox1.Text) = '쇱駱쯤데') or (ComboBox1.ItemIndex = 5) then
// begin
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.add('exec P_Print_CKMDYDL ');
// sql.add('@DName=' + quotedstr(Trim(DCode)));
// Open;
// end;
// SCreateCDS20(ADOQueryTemp, CDS_HZ);
// SInitCDSData20(ADOQueryTemp, CDS_HZ);
//
// with ADOQueryPrint do
// begin
// Close;
// sql.Clear;
// sql.add('exec P_Do_PrintMd_HZ ');
// sql.add('@mainID=' + quotedstr(Trim('')));
// sql.add(',@DName=' + quotedstr(Trim(DCode)));
// sql.add(',@flag=''2'' ');
// Open;
// end;
// end;
if (trim(ComboBox1.Text) = '检验码单(重量)') or (ComboBox1.ItemIndex = 2) then if (trim(ComboBox1.Text) = '检验码单(重量)') or (ComboBox1.ItemIndex = 2) then
begin begin
with ADOQueryTemp do with ADOQueryTemp do
@ -1808,8 +1721,8 @@ begin
Order_Main.EnableControls; Order_Main.EnableControls;
if Length(OrderNo.Text) > 2 then if Length(OrderNo.Text) > 2 then
begin begin
Key := #13; key := #13;
OrderNo.OnKeyPress(OrderNo, Key); OrderNo.OnKeyPress(OrderNo, key);
end end
else else
begin begin
@ -1829,7 +1742,7 @@ begin
if Application.MessageBox('确定要撤销出库吗？', '提示', 32 + 4) <> IDYES then if Application.MessageBox('确定要撤销出库吗？', '提示', 32 + 4) <> IDYES then
Exit; Exit;
Order_Main.DisableControls; Order_Main.DisableControls;
with Order_Main do with Order_Main do
begin begin
First; First;
while not Eof do while not Eof do
@ -1879,8 +1792,8 @@ begin
Order_Main.EnableControls; Order_Main.EnableControls;
if Length(OrderNo.Text) > 2 then if Length(OrderNo.Text) > 2 then
begin begin
Key := #13; key := #13;
OrderNo.OnKeyPress(OrderNo, Key); OrderNo.OnKeyPress(OrderNo, key);
end end
else else
begin begin