Group_99/D7DJlianke
6
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-10-25 17:26:45 +08:00
parent 62c84bc64d
commit ae5ee60abc
3 changed files with 333 additions and 182 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
检验管理英文版/U_GetDllForm.pas
View File

@ -61,7 +61,7 @@ begin
IsDelphiLanguage := Language; IsDelphiLanguage := Language;
Application := TApplication(App); Application := TApplication(App);
DCurHandle := 0; DCurHandle := 0;
//¸³ÖµÁ´½Ó×Ö·û´® //¸³ÖµÁ´½Ó×Ö·û´®

476
检验管理英文版/U_MJManageNewFDNew.dfm
View File

File diff suppressed because it is too large Load Diff

37
检验管理英文版/U_MJManageNewFDNew.pas
View File

@ -268,7 +268,6 @@ type
Label58: TLabel; Label58: TLabel;
Label59: TLabel; Label59: TLabel;
Label60: TLabel; Label60: TLabel;
KH: TBtnEditA;
PM: TBtnEditA; PM: TBtnEditA;
YS: TBtnEditA; YS: TBtnEditA;
HX: TBtnEditA; HX: TBtnEditA;
@ -281,6 +280,14 @@ type
Button13: TButton; Button13: TButton;
Label61: TLabel; Label61: TLabel;
Edit13: TEdit; Edit13: TEdit;
Label54: TLabel;
dingdanhao: TEdit;
KH: TEdit;
Loom: TEdit;
Label56: TLabel;
shift: TEdit;
Label62: TLabel;
Radio_type: TRadioGroup;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -1091,7 +1098,7 @@ begin
begin begin
FieldByName('MJFK').Value := MJFK.Text; FieldByName('MJFK').Value := MJFK.Text;
end; end;
if Trim(MJMaoZ.Text) <> '' then if Trim(MJMaoZ.Text) <> '' then
begin begin
FieldByName('MJMaoZ').Value := StrToFloat(MJMaoZ.Text) + fjz; FieldByName('MJMaoZ').Value := StrToFloat(MJMaoZ.Text) + fjz;
end; end;
@ -1100,14 +1107,16 @@ begin
FieldByName('MJSJKZ').Value := MJSJKZ.Text; FieldByName('MJSJKZ').Value := MJSJKZ.Text;
end; end;
FieldByName('MJType').Value := ''; FieldByName('MJType').Value := '';
if Trim(Edit3.Text) <> '' then // if Trim(Edit3.Text) <> '' then
begin // begin
FieldByName('MJType').Value := 'ÕýÆ·'; // FieldByName('MJType').Value := 'ÕýÆ·';
end; // end;
if Trim(Edit4.Text) <> '' then // if Trim(Edit4.Text) <> '' then
begin // begin
FieldByName('MJType').Value := '´ÎÆ·'; // FieldByName('MJType').Value := '´ÎÆ·';
end; // end;
FieldByName('MJType').Value := Trim(Radio_type.Items.Strings[Radio_type.ItemIndex]);
FieldByName('MJStr1').Value := Trim(Label13.Caption); FieldByName('MJStr1').Value := Trim(Label13.Caption);
if Trim(FMJID) = '' then if Trim(FMJID) = '' then
@ -1774,9 +1783,9 @@ begin
Label16.Caption := ''; Label16.Caption := '';
BTAdd.Click; BTAdd.Click;
MJLen.SetFocus; MJMaoZ.SetFocus;
// MJQty4.OnClick(MJQty4); // MJQty4.OnClick(MJQty4);
MJLen.OnClick(Mjlen); MJMaoZ.OnClick(MJMaoZ);
end; end;
@ -2473,7 +2482,7 @@ begin
begin begin
fRollType := trim(ADOTmp.fieldbyname('Orddefstr15').AsString); fRollType := trim(ADOTmp.fieldbyname('Orddefstr15').AsString);
end; end;
Label24.Visible := True; Label24.Visible := True;
Label24.Caption := 'Order NO.:' + Trim(ADOTmp.fieldbyname('OrderNoM').AsString); Label24.Caption := 'Order NO.:' + Trim(ADOTmp.fieldbyname('OrderNoM').AsString);
Label38.Visible := True; Label38.Visible := True;
@ -2489,7 +2498,7 @@ begin
end; end;
PM.Text := Trim(ADOTmp.fieldbyname('PRTCodeName').AsString); PM.Text := Trim(ADOTmp.fieldbyname('PRTCodeName').AsString);
KH.Text := Trim(ADOTmp.fieldbyname('CustomerNoName').AsString); KH.Text := Trim(ADOTmp.fieldbyname('CustomerNoName').AsString);
YS.Text := Trim(ADOTmp.fieldbyname('PRTColor').AsString); YS.Text := Trim(ADOTmp.fieldbyname('PRTColor').AsString);
HX.Text := Trim(ADOTmp.fieldbyname('PRTHX').AsString); HX.Text := Trim(ADOTmp.fieldbyname('PRTHX').AsString);
SH.Text := Trim(ADOTmp.fieldbyname('SOrddefstr1').AsString); SH.Text := Trim(ADOTmp.fieldbyname('SOrddefstr1').AsString);
FAPID := Trim(ADOTmp.fieldbyname('SubId').AsString); FAPID := Trim(ADOTmp.fieldbyname('SubId').AsString);