摘要:theGetValue:= StrToInt(DbgridEh.GetFooterValue(0,DbgridEh.Columns[1]));GetFooterValue(Footer行,列)Footer行为0时,表示footer的第一行
阅读全文
摘要:uses Printers示例代码如下------------------vari : Integer;prn : TPrinter;begin try prn := Printer(); for i:=0 to prn.Printers.Count-1 do begin QuickRep.PrinterSettings.PrinterIndex := i; QuickRep.Print; end; finally end;end;____________
阅读全文
摘要:用 运行 regsvr32.exe midas.dll 如果MIDAS没放在System32中 用 Regsvr32 MIDAS.DLL的路径
阅读全文
摘要:DateDiff 在ACCESS与SQL中的区别返回 Variant (Long) 的值,表示两个指定日期间的时间间隔数目。语法DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]]) DateDiff 函数语法中有下列命名参数: interval 必要。字符串表达式,表示用来计算date1 和 date2 的时间...
阅读全文
摘要:procedure TForm1.Button1Click(Sender: TObject);var theCNN : TSQLConnection;//定义连接,要引用 DB, SqlExprbegin theCNN := TSQLConnection.Create(self); theCNN.LoginPrompt := False;//关闭登入窗口 theCNN.Params.Clear; ...
阅读全文
摘要:select CONVERT(varchar, getdate(), 120 ) 2004-09-12 11:06:08 select CONVERT(varchar(10), datatime1, 120 )2004-09-12 select CONVERT(varchar(4), datatime1, 120 )+'年'+substring(CONVERT(varchar(10), datat...
阅读全文
摘要://同步SQL_Server服务器时间日期的过程procedure TDM.SynchronizationSQLServerDateTime();var TheServerDateTime:TDateTime;//定义服务器时间 TheLocalDateTime:_SystemTime;//定义本地系统时间 引用 windows Year,Month,Day:Word;//定义年月日 Hour,M...
阅读全文
摘要:clientdataset.open;clientdataset.EmptyDataSet;---------------------------------
阅读全文
摘要:Select top 10 From 表 Order By NewID(); ----------------------------------------------- 这个NewID()是MSSQL的自带函数,就是产生乱序的. 如果要乱序整个表就这样 Select * From 表 Order By NewID(); ----------------------------------...
阅读全文
摘要:什么叫交叉报表???交叉报表是做什么用的?怎么用? ①交叉报表对像是一个网络,根据指定条件的返回值,将数据显示在压缩行与列中 ②,它由三个元素组成,行,列,摘要, 如,把所有销售,按大类区分,并统计大类的和,压成另一个表,这程情况就要用到交叉表 --------------------------------------------------------------------------...
阅读全文
摘要:下列语句部分是Mssql语句,不可以在access中使用。 SQL分类: DDL—数据定义语言(CREATE,ALTER,DROP,DECLARE) DML—数据操纵语言(SELECT,DELETE,UPDATE,INSERT) DCL—数据控制语言(GRANT,REVOKE,COMMIT,ROLLBACK) 首先,简要介绍基础语句: 1、说明:创建数据库 CREATE DAT...
阅读全文
摘要:procedure TForm_main.DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState); begin if (trim(DataModule1.ADOQuery1...
阅读全文
摘要:GroupBy的用法 Group By 是分组,当字段中有一样的记录时,用Group By 后,只会出现一条记录,这在做同类统计的时候特有效, 如:统计所有的大类销售,这时就必须用Group By Select 酒水大类, Sum(价格) as [销售] From 点单表 Group By 酒水大类 Order By 销售
阅读全文
摘要:Decision控件 1,Delphi中提供了大量的决策图表控件 Decision->决策,决断 Cube->立方体 Chart->图表 Series->系列 TeeChart->T型图表 Gallery->图库 Axis->轴线 Gradient->渐变 Legend->图例 传奇 Delphi7中 TChart组件---------->Additional TDBChart组件---...
阅读全文
摘要:DBGRID列描红(用于特殊数据行的显示,不因RowSelect->True而改变) procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); procedure Drawnu...
阅读全文
摘要:单条件多字段查询 procedure TForm1.ADODataSet1FilterRecord(DataSet: TDataSet; var Accept: Boolean); var i:Integer; begin if Edit1.Text = '' then Exit; Accept := False; for i := 0 to DataSet.F...
阅读全文
摘要:DBGRID标题排序上放↑ procedure TF_StockReport.FlatDBGrid1TitleClick(Column: TColumn); var TheTitleName:string; begin if DM.GoodsInfo.IsEmpty then Exit; TheTitleName:=Column.Title.Caption; if Pos('...
阅读全文
摘要:关联表查询 关联表查询有如下二种方法, ①内关联, ②外关联 关联表查询,首先有个条件,就是,二个表中必须要有一个字段的属性,与值是相同的,其核心思想,就是把二个表中有关系的数据合并成一个表 1,内关联 Select A.人员姓名,B.人员工资 From 表A(人员信息表),表B(工资表) Where A.人员编号=B.人员编号 B表中可以没有人员姓名,只有人员编号,这样得出的合并表为:人员...
阅读全文
摘要:SQL如何向应用程序发送消息? RaisError('出错拉!来自SQL-Server',16,1) 这是的16表示级别,可以更改,1表示状态,可以更改,后面二个数,必须写! 这个函数,在结合触发器使用时,当库存少于多少,就向应用程序提出一个报警,很好用 当某些字段或值不许更改时,也可以向应用程序报告消息
阅读全文
摘要:SQL处理方案数据处理方案 数据处理方案分2种: ①应用程序数理处理方案,这种是数常用的,处理数据主要使用数据库控件及代码实现 ②SQL数据处理方案,数据处理的大部分工作放在SQL服务器,使用触发器,存储过程等,应用程序主要向SQL服务器发送调用叁数 1,Delphi中能执行存储过程的控有二种 ①StoredProc 这类组件BDE里有,DBG里有,DBExpress也有 ...
阅读全文