求大神给我注释一下

zenzhaoqin 2015-06-30 03:23:09
var
Excel: OleVariant;
iRow,iCol : integer;
xlsFilename: string;
begin
OpenDialog1.Title := '请选择正确的excel文件';
OpenDialog1.Filter := 'Excel(*.xls)|*.xls';
if OpenDialog1.Execute then
begin
xlsFilename := OpenDialog1.FileName;
try
Excel := CreateOLEObject('Excel.Application');
except
Application.MessageBox('excel没有安装', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
Exit;
end;
ADOQ1.Close;
ADOQ1.Open;
ADOQ1.Filtered := false;
Excel.Visible := false;
Excel.WorkBooks.Open(xlsFilename);
try
iRow := 2;
iCol := 1;
while trim(Excel.WorkSheets[1].Cells[iRow,iCol].value) <> '' do
begin
if ADOQ1.Locate('years',trim(Excel.WorkSheets[1].Cells[iRow,iCol].value),[loCaseInsensitive]) then
begin
if not ADOQ1.FieldByName('audit').AsBoolean then
begin
ADOQ1.Edit;
ADOQ1.FieldByName('quantity').Value := StrToFloat(trim(Excel.WorkSheets[1].Cells[iRow,iCol+6].value));
ADOQ1.Post;
end
else
begin
ADOQ1.Insert;
ADOQ1.FieldByName('years').Value := trim(Excel.WorkSheets[1].Cells[iRow,iCol].value);
ADOQ1.FieldByName('quantity').Value := StrToFloat(trim(Excel.WorkSheets[1].Cells[iRow,iCol+6].value));
ADOQ1.Post;
end;
end
else
begin
ADOQ1.Insert;;
ADOQ1.FieldByName('years').Value := trim(Excel.WorkSheets[1].Cells[iRow,iCol].value);
ADOQ1.FieldByName('quantity').Value := StrToFloat(trim(Excel.WorkSheets[1].Cells[iRow,iCol+6].value));
ADOQ1.Post;
end;

iRow := iRow + 1;
end;
Excel.Quit;
MessageDlg('数据导入完成！',mtInformation,[mbOk],0);
except
Excel.Quit;
raise;
end;
ADOQ1.Close;
ADOQ1.Open;

end;

end;
...全文
200 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
Mr Dang 2015-09-07
  • 打赏
  • 举报
 回复
非常混乱的代码 。
kehao0416 2015-08-31
  • 打赏
  • 举报
 回复
引用 4 楼 a295281315 的回复:
看到这种代码我就想杀人
@Bzdr
kehao0416 2015-08-31
  • 打赏
  • 举报
 回复
@a295281315 请教这种代码的问题
Playmaster 2015-07-01
  • 打赏
  • 举报
 回复
Mr Dang 2015-06-30
  • 打赏
  • 举报
 回复
看到这种代码我就想杀人
lyhoo163 2015-06-30
  • 打赏
  • 举报
 回复 
这是EXCEL文件的数据读入TADOQuery表（数据库）的代码。

var Excel: OleVariant;                             //  Excel声明为OleVariant类型 
    iRow,iCol : integer;
    xlsFilename: string;
begin
  OpenDialog1.Title := '请选择正确的excel文件';    // OpenDialog的标题 
  OpenDialog1.Filter := 'Excel(*.xls)|*.xls';      // OpenDialog打开文件类型（指定文件后缀名）
  if OpenDialog1.Execute then                      // OpenDialog成功打开文件 
  begin
    xlsFilename := OpenDialog1.FileName;           // xlsFilename指定被打开的文件名   
    try
      Excel := CreateOLEObject('Excel.Application');  // 通过Delphi的Servets中的TExcelApplication打开EXCEL文件
    except
      Application.MessageBox('excel没有安装', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL); // 系统未将office
      Exit;                                           // 退出
    end;
    ADOQ1.Close;                                      // 关闭 TADOQuery
    ADOQ1.Open;                                       // 打开 TADOQuery
    ADOQ1.Filtered := false;                          // TADOQuery 不过滤
    Excel.Visible := false;                           // TADOQuery 不显示   
    Excel.WorkBooks.Open(xlsFilename)                 // 打开EXCEl文件
    try
      iRow := 2;                                      // 单元行
      iCol := 1;                                      // 单元列
      while trim(Excel.WorkSheets[1].Cells[iRow,iCol].value) <> '' do   // While循环语句 条件：当指定EXCEL的Book1的【行，列】值<>空格 
      begin
                   // 数据集中查询特定的记录，并定位该记录为当前记录 loCaseInsensitive是字符匹配选项：不分大小写查询数据
        if  ADOQ1.Locate('years',trim(Excel.WorkSheets[1].Cells[iRow,iCol].value),[loCaseInsensitive]) then
        begin
          if not ADOQ1.FieldByName('audit').AsBoolean then                                                         // 字段audit值为真 
          begin
            ADOQ1.Edit;                                                                                            // 编辑该行数据 
            ADOQ1.FieldByName('quantity').Value := StrToFloat(trim(Excel.WorkSheets[1].Cells[iRow,iCol+6].value)); // 赋新值
            ADOQ1.Post;                                                                                            // 确定编辑数据 
          end
          else begin
            ADOQ1.Insert;                                                                                          // 插入一行 并Edit
            ADOQ1.FieldByName('years').Value := trim(Excel.WorkSheets[1].Cells[iRow,iCol].value);                  // 写入数据     
            ADOQ1.FieldByName('quantity').Value := StrToFloat(trim(Excel.WorkSheets[1].Cells[iRow,iCol+6].value)); // 写入数据  
            ADOQ1.Post;                                                                                            // 确定传输数据 
          end;
        end
        else begin 
          ADOQ1.Insert;;                                                                                         // 插入一行 并Edit
          ADOQ1.FieldByName('years').Value := trim(Excel.WorkSheets[1].Cells[iRow,iCol].value);                  // 写入数据  
          ADOQ1.FieldByName('quantity').Value := StrToFloat(trim(Excel.WorkSheets[1].Cells[iRow,iCol+6].value)); // 写入数据  
          ADOQ1.Post;                                                                                            // 确定传输数据 
        end;
        iRow := iRow + 1;                                                                                        // 向下一行
      end;
      Excel.Quit;                                           //  Excel退出  
      MessageDlg('数据导入完成！',mtInformation,[mbOk],0);  //  打开信息提示对话框
    except                                                  //  出现错误执行下列代码
      Excel.Quit;                                           //  Excel退出
      raise;                                                //  抛出异常  
    end;
    ADOQ1.Close;              
    ADOQ1.Open;
  end;
end;
注释花费时间，还要通俗。
yct0605 2015-06-30
  • 打赏
  • 举报
 回复
简单写了一下 

var
    Excel: OleVariant;     //创建OLE对象
    iRow,iCol : integer;  //所在行、列
    xlsFilename: string; //excel文件名称
begin
    OpenDialog1.Title := '请选择正确的excel文件';     //对话框标题
   OpenDialog1.Filter := 'Excel(*.xls)|*.xls';                 //打开文件类型 excel文件
  if OpenDialog1.Execute then                                     //如果选择文件
  begin
      xlsFilename := OpenDialog1.FileName;            //将excel文件所在路径和名称赋值给变量xlsFilename 
    try
        Excel := CreateOLEObject('Excel.Application');   //创建Excel对象
    except
        Application.MessageBox('excel没有安装', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);     //异常处理代码
        Exit;
    end;
    ADOQ1.Close;    //ADO数据组件Tadoquery  关闭
    ADOQ1.Open;    //ADO数据组件Tadoquery  打开
    ADOQ1.Filtered := false;   //关闭过滤
    Excel.Visible := false;       // 隐藏excel对象
    Excel.WorkBooks.Open(xlsFilename);    //打开excel工作簿
    try
        iRow := 2;                        
        iCol := 1;
       //上面两句是定位到哪个单元格
       while trim(Excel.WorkSheets[1].Cells[iRow,iCol].value) <> '' do     //判断单元格的数值不为空  循环语句
       begin
        if  ADOQ1.Locate('years',trim(Excel.WorkSheets[1].Cells[iRow,iCol].value),[loCaseInsensitive]) then  //定位字段years
          begin
          if not ADOQ1.FieldByName('audit').AsBoolean then  //字段audit如果为真
          begin
          ADOQ1.Edit;  //编辑字段
          ADOQ1.FieldByName('quantity').Value := StrToFloat(trim(Excel.WorkSheets[1].Cells[iRow,iCol+6].value));  //给字段quantity赋值
          ADOQ1.Post;   //提交更改
          end
          else
           begin  //字段audit不为真
          ADOQ1.Insert;
          ADOQ1.FieldByName('years').Value := trim(Excel.WorkSheets[1].Cells[iRow,iCol].value);
          ADOQ1.FieldByName('quantity').Value := StrToFloat(trim(Excel.WorkSheets[1].Cells[iRow,iCol+6].value));
          ADOQ1.Post;
         // 向字段years,quantity插入数据(excel中的数据)
          end;
          end
          else
          begin   //定位非字段years
          ADOQ1.Insert;;
          ADOQ1.FieldByName('years').Value := trim(Excel.WorkSheets[1].Cells[iRow,iCol].value);
          ADOQ1.FieldByName('quantity').Value := StrToFloat(trim(Excel.WorkSheets[1].Cells[iRow,iCol+6].value));
          ADOQ1.Post;
         // 出入数据同上
          end;

        iRow := iRow + 1;   //行+1  ，循环体循环
      end;
      Excel.Quit;
      MessageDlg('数据导入完成！',mtInformation,[mbOk],0);
     except
      Excel.Quit;
      raise;
     end;
       ADOQ1.Close;
       ADOQ1.Open;

   end;

end;
李_军 2015-06-30
  • 打赏
  • 举报
 回复
这个已经写的够简单详细的了，还用另外加注释，就是打开excel，读excel里面每个格子的数据就是
android 漫天飞舞的雪花效果
android 漫天飞舞的雪花效果。根据国外一大神的开源代码，修改一些代码以及家里注释。我的博客地址：http://blog.csdn.net/qq_16064871?viewmode=list
android 下雨天雨滴的效果
android 下雨天雨滴的效果。根据国外一大神的开源代码，修改一些代码以及家里注释。根据下雪的效果改了这个demo，变成下雨的。我的博客地址：http://blog.csdn.net/qq_16064871?viewmode=list
【PC工具】大神级代码注释，漂亮实用的代码注释工具代码logo工具
github上看各路大牛大神的项目代码，经常会看到各种神注释......那么问题就来了：大神是如何在代码里搞的这些图片代码呢？打死我也不信是大牛大神一个一个打上...
html注释大神,为什么在注释前面加@param？
如图：为什么在注释前面加@param，有没有能细说一下的大神？回答这是jsdoc之类的文档语法，可以自动生成相应文档。在一些工具中也会自动提示。它一般用于函数声明注释。这是 JSDoc 注释，@param说明后面的 sheet 是一个参数，参见 JSDoc:@param。注明参数之后 IDE 可以在调用函数的时候智能地提示所需参数，参数还可以标注类型和参数说明，给 IDE 更多更准确的提示信息。@...
优秀的程序员真的不写注释吗？
我在很多地方看到这样一个观点，“请停止写注释，因为只有烂的代码才需要注释。”这个观点非常巧妙，它让我想起了孟子的一句话，“杨氏为我，是无君也；墨氏兼爱，是无父也。无父无君，是禽兽也。” 动不动就骂别人是“禽兽”，我总觉得有点不妥，这很不符合孟子的浩然之气啊。有些大牛也有孟子这样的觉悟，如果有人要他给自己的代码加上注释，就好像是对他的一种侮辱：“我的代码写得这么优雅，你难道看不懂吗？注释是多余的！” 我必须得承认，每个程序员都应该有一颗追求“优雅”的心，力争自己的代码更易阅读和理解——不只是针对机器，还有我
语言基础/算法/系统设计

16,748

社区成员

33,247

社区内容

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章