Group_DJD/D7DJshengxing
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-11-21 15:26:38 +08:00
parent 49668c4c80
commit 22103733ec
3 changed files with 95 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
检验管理/U_DataLink.pas
View File

@ -4,7 +4,21 @@ interface
uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, ExtCtrls,SyncObjs;
Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, ExtCtrls,SyncObjs,
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;
type
TMyThread = class(TThread)
protected

9
检验管理/U_JYOrderCDOne.dfm
View File

@ -1,6 +1,6 @@
object frmJYOrderCDOne: TfrmJYOrderCDOne
Left = -8
Top = 0
Left = 294
Top = 95
Width = 1378
Height = 754
Caption = #26816#39564#25253#21578
@ -198,7 +198,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Text = #30721#21333'('#25171#21367')'
OnChange = ComboBox1Change
Items.Strings = (
#30721#21333'('#25171#21367')')
#30721#21333'('#25171#21367')'
#30721#21333'('#25353#21367#21495')')
end
object ToolButton9: TToolButton
Left = 664
@ -728,7 +729,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Left = 0
Top = 150
Width = 1362
Height = 566
Height = 565
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 3

59
检验管理/U_JYOrderCDOne.pas
View File

@ -11,7 +11,20 @@ uses
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit,
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
TfrmJYOrderCDOne = class(TForm)
@ -795,8 +808,6 @@ begin
TBFind.Click;
end;
procedure TfrmJYOrderCDOne.OrderNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
@ -866,7 +877,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
@ -1379,7 +1391,6 @@ var
sqlStr: string;
begin
if Order_Main.IsEmpty then
Exit;
if trim(ComboBox1.Text) = '' then
@ -1535,7 +1546,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
@ -1560,7 +1571,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
@ -1612,6 +1623,32 @@ begin
end;
end;
if (trim(ComboBox1.Text) = '쯤데(객얩뵀)') then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.add('exec P_Print_CKMD_JH ');
sql.add('@mainID=' + quotedstr(Trim('')));
sql.add(',@DName=' + quotedstr(Trim(DCode)));
sql.Add(',@Cnum=''3''');
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 FileExists(fPrintFile) then
begin
RM1.LoadFromFile(fPrintFile);
@ -1864,12 +1901,12 @@ 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