库存、发放提示分别导出至EXCEL（两个按钮）

TiShi.dfm

@@ -32,7 +32,7 @@ object Form6: TForm6
     Caption = #21457#25918#21040#26399#25552#31034#65306
   end
   object Button1: TButton
-    Left = 76
+    Left = 31
     Top = 343
     Width = 111
     Height = 41
@@ -41,7 +41,7 @@ object Form6: TForm6
     OnClick = Button1Click
   end
   object Button2: TButton
-    Left = 434
+    Left = 479
     Top = 343
     Width = 111
     Height = 41
@@ -80,12 +80,21 @@ object Form6: TForm6
     OnDrawDataCell = DBGrid2DrawDataCell
   end
   object Button3: TButton
-    Left = 255
+    Left = 180
     Top = 343
     Width = 111
     Height = 41
-    Caption = #23548#20986'EXCEL'
+    Caption = #23548#20986'EXCEL1'
     TabOrder = 4
     OnClick = Button3Click
   end
+  object Button4: TButton
+    Left = 329
+    Top = 343
+    Width = 111
+    Height = 41
+    Caption = #23548#20986'EXCEL2'
+    TabOrder = 5
+    OnClick = Button4Click
+  end
 end

TiShi.pas

@@ -17,6 +17,7 @@ type
     DBGrid1: TDBGrid;
     DBGrid2: TDBGrid;
     Button3: TButton;
+    Button4: TButton;
     procedure Button1Click(Sender: TObject);
     procedure Button2Click(Sender: TObject);
     procedure FormShow(Sender: TObject);
@@ -25,6 +26,7 @@ type
     procedure DBGrid2DrawDataCell(Sender: TObject; const Rect: TRect;
       Field: TField; State: TGridDrawState);
     procedure Button3Click(Sender: TObject);
+    procedure Button4Click(Sender: TObject);
 
   private
     { Private declarations }
@@ -52,7 +54,12 @@ end;
 
 procedure TForm6.Button3Click(Sender: TObject);
 begin
-  ExportDBGrid1('导出提示数据.xls',True,DBGrid1.DataSource.DataSet);
+  ExportDBGrid1('导出库存提示.xls',True,DBGrid1.DataSource.DataSet);
+end;
+
+procedure TForm6.Button4Click(Sender: TObject);
+begin
+  ExportDBGrid1('导出发放提示.xls',True,DBGrid2.DataSource.DataSet);
 end;
 
 procedure TForm6.FormShow(Sender: TObject);

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.6;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.7;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>6</VerInfo_Build>
+        <VerInfo_Build>7</VerInfo_Build>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_2)'!=''">
         <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>