Group_99/D7DJlianke
7
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; 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);
@ -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;