默认保管人设定为入库表最末记录值

RuKu.pas

@@ -166,11 +166,18 @@ begin
 end;
 
 procedure TForm2.FormShow(Sender: TObject);
+var
+  mrbgr: string; // 默认保管人
 begin
   DM1.FDConnection1.Connected := True;
   DM1.FDConnection1.starttransaction;
   DM1.FDQuery1.close;
   DM1.FDQuery1.Open('SELECT * FROM 入库表');
+  DM1.FDQuery1.last;
+  if (DM1.FDQuery1.FieldByName('保管人').value = null) or (DM1.FDQuery1.FieldByName('保管人').value = '') then
+    mrbgr := '付刚刚'
+  else
+    mrbgr := DM1.FDQuery1.FieldByName('保管人').value;
   DM1.FDQuery2.close;
   DM1.FDQuery2.Open('SELECT * FROM 品名表');
   try
@@ -180,7 +187,7 @@ begin
       Append;
       FieldByName('序号').value := RecordCount + 1;
       FieldByName('入库日期').value := date();
-      FieldByName('保管人').value := '付刚刚';
+      FieldByName('保管人').value := mrbgr;
       Fields[0].DisplayWidth := 4; // 这个宽度指字符数
       Fields[1].DisplayWidth := 20;
       Fields[2].DisplayWidth := 6;

WZGL.dproj

@@ -88,9 +88,9 @@
         <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
         <VerInfo_Locale>1033</VerInfo_Locale>
         <VerInfo_AutoIncVersion>true</VerInfo_AutoIncVersion>
-        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.8.7;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.8.10;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
         <VerInfo_Release>8</VerInfo_Release>
-        <VerInfo_Build>7</VerInfo_Build>
+        <VerInfo_Build>10</VerInfo_Build>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_2)'!=''">
         <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>