代码:
procedure TfrmImportPage.ImportPageToDb(QuesID: Integer);
var
QuesInfo: PQuesInfo;
ParentID: Integer;
I: Integer;
HasExcep: Boolean;
M: string;
begin
HasExcep := False;
try
for I := 0 to List.Count - 1 do
begin
QuesInfo := PQuesInfo(List[I]);
with QuesInfo^ do
begin
if UserFrom = '' then
UserFrom := 'UnKnown';
if I = 0 then
ParentID := 0
else
ParentID := QuesID;
if Notebook1.PageIndex = 1 then
begin
if QueryID.Locate('ID', StrToInt(ID), []) then
begin
if rbUpdate.Checked then
UpdateToDb(QuesInfo, ParentID);
Continue;
end;
end;
FTable.Parameters.ParamByName('FID').Value := StrToInt(ID);
FTable.Parameters.ParamByName('FRegDateTime').Value := StrToDateTime(RegDateTime);
FTable.Parameters.ParamByName('FDateTime').Value := StrToDateTime(FDateTime);
FTable.Parameters.ParamByName('FUserFrom').Value := UserFrom;
FTable.Parameters.ParamByName('FSubject').Value := Subject;
FTable.Parameters.ParamByName('FContent').Value := Content;
FTable.Parameters.ParamByName('FPoints').Value := StrToInt(Points);
FTable.Parameters.ParamByName('FParent').Value := ParentID;
FTable.Parameters.ParamByName('FStatus').Value := StrToInt(Status);
FTable.Parameters.ParamByName('FRead_N').Value := StrToInt(GetTimes);
FTable.Parameters.ParamByName('FReply_N').Value := StrToInt(ReplyTimes);
FTable.Parameters.ParamByName('FRoomID').Value := StrToInt(DataMod.GetRoomID(RoomName));
FTable.Parameters.ParamByName('FExpert').Value := ' ';
//得分的大富翁
FTable.Parameters.ParamByName('FuValue').Value := '0';
FTable.Parameters.ParamByName('FNeedEMail').Value := '0';
FTable.Parameters.ParamByName('FIPAddr').Value := '-';
end;
try
FTable.Execute;
except
on E: Exception do
begin
HasExcep := True;
M := E.Message;
end;
end;
end;
if HasExcep then
raise Exception.Create(M);
reDetail.Lines.Clear;
reDetail.Lines.Add('成功导入！');
except
on E: Exception do
begin
if NoteBook1.PageIndex = 0 then
reDetail.Lines.Add('发生错误：' + E.Message)
else
raise;
end;
end;
end;
FTable是一个TADOCommand,
FTable的SQL语句为
InsertStr = 'Insert into letters(ID, RegDateTime, FDateTime, UserFrom, Subject, ' +
'RoomID, Content, Expert, Points, Parent, Status, GetTimes, ReplyTimes, uValue, ' +
'NeedEMail, IPAddr) Values
FID, :FRegDateTime, :FDateTime, :FUserFrom, :FSubject, ' +
':FRoomID, :FContent, :FExpert, :FPoints, :FParent, :FStatus, :FRead_N, :FReply_N, :FuValue, ' +
':FNeedEMail, :FIPAddr)';
下面是QuesInfo的结构内容，
PQuesInfo = ^TQuesInfo;
TQuesInfo = record
Id,
Subject,
UserFrom,
Points,
Fdatetime,
RegDateTime,
RoomName,
ReplyTimes,
GetTimes,
Content,
Status: string;
end;
以上这些是在线导入时保存到数据库的一部分内容，List里保存的内容是一个贴子里的
多条数据库记录。
我想在导入时会有重复的记录，我在这里没有判断，而是依靠捕获异常处理的，不知是
不是因为这个原因导致数据库变得非常大。
我再查查看。
