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

se
      begin
     with datamodule2.ADSsupplyms do
      begin
          insert;
          FieldByName('供应商编号').AsString:=edit1.Text;
          FieldByName('联系人姓名').AsString:=edit2.Text;
          FieldByName('电话号码').AsString:=edit3.Text;
          FieldByName('邮政编码').AsString:=edit4.Text;
          FieldByName('传真号码').AsString:=edit5.Text;
          FieldByName('公司名称').AsString:=edit6.Text;
          FieldByName('公司地址').AsString:=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('关键字已存在,添加失败!');
     datamodule2.ADSsupplyms.Cancel;
    end;
 end;
 
 
 （二）顾客信息管理
   procedure Tcustomerfrm.ToolButton1Click(Sender: TObject);
begin
try 
 if (edit1.Text='')or(edit2.Text='')or(edit3.Text='')or(edit4.Text='')or(edit5.Text='')or(edit6.Text='') then
        showmessage('Data is not enough!')
  else
      begin
          with  datamodule2.ADScustomerms do
              begin
            Insert;
            FieldByName(顾客编号').AsString:=edit1.Text;
            FieldByNam（联系人名').AsString:=edit2.Text;
            FieldByName(电话号码').AsString:=edit3.Text;
            FieldByName(邮政编码').AsString:=edit4.Text;
            FieldByName(传真号码').AsString:=edit5.Text;
            FieldByName(公司名称').AsString:=edit6.Text;
            FieldByName(公司地址').AsString:=

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

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