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 · 982 阅读 · 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 · 784 阅读 · 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 · 373 阅读 · 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 · 285 阅读 · 1 评论 -
delphi 用pagecontrol控件制作登陆跳转界面
右键TabSheet空白处,即可建立New Page。 旁边的三个ADO控件是每个TabSheet都共有的。 可在属性处设置TabVisible使得界面上的TabSheet2是否显示出来。 不在同一个界面的控件但都属于Form1。 注意SQL语句中Edit.Text是否搭配正确。 TabSHeet2.Show;...原创 2019-03-27 17:08:12 · 1840 阅读 · 0 评论 -
Delphi 7.0连接Mysql数据库,并在delphi窗体上显示
防止自己忘记,转载自:https://blog.csdn.net/jessy_tien/article/details/79085937转载 2019-03-27 17:12:58 · 317 阅读 · 0 评论 -
delphi 简单界面设计总结
panel控件:相当于一个容器,可将其他控件放在它上面。更改它的Align属性,可自动使其处于界面的上下左右中位置,且鼠标拖动后不会改变其位置。Color可改变panel的颜色。也可直接设置其RGB:Panel.Color:=RGB(200,200,200);BevelOuter属性设置成bvNone可去掉panel的边框。pageControl控件:在panel上放...原创 2019-04-09 16:43:56 · 2787 阅读 · 0 评论