贸易公司信息管理系统+VB(十二)

edit7.Text;
            FieldByName(公司主页').AsString:=edit8.Text;
            FieldByName(所在城市').AsString:=edit9.Text;
            FieldByName（所在地区').AsString:=edit10.Text;
           FieldByName('备注信息').AsString:=memo1.Lines.Text;
                  post;
                  refresh;
              end;
      end;
except
  begin
    showmessage('关键字已存在,添加失败!');
  end;
 （三）商品信息管理
 procedure Tgoodsfrm.ToolButton1Click(Sender: TObject);
 begin
 try
   if (edit1.Text='')or(edit2.Text='')or(edit3.Text='')or(edit4.Text='') then
         showmessage('No data put in!')
   else
       begin
           with  datamodule2.ADSgoods do
               begin
           Insert;
           FieldByName('商品编号').AsString:=edit1.Text;
           FieldByName('商品名称').AsString:=edit2.Text;
           FieldByName('商品规格').AsString:=edit3.Text;
           FieldByName('计量单位').AsString:=edit4.Text;
           FieldByName('备注信息').AsString:=memo1.Lines.Text;
           post;
           refresh;
           end;
       end;
 except
   begin
     showmessage('关键字已存在,添加失败!');
     datamodule2.ADSgoods.Cancel;
   end;
 （四）进货信息管理
 procedure Tstockmana.ToolButton1Click(Sender: TObject);
 begin
 try
   with datamodule1.ADOQryjhgl do
     begin
   九、参考资料
 
 [1] 刘瑞新、汪远征、李凤华 编著 《DELPHI程序设计教程》
机械工业出版社  2005年1月第一版
[2] 侯太平、童爱红 编著，张琦 主审《DELPHI数据库编程》
    清华大学出版社  北京交通大学出版社 2005年10月第二次
[3] 文斌 刘长青 田原 编著《软件工程与软件文挡写作》
    清华大学出版社  北京交通大学出版社 2005年8月第一次
[4] 叶鑫 主编 刘仁云 曹芳 副主编《Delphi2005课程设计案例精编》
 中国水利水电出版社 2006年1月第一次
十一.致谢
 在本次文档设计中，我从指导老师苗颖老师身上学到了很多东西。苗颖老师认真负责的工作态度，严谨的治学精神和深厚的理论水平都使我收益匪浅。她无论在理论上还是在实践中，都给与我很大的帮助，使我得到不少的提高这对于我以后的工作和学习都有一

首页 上一页 9 10 11 12 13 下一页 尾页 12/13/13

贸易公司信息管理系统+VB(十二)相关范文