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