06 2011 档案

仿药易通输入单位信息后如果没有则自动加入功能
摘要：procedure TfrmCargoInfo.RzComboBox2Exit(Sender: TObject);begin inherited; if Pos((RzComboBox1.Value), (RzComboBox1.Values.Text)) = 0 then begin if MessageBox(Handle, '您需要把当前数据追加到信息库中吗？', '请你确认', MB_ICONQUESTION + MB_YESNO) = 6 then begin //写信息到相关的数据库中去 RzComboBox1.Items.Add(RzComboBo 阅读全文
posted @ 2011-06-06 21:55 bingege 阅读(197) 评论(0) 推荐(0)