![](https://img-blog.csdnimg.cn/20201014180756928.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi
kisssfish
这个作者很懒,什么都没留下…
展开
-
Delphi中ini配置文件读写
procedure TForm1.Button1Click(Sender: TObject);//点击按钮 begin login(Edit1.Text,Edit2.Text); //传入两个编辑框中输入的值 end; procedure TForm1.login(account,password:String); var ini:TIniFile; //定义一个ini文...原创 2019-03-20 17:05:55 · 971 阅读 · 0 评论 -
Delphi ADOQuery查询用户是否存在
procedure TForm1.Bt_findClick(Sender: TObject); var i,count:Integer; result:Boolean; begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('select * from user where id=:m_id') ; //...原创 2019-03-22 15:51:54 · 756 阅读 · 0 评论 -
delphi ADOQuery添加用户及密码
procedure TForm1.bt_addClick(Sender: TObject); begin ADOQuery1.Close; ADOQuery1.SQL.Clear; //ADOQuery1.SQL.Text:='Insert into user(id,password) values(:id,:password)'; ADOQuery1.SQL.Add('inse...转载 2019-03-22 16:41:14 · 349 阅读 · 0 评论 -
delphi ADOQuery查询更改用户
procedure TForm1.bt_deleteClick(Sender: TObject); begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('delete from user where id='''+Edit1.Text+''' and password='''+Edit2.Text+''''); ...原创 2019-03-22 17:18:06 · 273 阅读 · 1 评论 -
delphi 用pagecontrol控件制作登陆跳转界面
右键TabSheet空白处,即可建立New Page。 旁边的三个ADO控件是每个TabSheet都共有的。 可在属性处设置TabVisible使得界面上的TabSheet2是否显示出来。 不在同一个界面的控件但都属于Form1。 注意SQL语句中Edit.Text是否搭配正确。 TabSHeet2.Show; ...原创 2019-03-27 17:08:12 · 1798 阅读 · 0 评论 -
Delphi 7.0连接Mysql数据库,并在delphi窗体上显示
防止自己忘记,转载自:https://blog.csdn.net/jessy_tien/article/details/79085937转载 2019-03-27 17:12:58 · 298 阅读 · 0 评论 -
delphi 简单界面设计总结
panel控件: 相当于一个容器,可将其他控件放在它上面。 更改它的Align属性,可自动使其处于界面的上下左右中位置,且鼠标拖动后不会改变其位置。 Color可改变panel的颜色。也可直接设置其RGB:Panel.Color:=RGB(200,200,200); BevelOuter属性设置成bvNone可去掉panel的边框。 pageControl控件: 在panel上放...原创 2019-04-09 16:43:56 · 2745 阅读 · 0 评论