仓库管理信息系统 仓库管理信息系统_图文.doc

仓库管理信息系统 仓库管理信息系统_图文 导读：就爱阅读网友为您分享以下“仓库管理信息系统_图文”的资讯，希望对您有所帮助，感谢您对92的支持! begin if dbedit1.Text lt;gt; #39;#39; then begin queryc := TADOquery.Create(self); queryc.Connection:= data.ADOConnection1; queryc.SQL.Text := #39;select * from 仓库表 where 仓库名称=quot;#39; + dbedit3.Text + #39;quot;#39; ; queryc.open; if not queryc.Eof then begin MessageBox(handle, #39;此仓库名称已存在!#39;, #39;提示#39;, mb_IconInformation + mb_Ok); ADOcarbine.Cancel; exit; end else begin ADOcarbine.Post; SpeedButton1.Caption := #39;添 加#39;; SpeedButton2.Caption := #39;更 新#39;; SpeedButton3.Visible := true; end; end else begin MessageBox(handle, #39;请输入仓库名!#39;, #39;提示#39;, mb_IconInformation + mb_Ok); dbedit3.SetFocus; exit end; end; end; procedure Tcarbine.SpeedButton3Click(Sender: TObject); begin if ADOcarbine.recordcount = 0 then begin application.MessageBox(#39;已无记录可删除#39;, #39;仓库管理系统#39;, mb_iconinformation + mb_defbutton1); exit; end; if application.MessageBox(#39;请确认是否要删除#39;, #39;仓库管理系统#39;, mb_iconinformation + mb_yesno) = idyes then