Group_01/D7DJyalu
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-10-21 09:35:41 +08:00
parent b665aac497
commit 66a4194db9
3 changed files with 129 additions and 103 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
检验管理/TradeManage.dof
View File

@ -101,10 +101,14 @@ DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\徐加艳项目代码\项目代码\亚鹭\检验管理\testDll.exe
HostApplication=D:\Dp7Repo\项目代码\D7DJyalu\检验管理\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=
[Language]
ActiveLang=
ProjectLang=
RootDir=
[Version Info]
IncludeVerInfo=0
AutoIncBuild=0

39
检验管理/U_JYOrderCDOne.dfm
View File

@ -1,8 +1,8 @@
object frmJYOrderCDOne: TfrmJYOrderCDOne
Left = 230
Left = 385
Top = 202
Width = 1382
Height = 533
Width = 1227
Height = 689
Caption = #26816#39564#25253#21578
Color = clBtnFace
Font.Charset = GB2312_CHARSET
@ -21,7 +21,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1366
Width = 1211
Height = 62
AutoSize = True
ButtonHeight = 30
@ -234,9 +234,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
#26816#39564#30721#21333'('#38271#24230')'
#26816#39564#30721#21333'('#20928#37325')'
#26816#39564#30721#21333'('#20840')'
''
''
'')
#26816#39564#30721#21333'('#27454#21495')')
end
object ToolButton9: TToolButton
Left = 945
@ -266,7 +264,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
object Panel1: TPanel
Left = 0
Top = 62
Width = 1366
Width = 1211
Height = 88
Align = alTop
BevelInner = bvRaised
@ -795,8 +793,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
object cxGrid1: TcxGrid
Left = 0
Top = 150
Width = 1366
Height = 344
Width = 1211
Height = 500
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@ -1940,15 +1938,15 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
object RMDB_Main: TRMDBDataSet
Visible = True
DataSet = ADOQueryPrint
Left = 696
Top = 280
Left = 712
Top = 440
end
object ADOQueryPrint: TADOQuery
Connection = DataLink_TradeManage.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 648
Top = 232
Left = 568
Top = 456
end
object CDS_CD: TClientDataSet
Aggregates = <>
@ -2060,4 +2058,17 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Left = 376
Top = 264
end
object RMDBD_Z: TRMDBDataSet
Visible = True
DataSet = ADOQuery1
Left = 656
Top = 448
end
object ADOQuery1: TADOQuery
Connection = DataLink_TradeManage.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 616
Top = 456
end
end

51
检验管理/U_JYOrderCDOne.pas
View File

@ -12,19 +12,19 @@ uses
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, ShellAPI,
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;
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
TfrmJYOrderCDOne = class(TForm)
@ -219,6 +219,8 @@ type
ToolButton4: TToolButton;
Label36: TLabel;
ComboBox2: TComboBox;
RMDBD_Z: TRMDBDataSet;
ADOQuery1: TADOQuery;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
@ -1658,16 +1660,15 @@ begin
Open;
end;
end;
{
if (trim(ComboBox1.Text) = '쇱駱쯤데(횡<>)') OR (trim(ComboBox1.Text) = '쇱駱쯤데(丹빻)') then
if (trim(ComboBox1.Text) = '¼ìÑéÂëµ¥(¿îºÅ)') then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.add('exec P_Print_CKMD ');
sql.add('@mainID=' + quotedstr(Trim('')));
sql.add(',@DName=' + quotedstr(Trim(DCode)));
sql.add('exec P_Print_CKMDHAEIL ');
sql.add('@DName=' + quotedstr(Trim(DCode)));
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_HZ);
@ -1680,10 +1681,20 @@ begin
sql.add('exec P_Do_PrintMd_HZ ');
sql.add('@mainID=' + quotedstr(Trim('')));
sql.add(',@DName=' + quotedstr(Trim(DCode)));
sql.add(',@flag=''2'' ');
sql.add(',@flag=''22'' ');
Open;
end;
end; }
with ADOQuery1 do //RMDBD_Z
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=''23'' ');
Open;
end;
end;
if (trim(ComboBox1.Text) = '检验码单(染色米数)') or (trim(ComboBox1.Text) = '检验码单(印花米数)') then
begin
with ADOQueryTemp do