Group_01/D7DJchuanghui
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-10 16:43:42 +08:00
parent d60d2e3545
commit 8d6b90b127
10 changed files with 657 additions and 380 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.pas
View File

@ -889,7 +889,7 @@ begin
frmProductOrderListSel := TfrmProductOrderListSel.Create(Application); frmProductOrderListSel := TfrmProductOrderListSel.Create(Application);
with frmProductOrderListSel do with frmProductOrderListSel do
begin begin
if ShowModal = 1 then if ShowModal = 1 then
begin begin
with Self.CDS_Sub do with Self.CDS_Sub do
begin begin
@ -898,6 +898,8 @@ begin
FieldByName('ORDSubIdRK').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('SubId').AsString); FieldByName('ORDSubIdRK').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('SubId').AsString);
FieldByName('OrderNo').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderNo').AsString); FieldByName('OrderNo').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderNo').AsString);
FieldByName('PiQty').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTddps').AsString); FieldByName('PiQty').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTddps').AsString);
FieldByName('Qty').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTOrderQty').AsString);
FieldByName('QtyUnit').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('OrderUnit').AsString);
FieldByName('RCGangNo').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTrcgh').AsString); FieldByName('RCGangNo').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTrcgh').AsString);
FieldByName('SOrddefstr1').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('SOrddefstr1').AsString); FieldByName('SOrddefstr1').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('SOrddefstr1').AsString);
FieldByName('PRTColor').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTColor').AsString); FieldByName('PRTColor').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTColor').AsString);
@ -963,17 +965,19 @@ begin
FieldByName('ORDMainIdRK').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('MainId').AsString); FieldByName('ORDMainIdRK').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('MainId').AsString);
FieldByName('ORDSubIdRK').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('SubId').AsString); FieldByName('ORDSubIdRK').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('SubId').AsString);
FieldByName('OrderNo').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('OrderNo').AsString); FieldByName('OrderNo').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('OrderNo').AsString);
FieldByName('PiQty').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTddps').AsString);
FieldByName('Qty').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTOrderQty').AsString);
FieldByName('QtyUnit').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('OrderUnit').AsString);
FieldByName('RCGangNo').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTrcgh').AsString);
FieldByName('SOrddefstr1').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('SOrddefstr1').AsString); FieldByName('SOrddefstr1').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('SOrddefstr1').AsString);
FieldByName('PRTColor').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTColor').AsString); FieldByName('PRTColor').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTColor').AsString);
FieldByName('PRTkuanNo').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTkuanNo').AsString); FieldByName('PRTkuanNo').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTkuanNo').AsString);
FieldByName('PRTHX').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTHX').AsString); FieldByName('PRTHX').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTHX').AsString);
FieldByName('SPName').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTCodeName').AsString); FieldByName('SPName').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTCodeName').AsString);
FieldByName('SPSpec').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTSpec').AsString); FieldByName('SPSpec').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTSpec').AsString);
// FieldByName('SPCF').Value:=Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTCF').AsString);
FieldByName('SPMF').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTMF').AsString); FieldByName('SPMF').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTMF').AsString);
// FieldByName('MPRTCode').Value:=Trim(frmProductOrderListSel1.Order_Main.fieldbyname('MPRTCode').AsString);
FieldByName('SPKZ').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTKZ').AsString); FieldByName('SPKZ').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTKZ').AsString);
// FieldByName('FactoryName').Value:=Trim(frmProductOrderListSel1.Order_Main.fieldbyname('ToFactoryName').AsString);
Post; Post;
end; end;
end; end;

2
坯布码单待检(PBMDDJ.dll)/U_DJBRKList.pas
View File

@ -325,7 +325,7 @@ begin
if ShowModal=1 then if ShowModal=1 then
begin begin
Self.InitGrid(); Self.InitGrid();
end; end;
end; end;
finally finally
frmDJBCKInPut.Free; frmDJBCKInPut.Free;

