日期函数,读取本月的最后一天和第一天 ................................................................................... 1
查询、添加、删除、修改 ............................................................................................................... 1
通过属性调整窗体大小 ................................................................................................................... 2
delphi 执行sql脚本文件(整理) ................................................................................................ 3
Delphi中分割字符串(整理) ....................................................................................................... 8
Delphi判断字符串是否是数字、字母、大小写字母 ................................................................. 15
利用命令开启Sql Server数据库服务和数据库 .......................................................................... 17
application.MessageBox的使用 .................................................................................................... 18
打印报表、打开报表控件
设计报表 ............................................................................................. 21
拼字符串......................................................................................................................................... 22
进行英文字母大小写转换 ............................................................................................................. 22
日期函数,读取本月的最后一天和第一天
procedure TForm1.FormCreate(Sender: TObject); var firstDay,lastDay:TDateTime; begin firstDay := StrToDate(FormatDateTime('yyyy-mm-1',Now)); (* 本月第一天 *) lastDay := IncMonth(firstDay)-1; (* 本月最后一天 *)
mmo1.Lines.Add(DateTimeToStr(firstDay)); mmo1.Lines.Add(DateTimeToStr(lastDay)); end;
end.
用DateUtils单元的StartOfTheMonth和EndOfTheMonth更方便。DateUtils有很多时间 日期相关的常用函数
查询、添加、删除、修改
Uses CoreSoapCtrlInf,Common,CoreSoapCtrl;
var
AClassFlag, AMetHod: string;
servletUrl: string;
ASoap: TISoapCtrl; begin Asoap := TSoapCtrl.Create; try servletUrl := RunParam.ServerURL; if length(servletUrl) <> 0 then ASoap.SetLocation(servletUrl); Asoap.SetSafeMode(RunParam.SECURITY_KEY,RunParam.USER_ID); AClassFlag := '';
AMetHod := '';
ASoap.Params.Clear;
cdsCheckInto.DisableControls;
ASoap.Params.NewParams;
ASoap.Params.AddParam('GROUP_ID', RunParam.GROUP_ID);
ASoap.Params.AddParam('RECEIVE_CODE', Trim(CheckInto.edRECEIVE_CODE.Text));
ASoap.Params.PostParams;
dpPage.RecordCount:= Asoap.ExecuteQuery(AClassFlag,
AMetHod,dpPage.PageNum,dpPage.PageSize,cdsCheckInto); //提交参数
finally
cdsCheckInto.EnableControls;
Asoap.Free;
end;
通过属性调整窗体大小
1.通过属性设置方法
使用Form的BorderIcon属性,我们可设置窗体是否具有系统菜单 (biSystemMenu)、 最小化按钮(biMinimize)、最大化按钮(biMaximize)和帮助按 钮(biHelp)。
BorderIcon属性的这4个子属性均只有True和False属性。默认情况下四个子 属性均为True。 若将biSystemMenu属性设置为False,则不管其他属性如何设置, 窗体此时不仅没有
系统菜单,连最大最小按钮也没有,窗体不