当前位置: 源码素材网 » Delphi源码 » 控件组件 » 详情页

Delphi向SQL数据库保存前判断数据是否符合要求

Delphi向SQL数据库提交保存前判断输入数据是否符合要求,其实就是大家经常操作的输入检测,若某项数据不准确或未按要求,则会给出提示,直到符合要求。编写本示例需要用到:Dialogs, DB, StdCtrls, Buttons, Mask, DBCtrls, Grids, DBGrids, ADODB,
   ComCtrls, ToolWin, ImgList等相关类库。
  
  if strtoint(edit3.Text)>150 then
   showmessage('超出年龄范围,无法保存')
  else
   if not ((edit4.Text = '男') or (edit4.Text = '女')) then
   showmessage('性别无效')
   else
   if length(edit6.Text)>16 then
   showmessage('电话号码超长')
   else
   begin
   if judge = 1 then
   ADOQuery1.Insert;
   if judge = 2 then
   ADOQuery1.edit;
   ADOQuery1.fieldbyname('学生编号').AsInteger := strtoint(edit1.Text);
   ADOQuery1.fieldbyname('学生姓名').AsString := edit2.Text;
   ADOQuery1.fieldbyname('学生年龄').AsString := edit3.Text;
   ADOQuery1.fieldbyname('学生性别').AsString := edit4.Text;
   ADOQuery1.fieldbyname('所在大学').AsString := edit5.Text;
   ADOQuery1.fieldbyname('联系方式').AsString := edit6.Text;
   ADOQuery1.fieldbyname('出生年月').AsDateTime := DateTimePicker1.Date;
   ADOQuery1.fieldbyname('入学时间').AsDateTime := DateTimePicker2.Date;
   ADOQuery1.Post;
   judge := 0;
   FormShow(Sender);
   ToolButton1.Enabled := true;
   ToolButton2.Enabled := true;
   end;
  d;

  • 相关标签:DateTimePicker
  • 调试环境:Delphi7+
  • 文件大小:179K
  • 资源评级:
  • 更新时间:2020-12-28
  • 相关链接:暂无演示

源码测试截图:

Delphi向SQL数据库保存前判断数据是否符合要求运行截图

相似源码:DateTimePicker Delphi源码下载:Delphi向SQL数据库保存前判断数据是否符合要求 测试截图

下载声明:

本站资源仅供学习参考,禁止用于非法途径。若“Delphi向SQL数据库保存前判断数据是否符合要求”源代码侵犯了您的权益,请尽快告诉我们。