4
检验管理/U_GetDllForm.pas
View File

@ -66,7 +66,7 @@ begin
//赋值链接字符串 //赋值链接字符串
SetLength(server, 255); SetLength(server, 255);
SetLength(dtbase, 255); SetLength(dtbase, 255);
SetLength(user, 255); SetLength(user, 255);
SetLength(pswd, 255); SetLength(pswd, 255);
@ -85,7 +85,7 @@ begin
// DParameters2 := '管理'; // DParameters2 := '管理';
if not ConnData() then if not ConnData() then
begin begin
result := 0; result := 0;
exit; exit;
end; end;
if IsINIFile() then if IsINIFile() then

111
检验管理/U_JYOrderCDOne.dfm
View File

@ -55,16 +55,24 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
ImageIndex = 59 ImageIndex = 59
OnClick = TBFindClick OnClick = TBFindClick
end end
object TBExport: TToolButton object ToolButton8: TToolButton
Left = 126 Left = 126
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26029#21495#26597#35810
ImageIndex = 21
OnClick = ToolButton8Click
end
object TBExport: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 75 ImageIndex = 75
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBZF: TToolButton object TBZF: TToolButton
Left = 189 Left = 276
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20316#24223 Caption = #20316#24223
@ -73,7 +81,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = TBZFClick OnClick = TBZFClick
end end
object TBManage: TToolButton object TBManage: TToolButton
Left = 252 Left = 339
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #32534#36753 Caption = #32534#36753
@ -82,7 +90,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = TBManageClick OnClick = TBManageClick
end end
object TBDW: TToolButton object TBDW: TToolButton
Left = 315 Left = 402
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20462#25913#25968#37327#21333#20301 Caption = #20462#25913#25968#37327#21333#20301
@ -90,32 +98,32 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = TBDWClick OnClick = TBDWClick
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 426 Left = 513
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25209#37327#35843#25972#31859#25968 Caption = #25209#37327#35843#25972#31859#25968
ImageIndex = 54 ImageIndex = 54
Wrap = True
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object ToolButton6: TToolButton object ToolButton6: TToolButton
Left = 0 Left = 624
Top = 30 Top = 0
AutoSize = True AutoSize = True
Caption = #20986#24211 Caption = #20986#24211
ImageIndex = 16 ImageIndex = 16
OnClick = ToolButton6Click OnClick = ToolButton6Click
end end
object ToolButton7: TToolButton object ToolButton7: TToolButton
Left = 63 Left = 687
Top = 30 Top = 0
AutoSize = True AutoSize = True
Caption = #25764#38144#20986#24211 Caption = #25764#38144#20986#24211
ImageIndex = 86 ImageIndex = 86
Wrap = True
OnClick = ToolButton7Click OnClick = ToolButton7Click
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 150 Left = 0
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360#26631#31614 Caption = #25171#21360#26631#31614
@ -124,7 +132,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TCPDB: TToolButton object TCPDB: TToolButton
Left = 237 Left = 87
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #25104#21697#25171#21253 Caption = #25104#21697#25171#21253
@ -133,7 +141,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = TCPDBClick OnClick = TCPDBClick
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 324 Left = 174
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360#21253#26631#31614 Caption = #25171#21360#21253#26631#31614
@ -142,7 +150,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 423 Left = 273
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360#26816#39564#25253#21578 Caption = #25171#21360#26816#39564#25253#21578
@ -150,7 +158,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 534 Left = 384
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360 Caption = #25171#21360
@ -158,7 +166,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object ComboBox1: TComboBox object ComboBox1: TComboBox
Left = 597 Left = 447
Top = 33 Top = 33
Width = 149 Width = 149
Height = 24 Height = 24
@ -181,7 +189,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
#26816#39564#30721#21333'('#19977#32852#31859')') #26816#39564#30721#21333'('#19977#32852#31859')')
end end
object TBAftChkHX: TToolButton object TBAftChkHX: TToolButton
Left = 746 Left = 596
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #26816#21518#22238#20462 Caption = #26816#21518#22238#20462
@ -190,7 +198,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = TBAftChkHXClick OnClick = TBAftChkHXClick
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 833 Left = 683
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -585,6 +593,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Height = 20 Height = 20
TabOrder = 7 TabOrder = 7
OnChange = CustomerNoNameChange OnChange = CustomerNoNameChange
OnKeyPress = SOrddefstr1KeyPress
end end
object PRTHX: TEdit object PRTHX: TEdit
Tag = 2 Tag = 2
@ -594,8 +603,9 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Height = 20 Height = 20
TabOrder = 15 TabOrder = 15
OnChange = CustomerNoNameChange OnChange = CustomerNoNameChange
OnKeyPress = SOrddefstr1KeyPress
end end
object gangno: TEdit object mjstr4: TEdit
Tag = 2 Tag = 2
Left = 1062 Left = 1062
Top = 11 Top = 11
@ -603,6 +613,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Height = 20 Height = 20
TabOrder = 8 TabOrder = 8
OnChange = CustomerNoNameChange OnChange = CustomerNoNameChange
OnKeyPress = SOrddefstr1KeyPress
end end
object PRTkuanNo: TEdit object PRTkuanNo: TEdit
Tag = 2 Tag = 2
@ -612,6 +623,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Height = 20 Height = 20
TabOrder = 16 TabOrder = 16
OnChange = CustomerNoNameChange OnChange = CustomerNoNameChange
OnKeyPress = SOrddefstr1KeyPress
end end
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
@ -878,7 +890,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
object v1Column4: TcxGridDBColumn object v1Column4: TcxGridDBColumn
Caption = #32568#21495 Caption = #32568#21495
DataBinding.FieldName = 'gangno' DataBinding.FieldName = 'mjstr4'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 60 Width = 60
@ -1251,14 +1263,61 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Height = 145 Height = 145
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
#39034#40511#39564#25253 #21019#27719#39564#25253
#37329#31077#24800 #21019#27719#21253#35013#39564#25253
#37329#38745#25253#21578#10
#39034#40511#21253#35013#39564#25253
#25104#21697#26816#39564#25253#21578) #25104#21697#26816#39564#25253#21578)
TabOrder = 1 TabOrder = 1
end end
end end
object Panel7: TPanel
Left = 376
Top = 444
Width = 505
Height = 101
Color = clSkyBlue
TabOrder = 8
Visible = False
object Label20: TLabel
Left = 8
Top = 20
Width = 36
Height = 12
Caption = #32570#21495#65306
end
object ComboBox2: TComboBox
Left = -12
Top = 72
Width = 145
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 0
Visible = False
Items.Strings = (
''
'M'
'Y')
end
object Button3: TButton
Left = -8
Top = 72
Width = 60
Height = 25
Caption = #30830#23450
TabOrder = 1
Visible = False
OnClick = Button5Click
end
object Button4: TButton
Left = 428
Top = 64
Width = 60
Height = 25
Caption = #20851#38381
TabOrder = 2
OnClick = Button4Click
end
end
object cxGridPopupMenu1: TcxGridPopupMenu object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1 Grid = cxGrid1
PopupMenus = <> PopupMenus = <>
@ -1333,8 +1392,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
CompressThread = False CompressThread = False
LaterBuildEvents = True LaterBuildEvents = True
OnlyOwnerDataSet = False OnlyOwnerDataSet = False
Left = 424 Left = 400
Top = 256 Top = 328
ReportData = {} ReportData = {}
end end
object RMDB_Main: TRMDBDataSet object RMDB_Main: TRMDBDataSet

