连续出库时自动填入上次部门（班组）、领取人信息

ChuKu.pas

@@ -159,6 +159,8 @@ begin
       FieldByName('品名').value := DBLookupComboBox1.text;
       FieldByName('规格').value := DM1.FDQuery2.FieldByName('规格').value;
       //FieldByName('出库日期').value := date();
+      FieldByName('所在部门（班组）').value := DBLookupComboBox3.text;
+      FieldByName('领取人').value := DBLookupComboBox2.text;
       FieldByName('使用周期（天）').value := DM1.FDQuery2.FieldByName('使用周期（天）').value;
     end;
 
@@ -218,7 +220,7 @@ begin
   DM1.FDQuery5.Filter := '所在部门（班组）=' + QuotedStr(keycode);
   DM1.FDQuery5.Filtered := True;
 
-  // 清除城市下拉框已选的值
+  // 清除领取人下拉框已选值
   DBLookupComboBox2.KeyValue := 0;
 end;
 

WZGL.dproj

@@ -88,8 +88,8 @@
         <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
         <VerInfo_Locale>1033</VerInfo_Locale>
         <VerInfo_AutoIncVersion>true</VerInfo_AutoIncVersion>
-        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.1.0.5;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
-        <VerInfo_Build>5</VerInfo_Build>
+        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.1.0.6;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+        <VerInfo_Build>6</VerInfo_Build>
         <VerInfo_MinorVer>1</VerInfo_MinorVer>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_2)'!=''">