Group_DJD/D7DJshunyang
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

顺阳 加一个检验码单中文的 码单格式 五列 根据缸号换列

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-09-16 15:29:35 +08:00
parent a527b963f4
commit a77801a318
4 changed files with 42 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
打卷检验管理/TradeManage.dof
View File

@ -136,6 +136,3 @@ ProductVersion=1.0.0.0
Comments= Comments=
[Excluded Packages] [Excluded Packages]
c:\program files\borland\delphi7\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package c:\program files\borland\delphi7\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package
[HistoryLists\hlUnitAliases]
Count=1
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;

6
打卷检验管理/U_GetDllForm.pas
View File

@ -80,11 +80,11 @@ begin
IF trim(DataBaseStr)<>''then IF trim(DataBaseStr)<>''then
DConString := DataBaseStr; DConString := DataBaseStr;
DParameters1:='高权限'; //DParameters1:='高权限';
//DCode:='ADMIN'; //DCode:='ADMIN';
//DName:='ADMIN'; //DName:='ADMIN';
// DParameters2:='成品管理'; //12 // DParameters2:='成品管理'; //12
// DParameters2:='管理'; DParameters2:='管理';
if not ConnData() then if not ConnData() then
begin begin
result := 0; result := 0;
@ -335,7 +335,7 @@ begin
end; end;
19: //检验报告 19: //检验报告
begin begin
if frmJYOrderCDOne = nil then if frmJYOrderCDOne = nil then
begin begin
frmJYOrderCDOne := TfrmJYOrderCDOne.Create(application.MainForm); frmJYOrderCDOne := TfrmJYOrderCDOne.Create(application.MainForm);
with frmJYOrderCDOne do with frmJYOrderCDOne do

21
打卷检验管理/U_JYOrderCDOne.dfm
View File

@ -1,6 +1,6 @@
object frmJYOrderCDOne: TfrmJYOrderCDOne object frmJYOrderCDOne: TfrmJYOrderCDOne
Left = 296 Left = 459
Top = 178 Top = 317
Width = 1400 Width = 1400
Height = 757 Height = 757
Caption = #26816#39564#25253#21578 Caption = #26816#39564#25253#21578
@ -21,7 +21,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1384 Width = 1392
Height = 62 Height = 62
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -204,10 +204,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
ItemHeight = 16 ItemHeight = 16
ItemIndex = 0
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
Text = #26816#39564#30721#21333'('#33521#25991')'
OnChange = ComboBox1Change OnChange = ComboBox1Change
Items.Strings = ( Items.Strings = (
#26816#39564#30721#21333'('#33521#25991')' #26816#39564#30721#21333'('#33521#25991')'
@ -215,7 +213,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
#26816#39564#30721#21333'('#26579#33394')' #26816#39564#30721#21333'('#26579#33394')'
#26816#39564#30721#21333'('#21360#33457')' #26816#39564#30721#21333'('#21360#33457')'
#26816#39564#30721#21333'('#27719#24635')' #26816#39564#30721#21333'('#27719#24635')'
#26816#39564#30721#21333) #26816#39564#30721#21333
#26816#39564#30721#21333'('#20013#25991#20116#21015')')
end end
object Edit4: TEdit object Edit4: TEdit
Left = 664 Left = 664
@ -267,7 +266,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 62 Top = 62
Width = 1384 Width = 1392
Height = 88 Height = 88
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -782,8 +781,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 150 Top = 150
Width = 1384 Width = 1392
Height = 568 Height = 576
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 3 TabOrder = 3
@ -1316,8 +1315,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
end end
object Panel3: TPanel object Panel3: TPanel
Left = 503 Left = 1127
Top = 203 Top = 171
Width = 231 Width = 231
Height = 216 Height = 216
TabOrder = 6 TabOrder = 6

31
打卷检验管理/U_JYOrderCDOne.pas
View File

@ -405,6 +405,7 @@ begin
sql.add('and mjtype=''´ÎÆ·'' '); sql.add('and mjtype=''´ÎÆ·'' ');
end; end;
sql.add('order by A.mainid,B.prtcolor,gangno,A.mjxh'); sql.add('order by A.mainid,B.prtcolor,gangno,A.mjxh');
Open; Open;
end; end;
SCreateCDS20(ADOQueryMain, Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
@ -558,6 +559,7 @@ begin
v1Column22.visible := False; v1Column22.visible := False;
// TCPDB.Visible:=False; // TCPDB.Visible:=False;
end; end;
ComboBox1.ItemIndex := 0
end; end;
procedure TfrmJYOrderCDOne.Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure TfrmJYOrderCDOne.Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
@ -1116,7 +1118,7 @@ end;
procedure TfrmJYOrderCDOne.PRTCodeNameChange(Sender: TObject); procedure TfrmJYOrderCDOne.PRTCodeNameChange(Sender: TObject);
begin begin
TBFind.Click; TBFind.Click;
end; end;
procedure TfrmJYOrderCDOne.ToolButton3Click(Sender: TObject); procedure TfrmJYOrderCDOne.ToolButton3Click(Sender: TObject);
@ -1158,7 +1160,7 @@ begin
Order_Main.EnableControls; Order_Main.EnableControls;
exit; exit;
end; end;
with ADOQueryPrint do with ADOQueryPrint do
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
@ -1692,6 +1694,31 @@ begin
end; end;
end; end;
if (trim(ComboBox1.Text) = '¼ìÑéÂëµ¥(ÖÐÎÄÎåÁÐ)') then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.add('exec P_Print_CKMDYDL_Chinese ');
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) = 'Âã×°Âëµ¥') then if (trim(ComboBox1.Text) = 'Âã×°Âëµ¥') then
begin begin
with ADOQueryTemp do with ADOQueryTemp do