105
检验管理/U_JYOrderCDOne.pas
View File

@ -125,7 +125,7 @@ type
PRTHX: TEdit; PRTHX: TEdit;
v1Column4: TcxGridDBColumn; v1Column4: TcxGridDBColumn;
v1Column5: TcxGridDBColumn; v1Column5: TcxGridDBColumn;
gangno: TEdit; mjstr4: TEdit;
Label15: TLabel; Label15: TLabel;
v1Column13: TcxGridDBColumn; v1Column13: TcxGridDBColumn;
v1Column18: TcxGridDBColumn; v1Column18: TcxGridDBColumn;
@ -167,6 +167,12 @@ type
Tv1Column3: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn;
ToolButton6: TToolButton; ToolButton6: TToolButton;
ToolButton7: TToolButton; ToolButton7: TToolButton;
ToolButton8: TToolButton;
Panel7: TPanel;
Label20: TLabel;
ComboBox2: TComboBox;
Button3: TButton;
Button4: TButton;
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);
@ -208,6 +214,9 @@ type
procedure Image1Click(Sender: TObject); procedure Image1Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject); procedure ToolButton6Click(Sender: TObject);
procedure ToolButton7Click(Sender: TObject); procedure ToolButton7Click(Sender: TObject);
procedure SOrddefstr1KeyPress(Sender: TObject; var Key: Char);
procedure ToolButton8Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private private
DQdate: TDateTime; DQdate: TDateTime;
FLeft, FTop: Integer; FLeft, FTop: Integer;
@ -856,7 +865,7 @@ begin
TBFind.Click; TBFind.Click;
if Order_Main.IsEmpty = False then if Order_Main.IsEmpty = False then
begin begin
//InitOrderColor(Trim(Order_Main.fieldbyname('MainId').AsString),PRTColor,ADOQueryTemp); InitOrderColor(Trim(Order_Main.fieldbyname('MainId').AsString), PRTColor, ADOQueryTemp);
//InitBCGangNo(Trim(Order_Main.fieldbyname('SubId').AsString),AOrdDefStr1,ADOQueryTemp); //InitBCGangNo(Trim(Order_Main.fieldbyname('SubId').AsString),AOrdDefStr1,ADOQueryTemp);
end; end;
end; end;
@ -1377,8 +1386,8 @@ begin
// fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\쇱駱괩멩팹繫경.rmf'; // fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\쇱駱괩멩팹繫경.rmf';
if FileExists(fPrintFile) then if FileExists(fPrintFile) then
begin begin
RM2.LoadFromFile(fPrintFile); RM1.LoadFromFile(fPrintFile);
RM2.ShowReport; RM1.ShowReport;
end end
else else
begin begin
@ -1390,7 +1399,7 @@ end;
procedure TfrmJYOrderCDOne.ToolButton5Click(Sender: TObject); procedure TfrmJYOrderCDOne.ToolButton5Click(Sender: TObject);
var var
fPrintFile, fPrintFile10, FMainID: string; fPrintFile, fPrintFile10, FMainID, sqlstr: string;
begin begin
if Order_Main.IsEmpty then if Order_Main.IsEmpty then
Exit; Exit;
@ -1417,6 +1426,7 @@ begin
sql.Add('SELECT * FROM TBSubID where 1=2 '); sql.Add('SELECT * FROM TBSubID where 1=2 ');
open; open;
end; end;
sqlstr := '';
FMainID := ''; FMainID := '';
Order_Main.DisableControls; Order_Main.DisableControls;
try try
@ -1442,10 +1452,15 @@ begin
exit; exit;
end; end;
end; end;
ADOQueryCmd.append; sqlstr := sqlstr + 'insert into TBSubID(SubId,Dname) ';
ADOQueryCmd.fieldbyname('SubId').Value := Trim(Order_Main.fieldbyname('MJID').AsString); sqlstr := sqlstr + ' values( ';
ADOQueryCmd.fieldbyname('Dname').Value := Trim(DCode); sqlstr := sqlstr + ' ''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''', ';
ADOQueryCmd.post; sqlstr := sqlstr + ' ''' + Trim(DCode) + ''' ';
sqlstr := sqlstr + ' ) ';
// ADOQueryCmd.append;
// ADOQueryCmd.fieldbyname('SubId').Value := Trim(Order_Main.fieldbyname('MJID').AsString);
// ADOQueryCmd.fieldbyname('Dname').Value := Trim(DCode);
// ADOQueryCmd.post;
end; end;
Next; Next;
end; end;
@ -1455,6 +1470,14 @@ begin
ADOQueryCmd.Connection.RollbackTrans; ADOQueryCmd.Connection.RollbackTrans;
end; end;
Order_Main.EnableControls; Order_Main.EnableControls;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add(sqlstr);
// showmessage(sql.text);
ExecSQL;
end;
if trim(ComboBox1.Text) = '쇱駱쯤데' then if trim(ComboBox1.Text) = '쇱駱쯤데' then
begin begin
with ADOQueryTemp do with ADOQueryTemp do
@ -1479,7 +1502,7 @@ begin
sql.add(',@flag=''2'' '); sql.add(',@flag=''2'' ');
Open; Open;
end; end;
// SCreateCDS20(ADOQueryTemp, CDS_PRT); // SCreateCDS20(ADOQueryTemp, CDS_PRT);
// SInitCDSData20(ADOQueryTemp, CDS_PRT); // SInitCDSData20(ADOQueryTemp, CDS_PRT);
end; end;
if (trim(ComboBox1.Text) = '쇱駱쯤데(힛젬玖쯤)') or (trim(ComboBox1.Text) = '쇱駱쯤데(힛젬쵠)') or (trim(ComboBox1.Text) = '쇱駱쯤데(쵠)') then if (trim(ComboBox1.Text) = '쇱駱쯤데(힛젬玖쯤)') or (trim(ComboBox1.Text) = '쇱駱쯤데(힛젬쵠)') or (trim(ComboBox1.Text) = '쇱駱쯤데(쵠)') then
@ -1672,5 +1695,67 @@ begin
end; end;
procedure TfrmJYOrderCDOne.SOrddefstr1KeyPress(Sender: TObject; var Key: Char);
var
fsj, FCXZD: string;
begin
if Key = #13 then
begin
fsj := Trim(TEdit(Sender).text);
FCXZD := Trim(TEdit(Sender).name);
if Length(fsj) < 2 then
Exit;
MovePanel2.Visible := True;
MovePanel2.Refresh;
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
Filtered := False;
sql.Clear;
sql.Add('select A.*,');
sql.Add('C.OrderNo,C.MPRTCodeName,C.MPRTMF,C.MPRTKZ,C.CustomerNoName,B.*,');
sql.Add('KouFenQty=(select Sum(X.KouFenQty) from WFB_MJJY_CD X where X.MJID=A.MJID),');
sql.Add('CDQty=(select count(X.MJID) from WFB_MJJY_CD X where X.MJID=A.MJID)');
SQL.Add('from WFB_MJJY A');
sql.Add('inner join JYOrder_sub B on B.subID=A.subID ');
sql.Add('inner join JYOrder_Main C on C.MainID=A.MainID ');
sql.Add('where ' + FCXZD + '=' + quotedstr(trim(fsj)));
// ShowMessage(SQL.text);
Open;
end;
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
finally
ADOQueryMain.EnableControls;
end;
MovePanel2.Visible := False;
// JSbaoNum();
end;
end;
procedure TfrmJYOrderCDOne.ToolButton8Click(Sender: TObject);
begin
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add('exec P_JYorder_Cxdh ');
sql.add('@mainID=' + quotedstr(Trim(Order_Main.fieldbyname('MainId').AsString)));
// ShowMessage(SQL.text);
Open;
end;
Panel7.Visible := True;
Label20.Caption := 'ȱºÅ:' + ADOQueryTemp.fieldbyname('MJxh').AsString;
end;
procedure TfrmJYOrderCDOne.Button4Click(Sender: TObject);
begin
Panel7.Visible := false;
end;
end. end.

5
检验管理/U_MJManageNewFDNew.dfm
View File

@ -1,6 +1,6 @@
object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 223 Left = 477
Top = 122 Top = 290
Width = 1265 Width = 1265
Height = 738 Height = 738
Caption = #25104#21697#26816#39564 Caption = #25104#21697#26816#39564
@ -2267,7 +2267,6 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
AutoSize = True AutoSize = True
Caption = #20462#25913 Caption = #20462#25913
ImageIndex = 54 ImageIndex = 54
Visible = False
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object TBClose: TToolButton object TBClose: TToolButton

43
检验管理/U_MJManageNewFDNew.pas
View File

@ -337,7 +337,7 @@ type
{ Private declarations } { Private declarations }
FInt, PState, PrintInt, SCInitGrid, FState, FCK, FJYP: Integer; FInt, PState, PrintInt, SCInitGrid, FState, FCK, FJYP: Integer;
FColumn, FBanZu, FAPID, FMainId, FSubId, FFFMJID: string; FColumn, FBanZu, FAPID, FMainId, FSubId, FFFMJID: string;
FJZ, FJC: Double; FJZ, FJC, Fmachi: Double;
fRollType, fRollType1: string; fRollType, fRollType1: string;
isCommopen, IsJsMessage: boolean; isCommopen, IsJsMessage: boolean;
MValue, FCDName: string; MValue, FCDName: string;
@ -394,7 +394,7 @@ begin
// Label9.Caption := 'Y'; // Label9.Caption := 'Y';
end; end;
edit1.Text := format('%.' + trim(fxsws) + 'f', [i1 / 100000]); // edit1.Text := format('%.' + trim(fxsws) + 'f', [i1 / 100000]);
end; end;
end; end;
@ -689,10 +689,16 @@ begin
OpenCom(DllName); OpenCom(DllName);
if trim(JCYDLL) <> '' then if trim(JCYDLL) <> '' then
OpenCom(JCYDLL); OpenCom(JCYDLL);
Edit7.Visible := true; Edit7.Visible := true;
Label35.Visible := true; Label35.Visible := true;
Edit9.Visible := true; Edit9.Visible := true;
Label44.Visible := true; Label44.Visible := true;
end;
if Trim(DParameters1) = '高权限' then
begin
ToolButton2.Visible := true;
// showmessage('此界面为高权限!');
end; end;
end; end;
@ -1049,8 +1055,17 @@ begin
FieldByName('mjxh').Value := Trim(mjxh.Text); FieldByName('mjxh').Value := Trim(mjxh.Text);
FieldByName('MJTypeOther').Value := Trim(Label9.Caption); FieldByName('MJTypeOther').Value := Trim(Label9.Caption);
FieldByName('MJStr1').Value := Trim(Label13.Caption); FieldByName('MJStr1').Value := Trim(Label13.Caption);
if Fmachi > 1 then
begin
FieldByName('MJLen').Value := format('%.' + trim(fxsws) + 'f', [StrToFloatdef(trim(MJLen.Text), 0) / (Fmachi / 100) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc]);
end
else
begin
FieldByName('MJLen').Value := StrToFloatdef(trim(MJLen.Text), 0) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc;
end;
FieldByName('MJLen').Value := StrToFloatdef(trim(MJLen.Text), 0) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc;
FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0); FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0);
FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0); FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0);
FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0); FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0);
@ -1531,7 +1546,7 @@ begin
// RM2.DefaultCopies := strtointdef(trim(ComboBox1.Text), 1); // RM2.DefaultCopies := strtointdef(trim(ComboBox1.Text), 1);
// // RM2.ShowReport; // // RM2.ShowReport;
// RM2.PrintReport; // RM2.PrintReport;
if Edit5.Text <> '' then if Edit5.Text <> '' then
begin begin
RM3.LoadFromFile(fPrintFile); RM3.LoadFromFile(fPrintFile);
RM3.DefaultCopies := strtointdef(trim(ComboBox1.Text), 1); RM3.DefaultCopies := strtointdef(trim(ComboBox1.Text), 1);
@ -1736,6 +1751,8 @@ begin
Label21.Caption := Trim(FCDName); Label21.Caption := Trim(FCDName);
FInt := 11; FInt := 11;
Edit1.SetFocus; Edit1.SetFocus;
// edit1.Text := format('%.' + trim(fxsws) + 'f', [i1 / 100000]);
edit1.Text := trim(MJLen.Text);
//CDQty.SetFocus; //CDQty.SetFocus;
Panel3.Visible := True; Panel3.Visible := True;
PState := 1; PState := 1;
@ -1779,12 +1796,13 @@ end;
procedure TfrmMJManageNewFDNewSF.Button1Click(Sender: TObject); procedure TfrmMJManageNewFDNewSF.Button1Click(Sender: TObject);
var var
mvalue: Double; mvalue: Double;
begin begin
{ if Trim(Edit1.Text)='' then { if Trim(Edit1.Text)='' then
begin begin
Application.MessageBox('位置不能为空！','提示',0); Application.MessageBox('位置不能为空！','提示',0);
exit; exit;
end; } end; }
edit2.Text := trim(MJLen.Text);
if Trim(Edit1.Text) <> '' then if Trim(Edit1.Text) <> '' then
begin begin
if Trim(Edit2.Text) <> '' then if Trim(Edit2.Text) <> '' then
@ -2239,6 +2257,7 @@ begin
FSubId := Trim(ADOTmp.fieldbyname('SubId').AsString); FSubId := Trim(ADOTmp.fieldbyname('SubId').AsString);
FJZ := ADOTmp.fieldbyname('jiazhong').AsFloat; FJZ := ADOTmp.fieldbyname('jiazhong').AsFloat;
FJC := ADOTmp.fieldbyname('jiachang').AsFloat; FJC := ADOTmp.fieldbyname('jiachang').AsFloat;
Fmachi := ADOTmp.fieldbyname('machi').asfloat;
FJYP := StrToIntdef(ADOTmp.fieldbyname('jypiqty').asstring, 0); FJYP := StrToIntdef(ADOTmp.fieldbyname('jypiqty').asstring, 0);
AOrdDefNote1.Text := '包装要求:' + #13 + Trim(ADOTmp.fieldbyname('MPRTBZNote').AsString) + #13 //+'封条:'+Trim(ADOTmp.fieldbyname('MPRTYaoFeng').AsString)+#13 AOrdDefNote1.Text := '包装要求:' + #13 + Trim(ADOTmp.fieldbyname('MPRTBZNote').AsString) + #13 //+'封条:'+Trim(ADOTmp.fieldbyname('MPRTYaoFeng').AsString)+#13
//+'烫金:'+Trim(ADOTmp.fieldbyname('MPRTTangJin').AsString)+#13 //+'烫金:'+Trim(ADOTmp.fieldbyname('MPRTTangJin').AsString)+#13
@ -2492,6 +2511,18 @@ end;
procedure TfrmMJManageNewFDNewSF.ToolButton2Click(Sender: TObject); procedure TfrmMJManageNewFDNewSF.ToolButton2Click(Sender: TObject);
begin begin
with ADOTmp do
begin
Close;
sql.Clear;
SQL.Add('select * from SY_PurView where ModuleId=''02'' and ModuleSubId =''98'' and UserID=''' + Trim(dname) + ''' ');
Open;
end;
if ADOTmp.IsEmpty then
begin
Application.MessageBox('此为高权限功能!', '提示', 0);
Exit;
end;
if CDS_MJID.IsEmpty then if CDS_MJID.IsEmpty then
exit; exit;
if CDS_MJCD.IsEmpty = False then if CDS_MJCD.IsEmpty = False then

1
检验管理/U_OrderInPut.pas
View File

@ -611,6 +611,7 @@ begin
fieldbyname('SordQty1').Value := Order_Sub.fieldbyname('SordQty1').AsFloat; fieldbyname('SordQty1').Value := Order_Sub.fieldbyname('SordQty1').AsFloat;
fieldbyname('SordQty2').Value := Order_Sub.fieldbyname('SordQty2').AsFloat; fieldbyname('SordQty2').Value := Order_Sub.fieldbyname('SordQty2').AsFloat;
fieldbyname('SordQty3').Value := Order_Sub.fieldbyname('SordQty3').AsFloat; fieldbyname('SordQty3').Value := Order_Sub.fieldbyname('SordQty3').AsFloat;
FieldByName('PRTColor').Value := trim(Order_Sub.FieldByName('PRTColor').AsString);
FieldByName('Sorddefstr10').Value := Order_Sub.FieldByName('Sorddefstr10').AsString; FieldByName('Sorddefstr10').Value := Order_Sub.FieldByName('Sorddefstr10').AsString;
FieldByName('khOrderNO').Value := trim(Order_Sub.FieldByName('khOrderNO').AsString); FieldByName('khOrderNO').Value := trim(Order_Sub.FieldByName('khOrderNO').AsString);
FieldByName('SLBName').Value := ExtractFileName(trim(SLBName.Text)); FieldByName('SLBName').Value := ExtractFileName(trim(SLBName.Text));

36
检验管理/U_ProductOrderLBNameSet.dfm
View File

@ -137,16 +137,24 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
ImageIndex = 60 ImageIndex = 60
OnClick = ToolButton9Click OnClick = ToolButton9Click
end end
object ToolButton7: TToolButton object ToolButton12: TToolButton
Left = 261 Left = 261
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #30721#23610#35774#32622
ImageIndex = 60
OnClick = ToolButton12Click
end
object ToolButton7: TToolButton
Left = 348
Top = 30
AutoSize = True
Caption = #39044#35272#21367#26631#31614 Caption = #39044#35272#21367#26631#31614
ImageIndex = 12 ImageIndex = 12
OnClick = ToolButton7Click OnClick = ToolButton7Click
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 360 Left = 447
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #39044#35272#21253#26631#31614 Caption = #39044#35272#21253#26631#31614
@ -154,7 +162,7 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
OnClick = ToolButton8Click OnClick = ToolButton8Click
end end
object PiZhong: TEdit object PiZhong: TEdit
Left = 459 Left = 546
Top = 30 Top = 30
Width = 121 Width = 121
Height = 30 Height = 30
@ -167,7 +175,7 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
TabOrder = 0 TabOrder = 0
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 580 Left = 667
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -421,7 +429,7 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
OnCellDblClick = Tv1CellDblClick OnCellDblClick = Tv1CellDblClick
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -610,6 +618,24 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
Options.Focusing = False Options.Focusing = False
Width = 65 Width = 65
end end
object Tv1Column1: TcxGridDBColumn
Caption = #30721#23610
DataBinding.FieldName = 'machi'
HeaderAlignmentHorz = taCenter
Width = 60
end
object Tv1Column2: TcxGridDBColumn
Caption = #26579#21378#32568#21495
DataBinding.FieldName = 'PRTrcgh'
HeaderAlignmentHorz = taCenter
Width = 60
end
object Tv1Column3: TcxGridDBColumn
Caption = #27454#21495
DataBinding.FieldName = 'PRTKuanNo'
HeaderAlignmentHorz = taCenter
Width = 60
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

718
检验管理/U_ProductOrderLBNameSet.pas
View File

File diff suppressed because it is too large Load Diff