发放连续输入，记住品名选择（规格、日期等待完善）

ChuKu.dfm

@@ -102,7 +102,7 @@ object Form3: TForm3
     Top = 343
     Width = 111
     Height = 41
-    Caption = #21462#28040
+    Caption = #36864#20986'/'#21462#28040
     TabOrder = 1
     OnClick = Button2Click
   end

ChuKu.pas

@@ -32,13 +32,13 @@ type
     DBEdit4: TDBEdit;
     DBEdit5: TDBEdit;
     Button3: TButton;
-    procedure Button1Click(Sender: TObject);
-    procedure Button2Click(Sender: TObject);
+    procedure Button1Click(Sender: TObject);      //确认
+    procedure Button2Click(Sender: TObject);      //取消
     procedure FormShow(Sender: TObject);
     procedure DBLookupComboBox1CloseUp(Sender: TObject);
     procedure DBLookupComboBox2CloseUp(Sender: TObject);
     procedure DBLookupComboBox3CloseUp(Sender: TObject);
-    procedure Button3Click(Sender: TObject);
+    procedure Button3Click(Sender: TObject);      //导出EXCEL
     procedure DBGrid1TitleClick(Column: TColumn);
 
   private
@@ -59,12 +59,17 @@ uses DataUnit;
 procedure TForm3.Button1Click(Sender: TObject);
 var
   i: integer;
+  selkey:integer;
 begin
   i := 0;
   if DBLookupComboBox1.text = '' then
   begin
     application.MessageBox('品名不能为空！', '系统提示', mb_ok + mb_iconinformation);
     exit;
+  end
+  else
+  begin
+    selkey:=DBLookupComboBox1.keyvalue; //记住当前选择的品名序号
   end;
   if DBEdit1.text = '' then
   begin
@@ -133,7 +138,15 @@ begin
   DM1.FDQuery5.Filter := '';
   DM1.FDQuery5.Filtered := False; // 复位人员表filter状态
   DBLookupComboBox1.KeyValue := 0; // 复位品名下拉列表初始状态
-  close;
+
+  form3.hide;    //隐藏窗口
+  form3.show;    //重新显示（以便连续输入发放数据）
+  DBLookupComboBox1.keyvalue:=selkey;  //显示上次录入品名
+  with DM1.FDQuery3 do
+    begin
+      FieldByName('品名').value := DBLookupComboBox1.text;
+    end;
+
 end;
 
 procedure TForm3.Button2Click(Sender: TObject);

DataUnit.pas

@@ -124,9 +124,9 @@ begin
   if not (Column.Field.FieldKind in [fkData,fkLookup]) then exit;
   //如果字段类型不属于物理字段或查询字段则退出
   if Column.Field.FieldKind =fkData then
-    myFieldName := UpperCase(Column.Field.FieldName)  //如为物理字段，字段名大写
+    myFieldName := UpperCase(Column.Field.FieldName)  //如为物理字段，取字段名大写
   else
-    myFieldName := UpperCase(Column.Field.KeyFields);   //如为查询字段，主键名大写
+    myFieldName := UpperCase(Column.Field.KeyFields);   //如为查询字段，取主键名大写
 
   while Pos(myFieldName,';')<>0 do   //如果名称中包含分号
     myFieldName := copy(myFieldName,1,Pos(myFieldName,';')-1)
@@ -141,7 +141,7 @@ begin
      Length(column.Title.Caption) - 2);  //如果字段名中包含上下箭头，去掉字段名前两个字符
     TitleStr := Column.Title.Caption;   //取字段标题
     SqlStr := UpperCase(Sql.Text);   //SQL语句字符串大写
-//  if pos(myFieldName,SqlStr)=0 then exit;   //如果SQL语句中不存在所选字段名，则退出
+
     if ParamCount>0 then   //如果运行过程时包含参数
       begin
         SavedParams := TParams.Create;   //创建保存参数变量

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.9.3;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
-        <VerInfo_Release>9</VerInfo_Release>
-        <VerInfo_Build>3</VerInfo_Build>
+        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.1.0.2;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+        <VerInfo_Build>2</VerInfo_Build>
+        <VerInfo_MinorVer>1</VerInfo_MinorVer>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_2)'!=''">
         <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>