打开文件失败的容错提示语句 try if OpenDialog1.Execute then begin MyList.Clear; MyList.LoadFromFile(OpenDialog1.FileName); end; except on E:EReadError do ShowMessage('打开文件失败'); end; //防止程序假死 Application.ProcessMessages; //删除记录时提示的语句 try with TADOQuery.Create(nil)
选择语句: 1.If-Then-Else选择语句: If (表达式) Then Begin 语句块; End Else If(表达式) Then Begin 语句块; End; Else Begin 语句块; End; 2.Case-Of-Else多分支控制语句: Case (表达式) Of 情况常量值1:语句; 情况常量值2:语句; 情况常量值3:语句; -- 情况常量值n:语句; Else: 语句; End; 循环语句 1. While-do循环 While (表达式) do 语句 End;
近日,由于业务需要导出sql server 数据到DBF文件,要查询多表记录,并适当处理后生成导出DBF文件,系统使用delphi2010平台开发. 首先按要求在VFP里创建DBF表,字段数有240个,作为样表,导出时取样表通过文件流拷贝一个新表,并按要求规则命名,拷贝一份新表使用: procedure copyfile(sfile,tfile:String); var f1,f2: tfilestream ; begin f1:=Tfilestream.Create(sfile,fmopenr
代码如下: //需引用命名空间 using System.Data; using System.Data.SqlClient; class DBHelper { //定义数据库连接语句,连接语句书写方法参考(文章最后) public static string connstr = "Data Source=.;Initial Catalog=MobileDB;Integrated Security=True"; //创建数据库连接对象 public static SqlConnecti