哈哈,飞刀大哥,你的机放房软件已经被我破了.哈哈............

我们学校网络中心的电影谁上传的啊？？
有些也太黄了吧？？？？？？？？？？？？
不如干脆传A片上去

现在程序导入excel没问题  数据库里面有个电话 ，导入次数字段，如果导入电话已经存在，就覆盖原来的电话，导入次数增加1，如果又导入的这个电话了，那导

现在程序导入excel没问题  数据库里面有个电话 ，导入次数字段，如果导入电话已经存在，就覆盖原来的电话，导入次数增加1，如果又导入的这个电话了，那导入次数增加1，导入次数为2了，如果是新的电话导入，默认的次数就为0。导入代码如下：



procedure TFrm_Import.Btn_StartClick(Sender: TObject);
var
  i,j,k,l,m,o,p,custcode:integer;
  F_Field:array [0..50] of String;         //源字段
  S_Field:array [0..50] of String;         //映谢字段
begin
  with Qry_Info do
  begin
    Edit;
    Post;
  end;
  with Qry_Field do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from T_Import where F_Field<>'''+' '+''' and tablename='''+tablename+'''');
    Open;
  end;
  for i:=1 to Qry_Field.RecordCount do
  begin
    F_Field[i]:=Qry_Field.FieldByName('F_Field').AsString;  //源字段
    S_Field[i]:=Qry_Field.FieldByName('S_Field').AsString;  //映谢字段
    Qry_Field.Next;
  end;
  if tablename='custom' then
  begin
    Btn_Start.Enabled:=False;
    Screen.Cursor:=crHourglass;
    Frm_Data.OpenDataSet(Qry_Import,'Select * from custom');
    o:=0;  p:=0;
    for i:=1 to Frm_Main.b_row-1 do
    begin
     ProgressBar1.Max:=Frm_Main.b_row-1;
      Frm_Data.ADOConnection1.BeginTrans;
      try
       with Qry_Import do
        begin
          Append;
          For k:=1 to Qry_Field.RecordCount do
          begin
          m:=Frm_Main.ImportFields.IndexOf(F_Field[k])+1;
          for l:=1 to Qry_Field.RecordCount do
          begin
          FieldByname(S_Field[k]).AsString:=Frm_Main.eclApp.activesheet.cells.item[i+1,m].Text;
          end;
          end;
          Post;
          end;
         inc(o);
        Frm_Data.ADOConnection1.CommitTrans;
      except
        Frm_Data.ADOConnection1.RollbackTrans;
        Inc(p);
      end;
      ProgressBar1.Position:=i;
    end;
    MessageDlg(Pchar('导入数据完成,导入成功 '+inttostr(o)+' 条, 电话重复 '+inttostr(p)+' 条'),mtConfirmation, [mbOK], 0);
    Screen.Cursor:=crDefault;
    //----------
  end;
end;


李老师 请教你个问题

那个代理类是不是在配置文件里？怎么使用那个代理类呢？

你好，小宇老师，能否借鉴一下你编写的那个机房管理系统的客户端的那个代码，谢谢啊，我的邮箱：
delphibbs@yahoo.com.cn

无意到了这里。
我也是南昌的，呵呵。

老师，您好。
我已经学了C++和C语言
近期又学了数据结构，我想问一下数据结构中的栈，队列，图还有堆等一系列的数据结构使用户自定义的，还是C++中已经设计好的了？？
谢谢
我的邮箱是wangxiao_417@163.com
QQ:909172758

小宇老师,您好!
      我对您的"C++树的实现"很感兴趣,能不能将您调试通过的方案发一份给我?我的.net2005.我的邮箱是:guanci_yang@163.com
      谢谢您了!!

小宇老师：
       你好，我现在是学院大四学生。从三年级就开始看你的blog，google搜索“site:jxstnu.cn”，看来老师对seo也精通啊。每次在校上机是必用老师的作品的，
有时好像也看到老师的身影，老师肯定不认识我，虽然不是你的学生，但从你的blog上看，我非常赞同老师工作，为人的观点。
      临近毕业，困扰十分。在昌实习，学院又没冠冕的条例，今恐是院批评、顽固学生了。
     第一次给老师留言，并无他意。只不过能从老师得到一种安静的感觉。
   QQ:543666598  Blog:www.sanfenzhai.cn Email:js.ds@163.com

小宇老师：你好
      用DELPHI2007在win2003系统下，已通过Web App Debugger调试出WSDL信息，只是是一种http://localhost:1024/WADWebProject.WADWebApp/wsdl的格式，（WADWebApp是类名），而不是http://localhost:1024/WADWebProject.EXE/wsdl格式，这个就不懂了，这样的程序可以转换成ISAPI程序吗？转换过去后，如何调用呢？我一直没有换用成功，能否告诉我？
                      谢谢

小宇老师：你好
      用DELPHI2007在win2003系统下，已通过Web App Debugger调试出WSDL信息，只是是一种http://localhost:1024/WADWebProject.WADWebApp/wsdl的格式，（WADWebApp是类名），而不是http://localhost:1024/WADWebProject.EXE/wsdl格式，这个就不懂了，这样的程序可以转换成ISAPI程序吗？转换过去后，如何调用呢？我一直没有换用成功，能否告诉我？
                      谢谢

小宇老师：你好
    看了你关于DELPHI2007的文章，我也很想用ＤＥＬＰＨＩ２００７写一个WebServices的程序，写了一个Ｗeb App的程序，但在Web App Debugger调试不出WSDL信息，从前写过ＤＣＯＭ程序可以用但也只能在局域网中使用；COM+是一个很好的选择，但不知COM+的使用范围也只能在局域网中使用吗？网上介绍ＣＯＭ＋的文章都是抄来抄去，没有讲到点子上；能否介绍一点吗？特别是客用端如何跟服务端的连接问题．
                    谢谢

老师？？

老师，你的博客太吸引人了！