SQL Server 建表语句
摘要:IF EXISTS(SELECT * FROM sys.Tables WHERE name='stu_info') DROP TABLE stu_infoGoCreate table stu_info(stu_id int identity(1,1),name nvarchar(20)not null,birthday date null, sex nvarchar(2)null,addres nvarchar(20)null, mark int null,major nvarchar(20)null, sdept nvarchar(20)null ); Insert Into
阅读全文
XML解析、使用TreeView呈现效果
摘要:首先用到TXMLDocument控件;Memo来显示XML文件,TreeView来呈现元素;源代码:Procedure TForm2.Button1Click(Sender: TObject);Begin XMLDocument1.LoadFromFile('E:\template1.xml'); Memo1.Font.Size :=15; Memo1.Align := TAlignLayout.alLeft; Memo1.Lines := XMLDocument1.XML; {查看}End;Procedure TForm2.Button2Click(Sender: TObje
阅读全文
delphi XE5下 andriod 广告图片的demo
摘要:试了一下,关于好几个广告界面,左右滚动的效果:用TabControl 加上定时器实现即可。1、TTabControl外观TTabControl的外观由属性TabPosition控制,可选项包括:tpTop 选项tab在控件上方tpBottom 选项tab在控件下方tpNone 以原点形式显示...
阅读全文