分享Delphi处理EXCEL源码，源码如下：
(****************************************************************************************)
var
FExcelApp:Variant; // Excel App FCellRange:Variant; // Excel Range FPicture:Variant; // pictures FCellNo:string; // Cell Strings g_strHeaderSQL: string; // Special Header Dataset SQL g_strDetailSQL: string; // Special Detail Dataset SQL g_TemplateFile: string; // Special Filename g_iCopies:integer; // Special PrintCopies
g_strDefaultPath:string = ‘D:\\测试\\‘; // Default Path g_strSpecialFile:string = ‘MARK & SPENCER UK WORD.XLS‘; // Special File Name (****************************************************************************************)
procedure TNewLabdipQuery.btnPrintSampleCardClick(Sender: TObject);var i,j:integer; TemplateFile,tTemplateFile,iniTemplateFile: string; grid_Color_Code, grid_Customer, grid_Submit:string; // *色号 *客户名 *Shape iCopies:Integer; // *打印份数 iSheetCount:Integer; // *工作表数量 bNeedmultiSheet:Boolean; // *是否需要处理多个文档 bOpenLabDataSource:Boolean; // *是否成功打开数据源 ibSpecialCount: Integer; // *特殊色号数量 bSpecial:Boolean; (* *标识某些需要特殊处理的客户: 把这些客户的数据保存到一个Dataset， 最后再处理，主要是为了让"多个LD当只交1个SAHDE时 ,尽可能打在一张纸上" *) bEnablePrinted, bEnableSave:Boolean; // *For Debugbegin bNeedmultiSheet := false; ibSpecialCount := 0; bOpenLabDataSource := True; g_strHeaderSQL := ‘‘; g_strDetailSQL := ‘‘; g_TemplateFile := ‘‘;
// 是否打印 Or 是否保存文件 bEnablePrinted := True; bEnableSave := False;
if (not asp_GetNewcolorCode.Active) or (asp_GetNewcolorCode.Eof) then begin Application.Messagebox(Pchar(‘没有要处理的数据，请先查询后打印送样卡！‘), Pchar(‘提示‘),Mb_IconInforMation+MB_OK); exit; end;
// 增加个提示，防止误点击 if Application.Messagebox(Pchar(‘你真的要打印送样卡吗？‘), Pchar(‘提示‘),Mb_IconInforMation+MB_YESNO) = id_no then exit;
// 如打印较多，增加个提示 if ds_GetNewcolorCode.DataSet.RecordCount>10 then if Application.Messagebox(Pchar(‘当前打印的色号超过 10 个，你确认要打印吗？‘), Pchar(‘提示‘),Mb_IconInforMation+MB_YESNO) = id_no then exit;
try
try // 获取模板存放路径 iniTemplateFile := ReadTemplatePath(‘PTMParameters‘, ‘LabDip‘, ‘TemplatePath‘, g_strDefaultPath);
g_strSpecialFile := iniTemplateFile + ReadTemplatePath(‘PTMParameters‘, ‘LabDip‘, ‘SpecialFile‘, g_strSpecialFile); except on e:Exception do begin Screen.Cursor := crDefault; raise Exception.Create(‘获取模板存放路径出现错误!‘); end; end;
Screen.Cursor := crSQLWait;
AddSampleCardInfoToSB(‘开始打印送样卡...‘);
// 开始遍历处理记录中的每个色号 ds_GetNewcolorCode.DataSet.First; while not ds_GetNewcolorCode.DataSet.Eof do begin bSpecial := false;
grid_Color_Code := UpperCase(Trim(ds_GetNewcolorCode.DataSet.FieldByName(‘Color_Code‘).Value)); grid_Customer := UpperCase(Trim(ds_GetNewcolorCode.DataSet.FieldByName(‘Customer‘).Value)); grid_Submit := UpperCase(Trim(ds_GetNewcolorCode.DataSet.FieldByName(‘Submit‘).Value));
// 需要特殊处理，暂只有一个特殊客户 if (grid_Customer=‘MARK & SPENCER UK‘) AND (Length(grid_Submit)=1) then //if (grid_Customer=‘MARK & SPENCER UK‘) then begin inc(ibSpecialCount); bSpecial := True; //ShowMessage(‘ibSpecialCount‘); end;
AddSampleCardInfoToSB(‘正在处理客户 [‘ + grid_Customer + ‘] 的资料...‘);
// 获取 Excel 模板格式名 TemplateFile := Trim(GetSampleCardInfo(grid_Customer, grid_Submit, 0)); tTemplateFile := TemplateFile; TemplateFile := iniTemplateFile+ TemplateFile + ‘.xls‘;
if bSpecial then begin g_TemplateFile := TemplateFile; TemplateFile := g_strSpecialFile; end;
// 如果返回空的格式名，则不处理，继续下一个色号 if TemplateFile=‘‘ then begin ds_GetNewcolorCode.DataSet.Next; Continue; end;
// 获取打印份数 iCopies := GetSampleCardInfo(grid_Customer, grid_Submit, 1); if bSpecial then begin g_iCopies := iCopies; iCopies := 1; end;
//*** //Memo1.Lines.Text := Memo1.Lines.Text + grid_Color_Code+#13#10+ grid_Customer+#13#10+grid_Submit+#13#10+Inttostr(iCopies); // Exit; // 打开 EXCEL 模板文件 AddSampleCardInfoToSB(‘正在处理客户 [‘ + grid_Customer + ‘] 的资料（打开 EXCEL 模板文件）...‘); try if not OpenExcelTemplate(TemplateFile, 1) then begin FreeExcelApp; ds_GetNewcolorCode.DataSet.Next; Continue; end; except on e:Exception do begin FreeExcelApp; Screen.Cursor := crDefault; raise Exception.Create(‘打开 EXCEL 模板文件出现错误(检查文件名与系统设定是否一致)!‘); end; end;
// 打开 LabDip 数据源 （色号信息 & 对色仪导出的颜色值） //if not OpenLabDataSource(‘11220GNFD01‘, ‘A‘) then exit; AddSampleCardInfoToSB(‘正在处理客户 [‘ + grid_Customer + ‘] 的资料（打开 色号信息 & 对色仪导出的颜色值）...‘); try // 如果需要特殊处理的数据，只处理附带的那个文件，同时返回SQL指令给全局变数 if bSpecial then bOpenLabDataSource := OpenLabDataSource(grid_Color_Code, grid_Submit,1); bOpenLabDataSource := OpenLabDataSource(grid_Color_Code, grid_Submit,0);
if not bOpenLabDataSource then begin FreeExcelApp; ds_GetNewcolorCode.DataSet.Next; Continue; end; except on e:Exception do begin FreeExcelApp; Screen.Cursor := crDefault; raise Exception.Create(‘打开 LabDip数据源出现错误!‘); end; end;
// 获取当前工作表的数量 if bSpecial then iSheetCount := 1 else iSheetCount := FExcelApp.WorkSheets.Count;
// 某些情况需要处理多个文档，加个回圈 for i:=1 to iSheetCount do begin // 寻找 Range Cell 并输出数据 AddSampleCardInfoToSB(‘正在处理客户 [‘ + grid_Customer + ‘] 的资料（寻找 Range Cell 并输出数据）...‘); try if not ExportDataToExcel(adoqryColorCode, adoqryColorInformation, i) then begin FreeExcelApp; ds_GetNewcolorCode.DataSet.Next; Continue; end; except on e:Exception do begin FreeExcelApp; Screen.Cursor := crDefault; raise Exception.Create(‘输出数据出现错误!‘); end; end; end;
// 打印 if bEnablePrinted then begin for i:=1 to iSheetCount do begin FExcelApp.WorkSheets[i].Activate; for j:=1 to iCopies do begin FExcelApp.ActiveSheet.PrintOut; end end; end;
if bEnableSave then FExcelApp.ActiveWorkBook.SaveAs(iniTemplateFile+ tTemplateFile + ‘_副本.xls‘);
FreeExcelApp;
ds_GetNewcolorCode.DataSet.Next;
end;
(* ************************************** *) (* 处理特殊客户，多个色号打印在一张纸上 *) (* 基本上与上面处理流程一样，只是没有回圈 *) (* ************************************** *) if ibSpecialCount > 0 then begin AddSampleCardInfoToSB(‘正在处理特殊色号的资料...‘);
//打开数据集 g_strHeaderSQL := LeftStr(g_strHeaderSQL, Length(g_strHeaderSQL)-10); g_strDetailSQL := LeftStr(g_strDetailSQL, Length(g_strDetailSQL)-10);
//Memo1.Lines.Text := g_strHeaderSQL + #13#10+ #13#10+g_strDetailSQL+#13#10+Inttostr(g_iCopies); //Exit;
if not OpenDataSet(adoqryColorCode, g_strHeaderSQL, 0, false) then begin Screen.Cursor := crDefault; exit; end; if not OpenDataSet(adoqryColorInformation, g_strDetailSQL, 1, false) then begin Screen.Cursor := crDefault; exit; end;
// 打开 EXCEL 模板文件 AddSampleCardInfoToSB(‘正在处理特殊色号的资料（打开 EXCEL 模板文件）...‘); try if not OpenExcelTemplate(g_TemplateFile, 1) then FreeExcelApp; except on e:Exception do begin FreeExcelApp; Screen.Cursor := crDefault; raise Exception.Create(‘打开 EXCEL 模板文件出现错误(检查文件名与系统设定是否一致)!‘); end; end; // 依据多少个色号记录，计算多少个电子档 // 一张纸只打印 4 个色号，小于4条记录就 默认一个电子档 if ibSpecialCount>4 then begin if (ibSpecialCount mod 4)=0 then ibSpecialCount := ibSpecialCount div 4 else ibSpecialCount := (ibSpecialCount div 4) + 1; end else ibSpecialCount := 1;
AddSampleCardInfoToSB(‘正在处理特殊色号的资料（寻找 Range Cell 并输出数据）...‘); // 寻找 Range Cell 并输出数据 try if not ExportDataToExcel(adoqryColorCode, adoqryColorInformation, 1, True) then FreeExcelApp; except on e:Exception do begin FreeExcelApp; Screen.Cursor := crDefault; raise Exception.Create(‘输出数据出现错误!‘); end; end;
// 打印 if bEnablePrinted then begin for i:=1 to ibSpecialCount do begin FExcelApp.WorkSheets[i].Activate; for j:=1 to g_iCopies do begin FExcelApp.ActiveSheet.PrintOut; end end; end;
if bEnableSave then FExcelApp.ActiveWorkBook.SaveAs(g_TemplateFile + ‘_副本.xls‘); FreeExcelApp;
end;
except on e:Exception do begin if not VarIsEmpty(FExcelApp) then begin FExcelApp.Quit; Screen.Cursor := crDefault; FExcelApp := Unassigned; end; //raise Exception.Create(‘打印送样卡出现错误!‘); end; end;
ds_GetNewcolorCode.DataSet.First; AddSampleCardInfoToSB(‘成功打印送样卡...‘);
Screen.Cursor := crDefault;
end;
// 打开模板文件function TNewLabdipQuery.OpenExcelTemplate(vFilename: string; iTabsheet: Integer): Boolean;begin Result := false;
try FExcelApp := CreateOleObject(‘Excel.Application‘); except on e:Exception do begin Application.Messagebox(Pchar(‘无法创建Excel元件，请检查这台电脑是否正常安装Excel软件！‘+e.Message), Pchar(‘警告‘),MB_ICONWARNING+MB_OK); end; end;
FExcelApp.WorkBooks.Open(vFilename); FExcelApp.application.DisplayAlerts := false; FExcelApp.WorkSheets[iTabsheet].Activate;
Result := true;end;
// 打开数据源// iType=0 正常处理 iType>0 特殊处理function TNewLabdipQuery.OpenLabDataSource(vColor_name, vShape: string;iType:Byte): Boolean; // 设置SQL语句 function SetDataSourceSQL(AColor_name,AShape: string; i:Byte; bMergerUnion:Boolean):string; var strmergerSQL:string; strMath:String; begin Result := ‘‘;
strmergerSQL := ‘‘; if bMergerUnion then strmergerSQL := ‘ UNION ALL ‘;
if i=0 then Result := strmergerSQL + ‘SELECT DISTINCT TOP 1 a.color_code + ‘‘ ‘‘ + ‘‘‘ + AShape + ‘‘‘ AS Batch_Name, ‘ + ‘b.Comment,a.*,b.submit,customerName=c.customer, PrintDate=getdate() ‘ + ‘FROM artdb..rtcolorhead a ‘ + ‘INNER JOIN systemdb..pbcustomerlist c on c.customer_code=a.customer ‘ + ‘LEFT JOIN artdb.dbo.RtColorLabDIP b on a.color_code=b.color_code and b.times=(‘ + ‘SELECT MAX(times) FROM artdb.dbo.RtColorLabDIP where color_code=b.color_code) ‘ + ‘WHERE a.color_code=‘‘‘ + AColor_name + ‘‘‘ ‘ else begin // 计算 DC & DH 列 strMath := ‘ DC = ROUND( ‘ + ‘ SQRT(SQUARE(CIE_a) + SQUARE(CIE_b)) - ‘ + ‘ SQRT(SQUARE(CIE_a-CIE_da) + SQUARE(CIE_b-CIE_db)), ‘ + ‘ 2), ‘ +
‘ DH = ROUND( ‘ + ‘ SQRT( ‘ + ‘ SQUARE(CIE_DE) - ‘ + ‘ SQUARE ‘ + ‘ ( ‘ + ‘ SQRT(SQUARE(CIE_a) + SQUARE(CIE_b)) - ‘ + ‘ SQRT(SQUARE(CIE_a-CIE_da) + SQUARE(CIE_b-CIE_db)) ‘ + ‘ ) - ‘ + ‘ SQUARE(CIE_DL) ‘ + ‘ ), ‘ + ‘ 2 ‘ + ‘ ) ‘ ;
Result := strmergerSQL + ‘SELECT *, ‘ + strMath + ‘FROM [Esquel].[dbo].[DTEBatch] WHERE Batch_Name=‘‘‘ + AColor_name + ‘ ‘ + AShape + ‘‘‘ ‘; end; end; // 打开数据集 function OpenDataSet(adoqry:TADOQuery; strSQL:string; i:byte; bHits:Boolean=true):Boolean; begin Result := false; adoqry.Close; adoqry.SQL.Clear; adoqry.SQL.Add(strSQL); try adoqry.Open; except on e:Exception do begin Application.Messagebox(Pchar(‘打开数据集出现错误！‘+e.Message), Pchar(‘提示‘),MB_ICONWARNING+MB_OK); exit; end; end;
// 是否提示 if bHits then begin if adoqry.Eof then begin if i=0 then ShowMessage(‘色号不存在！‘) else ShowMessage(‘颜色信息不存在！‘); end; end; Result := true; end;var strHeaderSQL: string; strDetailSQL: string; strmergerSQL: string; bManyShape: Boolean; // 多个Shape ? minShape, MaxShape: string; i, j, k:integer;begin
Result := false;
bManyShape := False;
if vShape=‘‘ then begin Application.Messagebox(Pchar(‘色号[‘ + vColor_name + ‘] Shape至少为一个，请检查这个色号是否正为试样！‘), Pchar(‘提示‘),MB_ICONWARNING+MB_OK); exit; end;
minShape := LeftStr(vShape, 1);
if Pos(‘-‘, vShape) > 0 then begin bManyShape := True; MaxShape := RightStr(vShape, 1); end;
// 设置数据源的SQL语句 strHeaderSQL := SetDataSourceSQL(vColor_name,minShape,0, False); strDetailSQL := SetDataSourceSQL(vColor_name,minShape,1, False);
// 某些特殊的情况需要不打开数据集，累计所有SQL指令，在本函数外一次性打开 if iType>0 then begin g_strHeaderSQL := g_strHeaderSQL + strHeaderSQL + ‘ UNION ALL ‘; g_strDetailSQL := g_strDetailSQL + strDetailSQL + ‘ UNION ALL ‘; end;
(* Debug *)
// Memo1.Clear;// Memo1.Lines.Text := strHeaderSQL;
// strDetailSQL := SetDataSourceSQL(vColor_name,minShape,1, False);// Memo1.Lines.Text := Memo1.Lines.Text + chr(13)+chr(10)+strDetailSQL;// exit; } (* Debug *)
// 有多个Shape时，循环处理 if bManyShape then begin i := ord(minShape[1])+1; j := Ord(MaxShape[1]); for k := i to j do begin strHeaderSQL := strHeaderSQL + SetDataSourceSQL(vColor_name,chr(i),0, True); strDetailSQL := strDetailSQL + SetDataSourceSQL(vColor_name,chr(j),1, True); {* 暂没有多个Shape的需求 *} {if iType>0 then begin g_strHeaderSQL := g_strHeaderSQL + strHeaderSQL + ‘ UNION ALL ‘; g_strDetailSQL := g_strDetailSQL + strDetailSQL + ‘ UNION ALL ‘; end;} end; end;
// 打开数据集 if iType=0 then begin if not OpenDataSet(adoqryColorCode, strHeaderSQL, 0, false) then exit; if not OpenDataSet(adoqryColorInformation, strDetailSQL,1, false) then exit; end; Result := true;
end;
// 汇出资料到 Excel function TNewLabdipQuery.ExportDataToExcel(HeadDS, DetailDS: TDataSet; iTabSheet:Integer; bSpecial:boolean): Boolean;var iHDRField, iDTLField, iHDRRecord, iDTLRecord: Integer; begin
Result := false;
try HeadDS.First; iHDRRecord:=0;
//循环主表的每一条记录 while Not HeadDS.Eof do begin iHDRRecord := iHDRRecord +1;
// 需要特殊处理的客户，自动切换工作表 if bSpecial then begin if iHDRRecord mod 4 = 0 then inc(iTabSheet); end;
//循环当前记录的每一个字段 for iHDRField := 0 to HeadDS.FieldCount - 1 do begin // 填充主表内容 FCellNo := HeadDS.Fields[iHDRField].FieldName + ‘_H_‘ + IntToStr(iHDRRecord); //根据CellNo的值查找Excel相关栏位赋值 FCellRange := FExcelApp.WorkSheets[iTabSheet].Cells.Find(FCellNo); While not VarIsClear(FCellRange) do begin FCellRange.Value := HeadDS.Fields[iHDRField].AsString; FCellRange := FExcelApp.WorkSheets[iTabSheet].Cells.Find(FCellNo); end; end;
//填充当前主表的子表内容
DetailDS.Filtered := true; DetailDS.Filter := ‘Batch_Name = ‘‘‘ + HeadDS.FieldByName(‘Batch_Name‘).AsString + ‘‘‘‘;
DetailDS.First; iDTLRecord := 0;
// 处理明细表 while Not DetailDS.Eof do begin iDTLRecord := iDTLRecord + 1;
if bSpecial then begin if iDTLRecord mod 4 = 0 then inc(iTabSheet); end;
for iDTLField := 0 to DetailDS.FieldCount - 1 do begin FCellNo := DetailDS.Fields[iDTLField].FieldName + ‘_D_‘+IntToStr(iHDRRecord)+‘_‘+IntToStr(iDTLRecord);
FCellRange := FExcelApp.WorkSheets[iTabSheet].Cells.Find(FCellNo); While not VarIsClear(FCellRange) do begin FCellRange.Value := DetailDS.Fields[iDTLField].AsString; FCellRange := FExcelApp.WorkSheets[iTabSheet].Cells.Find(FCellNo); end; end; DetailDS.Next; end; HeadDS.Next; end; DetailDS.Filtered := False;
except on e:Exception do begin FExcelApp.Quit; FExcelApp := Unassigned; Application.Messagebox(Pchar(‘定位资料到Excel出现错误！‘+e.Message), Pchar(‘提示‘),Mb_IconInforMation+MB_OK); exit; end; end;
Result := True;
end;
// 获取 格式名称 & 打印份数function TNewLabdipQuery.GetSampleCardInfo(vcustomer, vShape: string; iType:Byte): Variant;var j: integer; strSQL,strCondition :string; minShape, MaxShape: string;begin
if iType=0 then Result := ‘‘ else Result := 1; minShape := LeftStr(vShape, 1); j := 1; // 默认1个Shape
// 同一客户正常只有2种格式，要么1个Shape，要么大于1的Shape strCondition := ‘AND shape=:shape ‘; // 多少个Shape A-C if Pos(‘-‘, vShape) > 0 then begin MaxShape := RightStr(vShape, 1); j := Ord(MaxShape[1]) - ord(minShape[1]) + 1; end;
if j > 1 then strCondition := ‘AND shape>:shape ‘;
strSQL := ‘SELECT TOP 1 FormatName, PrintCopies FROM dbo.LabDipSampleCardFormat ‘ + ‘WHERE customer=:customer ‘ + strCondition;
with ADOQuery do begin close; SQL.Clear; SQL.Add(strSQL); Parameters.ParamByName(‘customer‘).Value := vcustomer;// Parameters.ParamByName(‘shape‘).Value := j; Parameters.ParamByName(‘shape‘).Value := 1; try Active := True; if IsEmpty or Eof then begin Application.Messagebox(Pchar(‘系统不存在此格式，验证错误！‘), Pchar(‘提示‘),MB_ICONWARNING+MB_OK); exit; end;
except on e:exception do begin Application.Messagebox(Pchar(‘打开[送样格式表]出现错误！‘+e.Message), Pchar(‘提示‘),MB_ICONWARNING+MB_OK); exit; end; end; end;
if iType=0 then Result := ADOQuery.fieldbyname(‘FormatName‘).Value else Result := ADOQuery.fieldbyname(‘PrintCopies‘).Value;
end;
// Added StatusBar Infoprocedure TNewLabdipQuery.AddSampleCardInfoToSB(vInfo: string);begin SB1.SimpleText := ‘ ‘ + vInfo; SB1.Refresh;end;
procedure TNewLabdipQuery.N3Click(Sender: TObject);begin with asp_GetNewcolorCode do begin close; //Parameters.ParamByName(‘@CondStr‘).Value :=‘b.Complete_Date is Null and a.cancel_date is null and a.Dip_Mode in (‘‘新样‘‘,‘‘重打‘‘,‘‘试样‘‘,‘‘复板‘‘,‘‘公用色号‘‘) and Restore_Time is Null ‘; //Parameters.ParamByName(‘@CondStr‘).Value :=‘a.color_code=‘‘11220GNFD01‘‘ or a.color_code=‘‘13044BLFD01‘‘ AND b.Complete_Date is Null and a.cancel_date is null and a.Dip_Mode in (‘‘新样‘‘,‘‘重打‘‘,‘‘试样‘‘,‘‘复板‘‘,‘‘公用色号‘‘) and Restore_Time is Null ‘; Parameters.ParamByName(‘@CondStr‘).Value :=‘a.color_code=‘‘13044BLFD01‘‘ AND b.Complete_Date is Null and a.cancel_date is null and a.Dip_Mode in (‘‘新样‘‘,‘‘重打‘‘,‘‘试样‘‘,‘‘复板‘‘,‘‘公用色号‘‘) and Restore_Time is Null ‘; Open; end; asp_GetNewColorCode.Filter:=‘‘; asp_GetNewcolorCode.Filtered:=false;end;
// 使 cxGrid 的过滤与数据集同步procedure TNewLabdipQuery.cxGrid1DBTableView1DataControllerFilterBeforeChange( Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: String);begin asp_GetNewcolorCode.Filtered:=false; asp_GetNewcolorCode.Filter:=AFilterText; end;
procedure TNewLabdipQuery.cxGrid1DBTableView1DataControllerFilterChanged( Sender: TObject);begin asp_GetNewcolorCode.Filtered:=true;end;
// 释放 Excell App 元件procedure TNewLabdipQuery.FreeExcelApp;begin if not VarIsEmpty(FExcelApp) then begin FExcelApp.Quit; FExcelApp := Unassigned; end;end;
// 读取 Ini 文件中的模板路径function TNewLabdipQuery.ReadTemplatePath(vIniName, vSection, vIden,vdefValue: string): string;var iniFile:Tinifile; strIniFile: string; iHandle:Integer; bReset:Boolean;begin
Result := vdefValue; bReset := false; strIniFile := ExtractFilePath(Application.ExeName) + vIniName + ‘.ini‘;
if not FileExists(strIniFile) then begin iHandle := FileCreate(strIniFile); bReset := true; FileClose(iHandle); end; try iniFile := Tinifile.Create(strIniFile); if bReset then begin // Writed some Parameters // iniFile.WriteString(vSection, vIden, vdefValue) inifile.WriteString(‘LabDip‘, ‘TemplatePath‘, g_strDefaultPath); inifile.WriteString(‘LabDip‘, ‘SpecialFile‘, g_strSpecialFile); end else Result := iniFile.ReadString(vSection, vIden, vdefValue); finally iniFile.Free; end;
// ShowMessage(Result);
end;
// Copies DataSetprocedure TNewLabdipQuery.CopyDataSet(SourceDS:TADOQuery; DestDS: TADODataSet;iMode:Byte);var i:Integer;begin if not DestDS.Active then DestDS.Active := true; if iMode=0 then begin SourceDS.First; while not SourceDS.Eof do begin DestDS.Append; for i:=0 to SourceDS.FieldCount-2 do begin DestDS.Fields[i].Value := SourceDS.Fields[i].Value; end; SourceDS.Next; end; end else begin DestDS.Recordset := SourceDS.Recordset; end; exit;end;
//打开数据集function TNewLabdipQuery.OpenDataSet(adoqry:TADOQuery; strSQL:string; i:byte; bHits:Boolean=true):Boolean;begin Result := false; adoqry.Close; adoqry.SQL.Clear; adoqry.SQL.Add(strSQL); try adoqry.Open; except on e:Exception do begin Application.Messagebox(Pchar(‘打开数据集出现错误！‘+e.Message), Pchar(‘提示‘),MB_ICONWARNING+MB_OK); exit; end; end;
// 是否提示 if bHits then begin if adoqry.Eof then begin if i=0 then ShowMessage(‘色号不存在！‘) else ShowMessage(‘颜色信息不存在！‘); end; end; Result := true;end;
procedure TNewLabdipQuery.MARKSPENCERUK1Click(Sender: TObject);begin with asp_GetNewcolorCode do begin close;(*14342BLFM0214381BLFD0212163GNFM014930BRFD01*) Parameters.ParamByName(‘@CondStr‘).Value :=‘a.color_code=‘‘5545NYFD01‘‘ AND b.Complete_Date is Null and a.cancel_date is null and a.Dip_Mode in (‘‘新样‘‘,‘‘重打‘‘,‘‘试样‘‘,‘‘复板‘‘,‘‘公用色号‘‘) and Restore_Time is Null ‘; Open; end; asp_GetNewColorCode.Filter:=‘‘; asp_GetNewcolorCode.Filtered:=false;end;本文出自 “畅想天空” 博客，请务必保留此出处http://kinwar.blog.51cto.com/3723399/1622435
原文地址：http://kinwar.blog.51cto.com/3723399/1622435
