返回顶部
扶摇直上九万里,展翅高飞岂可待。

2023年3月7日

程序启动欢迎窗体制作方法

摘要: 在许多应用软件中,启动程序后,在主导界面出现之前,有一个一般以图象为主,文字为辅的画面,通常用来显示软件或公司的主题标志、软件名称、作者、版权和版本信息等,停留数秒或按了任意键后软件进入主导界面,这个画面称为Splash画面,意思为引人注目画面。这个画面的另外一个用处是在处理耗时进程时,为用户展示一 阅读全文

posted @ 2023-03-07 20:30 六十五度 阅读(93) 评论(0) 推荐(0) 编辑

复制文件

摘要: 在delphi里实现文件复制可以直接调用 copyfile(path1,path2,false); 其中path1为源文件名(包括路径),path2为目标文件名(包括路径); 注意path1,path2为char类型,如果是其他类型注意强制变类型 可以写成copyfile(pchar(path1), 阅读全文

posted @ 2023-03-07 20:28 六十五度 阅读(42) 评论(0) 推荐(0) 编辑

在Edti输入框里只能输入数字的控制

摘要: procedure TMainForm.Edit2KeyPress(Sender: TObject; var Key: Char); begin if not (key in ['0'..'9',#8]) then begin key := #0; showmessage('请您勿必输入数字'); 阅读全文

posted @ 2023-03-07 20:00 六十五度 阅读(13) 评论(0) 推荐(0) 编辑

DBGrid鼠标滚动控制

摘要: type procedure OnMouseWheel(Var Msg :TMsg;var Handled:Boolean);//注意,需先在type里声明 /////////////////////////////////////////////////////////////////////// 阅读全文

posted @ 2023-03-07 19:58 六十五度 阅读(43) 评论(0) 推荐(0) 编辑

delphi在ACCESS数据库里的生日查询的实现

摘要: 在ADOQuery的属性SQL里写下面的SQL语言 select * from XX表 where format(生日,'mm-dd')=:shengri 说明:上面的shengri可以写成任何东东,呵呵 在delphi里写下面的代码 ADOQuery.Parameters[0].Value:=fo 阅读全文

posted @ 2023-03-07 19:57 六十五度 阅读(61) 评论(0) 推荐(0) 编辑

模糊查询(能过滤掉不符合条件的数据)

摘要: 在输入框Edit输入数据时,能实时过滤掉不符合条件的数据 procedure TMainForm.Edit1Change(Sender: TObject); begin ADOQuery1.Active :=false; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add( 阅读全文

posted @ 2023-03-07 19:56 六十五度 阅读(32) 评论(0) 推荐(0) 编辑

获取文件名和所在目录的各种方法

摘要: 0.获取程序执行文件的所在目录 ExtractFilePath(Application.ExeName) 1.获取不带扩展名的文件名方法,利用ChangeFileExt函数修改传入参数的扩展为空,并不会对文件本身产生变更。 ChangeFileExt(ExtractFileName('D:\KK\T 阅读全文

posted @ 2023-03-07 19:55 六十五度 阅读(319) 评论(0) 推荐(0) 编辑

php 中几种while循环输出数据库中的数据代码

摘要: php 中几种while循环输出数据库中的数据代码 这段代码的功能是: 连接到一个 url 地址为localhost 、 端口为 3306 的mysql服务器上。 mysql服务器的帐号是"root",密码是"9999" mysql 服务器上有一个数据库 ok , 数据库里有一个表 abc。 表 a 阅读全文

posted @ 2023-03-07 19:53 六十五度 阅读(30) 评论(0) 推荐(0) 编辑

php连接access

摘要: <?php $connstr="DRIVER=Microsoft Access Driver (*.mdb);DBQ=".realpath("mydb.mdb"); $connid=odbc_connect($connstr,"","",SQL_CUR_USE_ODBC ); ?> 如上就建立了一个 阅读全文

posted @ 2023-03-07 19:52 六十五度 阅读(61) 评论(0) 推荐(0) 编辑

导航