integer li_fnum, li_bytes
blob Emp_Id_Pic
li_fnum = FileOpen("C:/HR/EMP_PIC1.BMP",StreamMode!)
li_bytes = FileRead(li_fnum, Emp_Id_Pic)
///
Pb9自定义纸张
最新发现:Pb9自定义纸张竟如此简单,就三条语句
dw_1.Object.Datawindow.Print.Custompage.Length = "100"
dw_1.Object.Datawindow.Print.Custompage.Width = "200"
dw_1.Object.Datawindow.Print.Paper.Size = "256"
以上定义了个高10厘米,宽20厘米的纸张。
//
怎样改变某行某列的背景色?
dw_1.Modify("unit_price.background.color = '11665407 ~t if(getrow()=" + string(i) + ",rgb(0,255,0),rgb(255,255,255))'")
//
select count (*) into :li_count8 from ygml where year(rbdwsj) =year(getdate( )) using sqlca;
请问这一句有问题么
我想找出当年所有的数据
即只要是2008年的都显示出来
2007-01-01
2008-01-01
2008-02-01
即显示两条??
要看rbdwsj是个什么类型的,如果是datetime,smalldatetime,可以:
select count (*) into :li_count8 from ygml where datediff( year, rbdwsj, getdate() ) = 0 using sqlca;
如果是char,varchar
select count (*) into :li_count8 from ygml where substring(rbdwsj, 1, 4) = convert(char(4), getdate(), 120) using sqlca;
/
在pb中怎么将sql执结果直接存入txt中??
用SQL动态创建个DW,然后dw.saveas('c:/aaa.txt')
/
dw_1.setfilter("(code like '%"+em_1.text+"%') and (deport_top_good = 2)")
/
做一个单行编辑框,输入单位编号,假设编号长度是8位,我输入"123",点击回车后,编辑框内自动填充为"00000123",代码应该怎么写呢?
我写了一个fill("0",8) 并加入到keydown事件中,但是运行无效。
放到editchanged事件里面
text=fill('0',8 - len(text)) + text
//
pb里将表a中的一条记录的值复制到另外一条记录就用一个update语句能实现吗
例 表 a
id name sex age
001 张三 男 20
002 0 0 0
结果为 表 a
id name sex age
001 张三 男 20
002 张三 男 20
update a
set a.[name]=b.[name],a.sex=b.sex,a.age=b.age
from a,a b
where a.id='002' and b.id='001'
/
today()是powerscript脚本中的函数.
getdate()是sql server/sybase的取系统时间.
sysdate是oracle的系统时间.
不同的数据库需要的不同的函数
以下为sql server的.
--当天
select count(*) into :li_count from employee where convert(varchar(10),出生日期,120)= convert(varchar(10),getdate(),120);
--本月
select count(*) into :li_count from employee where month(出生日期)= Month(getdate());
///
Pb的datewindow 保存为Excel的语句,可是不知道哪里出错了,if语句里面的内容没有执行.无法达到保存效果.
OLEObject xlapp,xlsub
long ll_cols,ll_rows,ll_cnt1,ll_cnt2
xlapp = Create OLEObject
if xlapp.ConnectToNewObject("Excel.Sheet") < 0 then
MessageBox("Caption","Connection failed!")
return
end if
//ll_cols = long(adw_datastore.Object.DataWindow.Column.Count)
//ll_rows = adw_datastore.RowCount()
//xlapp.Application.WorkBooks.Open("C:/bm.xls") //可以指定路径打开文件
xlapp.Application.WorkBooks.Add
xlApp.Application.Visible = false
/
xlsub = xlapp.Application.ActiveWorkbook.Worksheets[1] //指定第几个sheet
clipboard(dw_1.describe('datawindow.data')) //其实你把此处修改一下就可以达到你的要求
xlsub.paste() //其实你把此处修改一下就可以达到你的要求
xlapp.Application.ActiveWorkbook.saved = false
xlapp.Application.activeworkbook.saveas("c:/test.xls") //可以动态选择保存路径、名称
xlapp.Application.WorkBooks.Close()
xlapp.DisConnectObject()
Destroy xlapp
//测试表create table test_jpg( id int identity(1,1), jpg image )
//做个计算域字段,计算公式:bitmap(string(id) + '.jpg') //id为主键列
//dw的retrieveend事件代码:
Long ll_id
Blob lb_image
Integer li_FileNum, i
This.SetRedraw(False)
FOR i = 1 To RowCount()
//取主键ID
ll_id = This.Object.id[i]
//取图片
SelectBlob jpg Into :lb_image From test_jpg Where id = :ll_id;
//存图片到硬盘上
li_FileNum = FileOpen( String(ll_id) + '.jpg', StreamMode!, Write!, Shared!, Replace!)
FileWrite(li_FileNum, lb_image)
FileClose(li_FileNum)
NEXT
This.SetRedraw(True)
///
this.text = string(date(trim(this.text)), 'yyyy年mm月dd日')
不管用户输入的是哪种格式,如:2008.1.2、2008-01-2、08.2.3,都会自动转换。
如果用户输入的日期不正确,则会转换成1900年01月01日。
//
///
//
//string qy
//qy = "(" + "用户名" + "=" + "'" + sle_1.text + "'" + ")" + "and"+ "(" + "用户口令" + "=" + "'" + sle_2.text + "'" +")"
//dw_1.Setfilter(qy)
//Filter(dw_1)
///查询按钮
String ls_Old,ls_New
//获得数据窗口的SQL查询语句
ls_Old = dw_1.GetSQLSelect()
//得到新的SQL语句
ls_New=ls_Old+" WHERE "+ddlb_1.text+&
ddlb_2.text+"'"+sle_1.text+"'"
//为数据窗口设置新的SQL语句
IF dw_1.SetSQLSelect(ls_New) = -1 THEN
MessageBox("警告","查询失败!",StopSign!)
ELSE
dw_1.SetTransObject(sqlca)
dw_1.Retrieve()
dw_1.SetSQLSelect(ls_Old)
END IF
///
///chkdsk x: /r
String sid, sname, ssex, sdepartment
int sage
// 声明游标StuCursor
DECLARE StuCursor CURSOR FOR
SELECT id, name,sex,age
FROM student
WHERE department = : sdepartment ;
sdepartment = sle_1.text // 要查询的家庭地址
lb_1.reset() // 清除ListBox中内容
open StuCursor;//打开游标
// 提取数据
FETCH StuCursor INTO :sid,:sname,:ssex,:sage;
DO WHILE SQLCA.SQLCODE = 0
//将读取的数据加到ListBox中
lb_1.additem(sid+" "+sname+" "+ssex+" "+String(sage))
// 继续提取下一条记录数据
FETCH StuCursor INTO :sid,:sname,:ssex,:sage;
LOOP
Close StuCursor;