摘要：
1，如果需要对话框模式打开的时候，可以把BoderStyle 设置为 bsDialog ; 2.如果不想让窗口上显示关闭，可以把BoderStyle 设置为 bsNone ; 阅读全文
摘要：
edit1.clear; edit1.text:=''; MaskEdit2.text:=''; memo1.lines.clear; query2.close; listbox2.items.clear; radiogroup1.itemindex:=-1; checkbox2.state:=cbunchecked; combobox1.clear; button1.enab... 阅读全文
摘要：
unit ULogin; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons; ... 阅读全文
摘要：
效果： 源码： 阅读全文
摘要：
效果： 源码： 阅读全文
摘要：
1，增加： insert into 表名 (字段名1,字段名2，字段名3) values (值1，值2，值3); 示例： （1，） （2，） 2，修改： update 表名 set 字段名='字段值'； 示例： （1，） （2，） 3,删除： delete from 表名 where 字段1='值1 阅读全文
摘要：
效果：如果登陆正确跳转到主界面，如果登陆不进去关闭或者重新登陆。 第1种思路：同时验证账号和密码是否对再判断，只判断一种情况即可；即都不对的时候提示； 第2种方法：分别判断账号是否存在，密码是否错误 附注： 在主窗口的onactive事件中添加： 阅读全文
摘要：
写法1：直接把变量值包含在sql的表达式中； 写法2：用参数 阅读全文
摘要：
var MyAdoq: TADOQuery; begin MyAdoq := TADOQuery.Create(nil); MyAdoq.Connection := frmDataPool.ADOConnection1; with MyAdoq do begin Close; SQL.Text := '具体的执行语句'; ExecSQL; end; MyAdoq.Free; e... 阅读全文
摘要：
注意：软件用的数据库是options里面设置的路径里放置的数据库，而不是存放单元文件夹目录里的： 郁闷，因为这里搞错了，总是造成数据测试无法获取到对不上，结果无法前进，，， 阅读全文