NOT (性别=‘__’) AND (年龄&=18 AND 年龄&=45)什么意思NOT (性别=‘男’) AND (年龄》=18 AND 年龄《=45)什么意思 求懂的大师解答解答
hulib000AF
性别不为男，且年龄在18到45之间
非男性，且年龄大于等于18到等于小于45之间。
为您推荐：
扫描下载二维码毕业设计遇到问题，请大家不吝赐教！SQL-&Excel！ole占用内存严重怎么解决？
Description of your first forum.
8 篇帖子 & 分页：1 / 1
由 delphi5198 & 星期六, 日 16:04
导师叫我写一个函数，实现对于任何一个adoquery传过来的数据集，能将数据自动导出到一个Excel文件中。我想不出如何得到数据集的字段名。比如：姓名，性别，工资状况。
请大家帮忙。
由 娃娃 & 星期六, 日 16:11
不需要字段名啊，你只要用fields.filed[]就行了吗，至于转到Excel中，应该不是很难吧，很多教程有的。
由 delphi5198 & 星期六, 日 16:15
谢谢，我明白了。我去写段代码试验一下。
由 delphi5198 & 星期六, 日 18:07
我成功的完成了SQLsever -& EXCEL的转换，但是：
eclApp:=CreateOleObject('Excel.Application');
WorkBook:=CreateOleObject('Excel.Sheet');
我是这样使用的，为什么每次退出程序都有Excel.exe驻留在内存里呢？怎么办呢？
由 xijun & 星期六, 日 18:16
最好不要用OLE这种东西啦，你转出为CSV文件，把名起成.XLS后缀，用EXCEL一样打开，还不会有什么破excel.exe，你得把它FREE掉，但数据稍多一点点，就太太太慢慢了。还是CSV比较爽。
由 WoDing & 星期六, 日 18:43
/keylife/iblog_show.asp?xid=563
这个非常不错，在富翁笔记里有
/delphibbs/dispq.asp?lid=1754027
{ & 背景：今天要把DataSet导入Excel，查询以前的贴子，一部分用Ole，速度太慢，
& & & & 一部分用ADO连接到Excel文件，也很慢，一气之下把DBGrigEh的导出部分改了出来，
& & & & 欢迎大家指教、改进。
& 功能：将数据集的数据导入E
& 用法：With TDS2Excel.Create(TDataSet(ADOQuery1)) do
& & & & Try
& & & & & Save2File(SaveDialog1.FileName, True);
& & & & finally
& & & & & F
& 作者：Caidao (核心代码来自Ehlib)
& 地点：汕头
CXlsBof: array[0..5] of Word = ($809, 8, 0, $10, 0, 0);
CXlsEof: array[0..1] of Word = ($0A, 00);
CXlsLabel: array[0..5] of Word = ($204, 0, 0, 0, 0, 0);
CXlsNumber: array[0..4] of Word = ($203, 14, 0, 0, 0);
CXlsRk: array[0..4] of Word = ($27E, 10, 0, 0, 0);
CXlsBlank: array[0..4] of Word = ($201, 6, 0, 0, $17);
TDS2Excel = Class(TObject)
& FDataSet: TDataS
& Stream: TS
& FWillWriteHead:
& FBookMark: TB
& procedure IncColR
& procedure WriteBlankC
& procedure WriteFloatCell(const AValue: Double);
& procedure WriteIntegerCell(const AValue: Integer);
& procedure WriteStringCell(const AValue: string);
& procedure WriteP
& procedure WriteS
& procedure WriteT
& procedure WriteDataC
& procedure Save2Stream(aStream: TStream);
& procedure Save2File(FileName: WillWriteHead: Boolean);
& Constructor Create(aDataSet: TDataSet);
implementation
Constructor TDS2Excel.Create(aDataSet: TDataSet);
inherited C
FDataSet := aDataS
procedure TDS2Excel.IncColR
if FCol = FDataSet.FieldCount - 1 then
& Inc(FRow);
& FCol :=0;
& Inc(FCol);
procedure TDS2Excel.WriteBlankC
CXlsBlank[2] := FR
CXlsBlank[3] := FC
Stream.WriteBuffer(CXlsBlank, SizeOf(CXlsBlank));
procedure TDS2Excel.WriteFloatCell(const AValue: Double);
CXlsNumber[2] := FR
CXlsNumber[3] := FC
Stream.WriteBuffer(CXlsNumber, SizeOf(CXlsNumber));
Stream.WriteBuffer(AValue, 8);
procedure TDS2Excel.WriteIntegerCell(const AValue: Integer);
CXlsRk[2] := FR
CXlsRk[3] := FC
Stream.WriteBuffer(CXlsRk, SizeOf(CXlsRk));
V := (AValue shl 2) or 2;
Stream.WriteBuffer(V, 4);
procedure TDS2Excel.WriteStringCell(const AValue: string);
L := Length(AValue);
CXlsLabel[1] := 8 + L;
CXlsLabel[2] := FR
CXlsLabel[3] := FC
CXlsLabel[5] := L;
Stream.WriteBuffer(CXlsLabel, SizeOf(CXlsLabel));
Stream.WriteBuffer(Pointer(AValue)^, L);
procedure TDS2Excel.WriteP
Stream.WriteBuffer(CXlsBof, SizeOf(CXlsBof));
procedure TDS2Excel.WriteS
Stream.WriteBuffer(CXlsEof, SizeOf(CXlsEof));
procedure TDS2Excel.WriteT
for n := 0 to FDataSet.FieldCount - 1 do
& WriteStringCell(FDataSet.Fields[n].FieldName);
procedure TDS2Excel.WriteDataC
if FWillWriteHead then WriteT
FDataSet.DisableC
FBookMark := FDataSet.GetB
FDataSet.F
while not FDataSet.Eof do
& for n := 0 to FDataSet.FieldCount - 1 do
& & if FDataSet.Fields[n].IsNull then
& & & WriteBlankCell
& & else begin
& & & case FDataSet.Fields[n].DataType of
& & & & ftSmallint, ftInteger, ftWord, ftAutoInc, ftBytes:
& & & & & & WriteIntegerCell(FDataSet.Fields[n].AsInteger);
& & & & ftFloat, ftCurrency, ftBCD:
& & & & & & WriteFloatCell(FDataSet.Fields[n].AsFloat);
& & & else
& & & & WriteStringCell(FDataSet.Fields[n].AsString);
& FDataSet.N
if FDataSet.BookmarkValid(FBookMark) then FDataSet.GotoBookmark(FBookMark);
FDataSet.EnableC
procedure TDS2Excel.Save2Stream(aStream: TStream);
FCol := 0;
FRow := 0;
Stream := aS
WriteDataC
procedure TDS2Excel.Save2File(FileName: WillWriteHead: Boolean);
aFileStream: TFileS
FWillWriteHead := WillWriteH
(FileName) then
(FileName);
aFileStream := TFileStream.Create(FileName, fmCreate);
& Save2Stream(aFileStream);
& aFileStream.F
22:28:00 & &
查看评语??? & &
21:03:31 & &增加一个过程，用起来要方便一些
procedure TDS2Excel.Save2File(WillWriteHead: Boolean);
SaveDialog1: TSaveD
SaveDialog1 := TSaveDialog.Create(nil);
& SaveDialog1.Filter := 'Excel文档|*.xls';
& SaveDialog1.InitialDir := 'D:\';
& if not SaveDialog1.E
& Save2File(SaveDialog1.FileName, WillWriteHead);
& SaveDialog1.F
由 fly_hong_924 & 星期六, 日 21:00
用dbgrideh导出就可以了，什么代码都不用写，很方便。
由 delphi5198 & 星期日, 日 14:13
多人接受答案了。
8 篇帖子 & 分页：1 / 1玩&&极品飞车17最高通缉&&时主频和处理器核数哪个重要些_百度知道
玩&&极品飞车17最高通缉&&时主频和处理器核数哪个重要些
提问者采纳
行极品飞车17最好是4核cpu，对主频的要求并不是很高，更多核心对游戏性能没有明显提升。如果核心数量够
提问者评价
其他类似问题
为您推荐：
其他2条回答
主要是显卡搭配就行。显卡必须独显1G以上。处理器毕竟没有很大要求.0之上就行双核2
17嘛？？？！！！！三代i5就要3470 i7就要最低2代的2660或者3770k好一点的3960x
处理器的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}