- 博客(20)
- 资源 (9)
- 收藏
- 关注
RSS订阅转载 DBGridEh导出数据
ar ExpClass: TDBGridEhExportClass; Ext: string;begin if ciqry.Active then begin DBGridEh1.SetFocus; SaveDialog1.Filter := 'xls工作簿(*.xls)|*.xls|'; //'xls工作簿(*.xls)|*.xls'+
2011-12-15 16:54:30
1253
转载 动态调整DDBGridEh例宽度
dbgrideh的events事件组下，找到oncolwidthschanged事件procedure TForm1.DBGridEh1ColWidthsChanged(Sender: TObject);vari:Integer;begin //动态调整DDBGridEh例宽度 for i := 0 to DBGridEh1.Columns.Count - 1 do be
2011-12-15 15:23:18
662
转载 SQL Server 定时作业的制定
---2000企业管理器--管理--SQL Server代理--右键作业--新建作业--"常规"项中输入作业名称--"步骤"项--新建--"步骤名"中输入步骤名--"类型"中选择"Transact-SQL 脚本(TSQL)"--"数据库
2011-08-22 17:31:16
763
转载 创建角色，用户，权限
创建角色，用户，权限/*--示例说明 示例在数据库pubs中创建一个拥有表jobs的所有权限、拥有表titles的SELECT权限的角色r_test 随后创建了一个登录l_test，然后在数据库pubs中为登录l_test创建了用户账户u_te
2011-08-12 15:25:27
557
原创 CXgrid获取列的全部值
vari:Integer;begin for i := 0 to cxGrid2DBTableView1.DataController.RecordCount-1 do begin ShowMessage(cxGrid2DBTableView1.Dat
2011-07-13 17:48:04
719
原创 dd
<br />procedure TSetForm.SavebtClick(Sender: TObject);<br />begin<br /> with DataFrm.ADOQuery do<br /> begin<br /> Close;<br /> SQL.
2011-05-30 23:19:00
534
原创 学习SQL日记--case a when 1 then x when 2 then y else a end
<br />declare@tabletable (a varchar(2),b varchar(2))<br />insertinto@table<br />select'cc','a1'unionall<br />select'cc','b2'<br /><br />select a,casewhen a='cc'and b='a1'then'b5'else b endas b from@table<br /><br />/*<br />a b<br />---- ----<br />cc b
2011-05-05 14:20:00
729
原创 SQL按日期来查询
<br />select * from rm_yjs where convert(char(10),yjs_date,23) like '2011-04-29'
2011-05-03 11:10:00
689
原创 delphi操作excel
<br />var v: Variant; y: Integer;Begin If OpenDialog1.Execute Then begin v := CreateOleObject('Excel.Application'); try v.Workbooks.Open(OpenDialog1.FileName); v.WorkSheets[1].Activate; y:=v.ActiveSheet.UsedRange.Rows.Count;
2011-04-28 10:28:00
740
转载 SQL语句导入导出大全
<br />SQL code--SQL语句导入导出大全 /******* 导出到excel EXEC master..xp_cmdshell ’bcp SettleDB.dbo.shanghu out c:/temp1.xls -c -q -S"GNETDATA/GNETDATA" -U"sa" -P""’ /*********** 导入Excel SELECT * FROM OpenDataSource( ’Microsoft.Jet.OLEDB.4.0’, ’Data Sourc
2011-04-27 13:30:00
591
转载 SQL语句导入导出大全
<br />SQL code--SQL语句导入导出大全 /******* 导出到excel EXEC master..xp_cmdshell ’bcp SettleDB.dbo.shanghu out c:/temp1.xls -c -q -S"GNETDATA/GNETDATA" -U"sa" -P""’ /*********** 导入Excel SELECT * FROM OpenDataSource( ’Microsoft.Jet.OLEDB.4.0’, ’Data Sourc
2011-04-27 13:29:00
447
原创 SQL语句嵌套最好用quotedstr函数替换
<br />dmcc.delete_rm_zjfhsj.add('select 数量 from rm_zjfhsj where 类型='CTO'');dmcc.delete_rm_zjfhsj.SQL.add('select 数量 from rm_zjfhsj where 类型='+quotedstr('CTO'));凡是内引号对，最好用quotedstr函数替换
2011-04-23 11:46:00
1029
原创 SQL发送邮件
SQL Server 并没有内置邮件服务器（Mail Server），它跟我们发送邮件一样，需要用户名和密码通过 SMTP（Simple Message Transfer Protocol）去连接邮件服务器。我们想让 SQL Server 来发送邮件，首先要告诉它用户名称，密码，服务器地址，网络传送协议，邮件服务器的端口。。。等信息。 以下脚本实现了数据库邮件的配置：--下面是具体的配置邮件步骤 --在 sa 系统帐户下运行。 ----1. 启用 SQL Server 2005 邮件功
2011-04-22 15:25:00
3217
1
转载 多where条件查询
<br />-- ???<br /><br />createtable tb<br />(<br /> 工厂 varchar(10),<br /> 库地 int,<br /> 类型 varchar(10),<br /> 属性 varchar(10),<br /> SKU varchar(10),<br /> 批次 varchar(10),<br /> 名称 varchar(10),<br /> 入库时间 datetime,<br /> 数量 int,<b
2011-03-29 16:19:00
899
原创 excel数值类型转换为文本
<br />excel数值类型转换为文本 A例数据<br />Sub trimer()<br /> With Sheets("sheet1")<br /> ar = .[a1].CurrentRegion<br /> For i = 1 To UBound(ar)<br /> ar(i, 1) = trim(ar(i, 1))<br /> Next<br /> .[a1].Resize(UBound(ar)) = ar<b
2011-03-25 21:24:00
2314
原创 学完这个你就成为excel高手了！（Delphi对Excel的所有操作）逐个试试！
<br />学完这个你就成为excel高手了！（Delphi对Excel的所有操作）逐个试试！<br /> <br />一) 使用动态创建的方法 <br /><br />首先创建 Excel 对象，使用ComObj: <br />var ExcelApp: Variant; <br />ExcelApp := CreateOleObject( 'Excel.Application' ); <br /><br />1) 显示当前窗口： <br />ExcelApp.Visible := True; <br /
2011-03-25 11:43:00
12596
转载 DBGrid 各属性的设置
<br />在 Delphi 语言的数据库编程中，DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实，我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观的目的。通过编程，我们可以改变 DBGrid 的表头、网格、网格线的前景色和背景色，以及相关的字体的大小和风格。<br /> 以下的示例程序演示了对 DBGrid 各属性的设置，使 Delphi 显示的表格就像网页中的表格一样漂亮美观。<br /> 示例程序的运行：<br /> 在
2011-03-24 11:27:00
15840
1
原创 2010-03-22记!
<br />form1.memo1.lines.Clear; //清空MEMO1<br /> <br />form1.OpenDialog1.execute;<br />form1.Memo1.Lines.LoadFromFile(form1.OpenDialog1.filename); //设置打开文件<br /> <br />form1.saveDialog1.execute;<br />form1.Memo1.Lines.savetoFile(form1.saveDialog1.filename);<
2011-03-22 13:35:00
613
原创 DELPHI颜色常量
<br />颜色常量.<br /> 在DELPHI中除了可以使用RGB(R,G,B)颜色以外,还可以使用系统中给定的颜色常量.<br /> 例:EDIT1.COLOR:=CLRED;<br /> 颜色常量有:<br /> CLAQUA浅绿色.<br /> CLBLACK黑色.<br /> CLBLUE蓝色.<br /> CLDKGRAY灰黑色.<br /> CLFUCHSIA紫红色.<br /> CLGRAY灰色.<br /> CLGREEN绿色.<br /> C
2011-03-21 21:11:00
1559
转载 DBGrid、DBGrideh专题总结
<br />打印dbgrid数据：<br />//==============================================================================<br />//打印DBGrid中的所有数据********************************************************<br />//===================================================================
2011-03-18 15:35:00
687
Delphixe7三层连接手机app开发demo
2014-11-29
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人