显示登陆窗体前加载一个动态框，如正在载入资源之类的,内容自己定义吧。 Application.Initialize; Form2:=TForm2.Create(Application);{Create创建闪现窗口对象} Form2.Show; Form2.Update; Application.CreateForm(TForm1, Form1); Sleep(1000); Form2.Hide; Form2.Free;{Free从内存中释放对象} Application.Run;
标签： delphi7
[代码]密码最多输入三次出错退出
这个是登录窗口的一个验证机制，写法很多种，这是其中一种。 procedure TFrmOrderBy.BtnOrderClick(Sender: TObject); begin if Length(EdtPassWord.Text) = 0 then Exit; with AQuery do begin Close; SQL.Clear; SQL.Add('select pwdcompare(:Pass,loginpassword) from login where loginname
[代码]窗体关闭时提示变动的保存
如果窗体有数据操作，在未保存时关闭窗体，进行一个提示。 procedure TFrmSave.FormCloseQuery(Sender: TObject; var CanClose: Boolean); //窗体关闭时提示变动的保存 begin if ADODataSet1.State in [dsInsert, dsEdit] then begin if MessageBox(0, '发现未保存的数据，需要保存吗？', '', MB_YESNO + M
[代码]清除容器内的组件内容
最近翻阅了以前delphi7时代的部分书籍和源码，发现有些东西和源码还是值得借鉴的，特摘录下来，备用。 procedure TFrmSave.ClearItem; //清除容器内的组件内容,容器按自己需要改变 var i: Integer; begin for i := 0 to GBxList.ControlCount – 1 do //选择容器 GBxList begin if GBxList.Controls[i] is TEdit then TEdit(GBxList.Controls[
Fastreport下出现的一点问题
运行Fastreport时。报表在showreport 出现 cannot use the same dataset for report.dataset and Band.DataSet。 解决方法： 不要设置 frxReport1 的 dataset 属性 ， 在设计数据报表时先引入数据源：打开报表设计器==〉选择菜单[表表]==> [数据…]==>选取报表数据库就可以了 最后要保存才会生效。
关于FastReport运行时报错“Class TfrxRichView not found”的问题
解决的办法是将FastReport控件面板中的TfrxRichObject控件拖放到窗体中即可，对于其它类似的报不到类的错误也可这样处理。 还有一个办法就是直接在Interface中uses对应的单元，TfrxRichObject对应的单元是frxRich。
Delphi CDS 加载类型库/DLL时出错的解决方法
把原来的三层架构的程序搬家到服务器上（win2008系统），在服务器上运行服务端程序均正常， 但是运行客户端远程连接时出现“加载类型库/DLL时出错”提示。 看客户端程序运行的过程应该是已经连接到远程服务器，应该是系统调用某个默认的系统文件时出现版本不同造成的， 会不会跟三层连接的Midas.dll有关呢，试试吧！ 拷贝本地的Midas.dll到服务器的C:\w