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 uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, 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 type
TMyThread = class(TThread) TMyThread = class(TThread)
protected protected

9
检验管理/U_JYOrderCDOne.dfm
View File

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

107
检验管理/U_JYOrderCDOne.pas
View File

@ -10,8 +10,21 @@ uses
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
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)
@ -475,15 +488,15 @@ begin
TBManage.Visible := True; TBManage.Visible := True;
v1Column22.visible := True; v1Column22.visible := True;
v1Column15.Options.Focusing := True; v1Column15.Options.Focusing := True;
TCPDB.Visible:=True; TCPDB.Visible := True;
TBPrintBao.Visible:=True; TBPrintBao.Visible := True;
TBck.Visible:=true; TBck.Visible := true;
TBSMck.Visible:=True; TBSMck.Visible := True;
TBnoCK.Visible:=True; TBnoCK.Visible := True;
TBDW.Visible:=True; TBDW.Visible := True;
TBMS.Visible:=True; TBMS.Visible := True;
TBPZ.Visible:=True; TBPZ.Visible := True;
end; end;
if Trim(DParameters2) = '³ÉÆ·¹ÜÀí' then if Trim(DParameters2) = '³ÉÆ·¹ÜÀí' then
@ -497,13 +510,13 @@ begin
TBZF.Visible := False; TBZF.Visible := False;
TBManage.Visible := False; TBManage.Visible := False;
v1Column22.visible := False; v1Column22.visible := False;
TBck.Visible:=false; TBck.Visible := false;
TBSMck.Visible:=false; TBSMck.Visible := false;
TBnoCK.Visible:=false; TBnoCK.Visible := false;
TBDW.Visible:=false; TBDW.Visible := false;
TBMS.Visible:=false; TBMS.Visible := false;
TBPZ.Visible:=false; TBPZ.Visible := false;
TCPDB.Visible:=True; TCPDB.Visible := True;
TBPrintBao.Visible := True; TBPrintBao.Visible := True;
end; end;
if Trim(DParameters2) = '' then if Trim(DParameters2) = '' then
@ -511,12 +524,12 @@ begin
TBZF.Visible := False; TBZF.Visible := False;
TBManage.Visible := False; TBManage.Visible := False;
v1Column22.visible := False; v1Column22.visible := False;
TBck.Visible:=false; TBck.Visible := false;
TBSMck.Visible:=false; TBSMck.Visible := false;
TBnoCK.Visible:=false; TBnoCK.Visible := false;
TBDW.Visible:=false; TBDW.Visible := false;
TBMS.Visible:=false; TBMS.Visible := false;
TBPZ.Visible:=false; TBPZ.Visible := false;
// TCPDB.Visible:=False; // TCPDB.Visible:=False;
end; end;
end; end;
@ -795,8 +808,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
@ -866,7 +877,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
@ -1379,7 +1391,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
@ -1535,7 +1546,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
@ -1560,7 +1571,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
@ -1612,6 +1623,32 @@ begin
end; end;
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 if FileExists(fPrintFile) then
begin begin
RM1.LoadFromFile(fPrintFile); RM1.LoadFromFile(fPrintFile);
@ -1864,12 +1901,12 @@ 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
@ -1883,13 +1920,13 @@ begin
except except
PlaySound('wav\ɨÃè´íÎó.wav', 0, SND_FILENAME or SND_ASYNC); PlaySound('wav\ɨÃè´íÎó.wav', 0, SND_FILENAME or SND_ASYNC);
end; end;
Edit_CKMJID.Text:=''; Edit_CKMJID.Text := '';
end; end;
end; end;
procedure TfrmJYOrderCDOne.Button_CKSMClick(Sender: TObject); procedure TfrmJYOrderCDOne.Button_CKSMClick(Sender: TObject);
begin begin
Panel_SMCK.Visible:=false; Panel_SMCK.Visible := false;
end; end;
procedure TfrmJYOrderCDOne.TBSMCKClick(Sender: TObject); procedure TfrmJYOrderCDOne.TBSMCKClick(Sender: TObject);