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);
with frmProductOrderListSel do
begin
if ShowModal = 1 then
if ShowModal = 1 then
begin
with Self.CDS_Sub do
begin
@ -898,6 +898,8 @@ begin
FieldByName('ORDSubIdRK').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('SubId').AsString);
FieldByName('OrderNo').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderNo').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('SOrddefstr1').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('SOrddefstr1').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('ORDSubIdRK').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('SubId').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('PRTColor').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTColor').AsString);
FieldByName('PRTkuanNo').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTkuanNo').AsString);
FieldByName('PRTHX').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTHX').AsString);
FieldByName('SPName').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTCodeName').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('MPRTCode').Value:=Trim(frmProductOrderListSel1.Order_Main.fieldbyname('MPRTCode').AsString);
FieldByName('SPKZ').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTKZ').AsString);
// FieldByName('FactoryName').Value:=Trim(frmProductOrderListSel1.Order_Main.fieldbyname('ToFactoryName').AsString);
Post;
end;
end;

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

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

4
检验管理/U_GetDllForm.pas
View File

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

111
检验管理/U_JYOrderCDOne.dfm
View File

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

105
检验管理/U_JYOrderCDOne.pas
View File

@ -125,7 +125,7 @@ type
PRTHX: TEdit;
v1Column4: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
gangno: TEdit;
mjstr4: TEdit;
Label15: TLabel;
v1Column13: TcxGridDBColumn;
v1Column18: TcxGridDBColumn;
@ -167,6 +167,12 @@ type
Tv1Column3: TcxGridDBColumn;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
Panel7: TPanel;
Label20: TLabel;
ComboBox2: TComboBox;
Button3: TButton;
Button4: TButton;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
@ -208,6 +214,9 @@ type
procedure Image1Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure ToolButton7Click(Sender: TObject);
procedure SOrddefstr1KeyPress(Sender: TObject; var Key: Char);
procedure ToolButton8Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
DQdate: TDateTime;
FLeft, FTop: Integer;
@ -856,7 +865,7 @@ begin
TBFind.Click;
if Order_Main.IsEmpty = False then
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);
end;
end;
@ -1377,8 +1386,8 @@ begin
// fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\쇱駱괩멩팹繫경.rmf';
if FileExists(fPrintFile) then
begin
RM2.LoadFromFile(fPrintFile);
RM2.ShowReport;
RM1.LoadFromFile(fPrintFile);
RM1.ShowReport;
end
else
begin
@ -1390,7 +1399,7 @@ end;
procedure TfrmJYOrderCDOne.ToolButton5Click(Sender: TObject);
var
fPrintFile, fPrintFile10, FMainID: string;
fPrintFile, fPrintFile10, FMainID, sqlstr: string;
begin
if Order_Main.IsEmpty then
Exit;
@ -1417,6 +1426,7 @@ begin
sql.Add('SELECT * FROM TBSubID where 1=2 ');
open;
end;
sqlstr := '';
FMainID := '';
Order_Main.DisableControls;
try
@ -1442,10 +1452,15 @@ begin
exit;
end;
end;
ADOQueryCmd.append;
ADOQueryCmd.fieldbyname('SubId').Value := Trim(Order_Main.fieldbyname('MJID').AsString);
ADOQueryCmd.fieldbyname('Dname').Value := Trim(DCode);
ADOQueryCmd.post;
sqlstr := sqlstr + 'insert into TBSubID(SubId,Dname) ';
sqlstr := sqlstr + ' values( ';
sqlstr := sqlstr + ' ''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''', ';
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;
Next;
end;
@ -1455,6 +1470,14 @@ begin
ADOQueryCmd.Connection.RollbackTrans;
end;
Order_Main.EnableControls;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add(sqlstr);
// showmessage(sql.text);
ExecSQL;
end;
if trim(ComboBox1.Text) = '쇱駱쯤데' then
begin
with ADOQueryTemp do
@ -1479,7 +1502,7 @@ begin
sql.add(',@flag=''2'' ');
Open;
end;
// SCreateCDS20(ADOQueryTemp, CDS_PRT);
// SCreateCDS20(ADOQueryTemp, CDS_PRT);
// SInitCDSData20(ADOQueryTemp, CDS_PRT);
end;
if (trim(ComboBox1.Text) = '쇱駱쯤데(힛젬玖쯤)') or (trim(ComboBox1.Text) = '쇱駱쯤데(힛젬쵠)') or (trim(ComboBox1.Text) = '쇱駱쯤데(쵠)') then
@ -1672,5 +1695,67 @@ begin
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.

5
检验管理/U_MJManageNewFDNew.dfm
View File

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

43
检验管理/U_MJManageNewFDNew.pas
View File

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

36
检验管理/U_ProductOrderLBNameSet.dfm
View File

@ -137,16 +137,24 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
ImageIndex = 60
OnClick = ToolButton9Click
end
object ToolButton7: TToolButton
object ToolButton12: TToolButton
Left = 261
Top = 30
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
ImageIndex = 12
OnClick = ToolButton7Click
end
object ToolButton8: TToolButton
Left = 360
Left = 447
Top = 30
AutoSize = True
Caption = #39044#35272#21253#26631#31614
@ -154,7 +162,7 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
OnClick = ToolButton8Click
end
object PiZhong: TEdit
Left = 459
Left = 546
Top = 30
Width = 121
Height = 30
@ -167,7 +175,7 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
TabOrder = 0
end
object TBClose: TToolButton
Left = 580
Left = 667
Top = 30
AutoSize = True
Caption = #20851#38381
@ -421,7 +429,7 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
Align = alTop
TabOrder = 2
object Tv1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
Navigator.Buttons.CustomButtons = <>
OnCellDblClick = Tv1CellDblClick
DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -610,6 +618,24 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
Options.Focusing = False
Width = 65
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
object cxGrid1Level1: TcxGridLevel
GridView = Tv1

718
检验管理/U_ProductOrderLBNameSet.pas
View File

File diff suppressed because it is too large Load Diff