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

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

File diff suppressed because it is too large Load Diff

31
检验管理英文版/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);
@ -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;