code.txt

pb开发的代码的PB仓库管理系统的开发（全套）

显示
//if  not sle_1.text="" then
//	dw_1.retrieve(sle_1.text)
//end if
datetime aa
string bb
string abc

//if  not sle_1.text="" then
//	dw_1.retrieve(sle_1.text)
//end if

//if sle_1.text='' then
//	messagebox("dkd",'')
//else
//	bb=string(sle_1.text)
//	abc='date(rq)=date("'+sle_1.text+'") and string(bs)=string("b")and string(bc)=string("'+sle_3.text+'")'

	abc=' string(xz)=string("04")'
	//messagebox("",abc)
	dw_1.SetFilter(abc)
	dw_1.filter()
	dw_1.Retrieve()and string(bs)=string("b")
//end if


清除
dw_1.reset()


打印
dw_1.print()

返回
close(parent)

===============================
abc='day(date(rq))=day(date("'+sle_1.text+'")) '
abc='year(date(rq))=year(date("'+sle_1.text+'"))'
abc='month(date(rq))=month(date("'+sle_1.text+'"))'

查询（按）
//if  not sle_1.text="" then
//	dw_1.retrieve(sle_1.text)
//end if
datetime aa
string bb
string abc

//if  not sle_1.text="" then
//	dw_1.retrieve(sle_1.text)
//end if

if sle_1.text='' then
	messagebox("dkd",'')
else
	bb=string(sle_1.text)
       abc='day(date(rq))=day(date("'+sle_1.text+'")) '
abc='year(date(rq))=year(date("'+sle_1.text+'"))'
abc='month(date(rq))=month(date("'+sle_1.text+'"))'
	//messagebox("",abc)
	dw_1.SetFilter(abc)
	dw_1.filter()
	dw_1.Retrieve()
end if

组合查询（按）
datetime aa
date bb
string b1
string b2
string b3
string abc

//if  not sle_1.text="" then
//	dw_1.retrieve(sle_1.text)
//end if

if sle_1.text='' then
	messagebox("dkd",'请输入查询条件!')
else
//	bb=date(sle_1.text)
//abc='string(xsdmm)=string("'+sle_1.text+'")and string(xn)=string("'+sle_2.text+'")and string(xq)=string("'+sle_3.text+'")and string(bj)=string("'+sle_4.text+'")'
	//messagebox("",abc)
	abc='string(xsdmm)=string("'+sle_1.text+'")and string(bs)=string("b")'
	//messagebox("",abc)
	dw_1.SetFilter(abc)
	////dw_1.filter()
	dw_1.Retrieve()
end if


库存查询


//if  not sle_1.text="" then
//	dw_1.retrieve(sle_1.text)
//end if
datetime aa
string bb
string abc

//if  not sle_1.text="" then
//	dw_1.retrieve(sle_1.text)
//end if

if sle_1.text='' then
	messagebox("dkd",'')
else
	bb=string(sle_1.text)

	abc='string(zlbh)=string("'+sle_1.text+'")'
	//messagebox("",abc)
	dw_1.SetFilter(abc)
	dw_1.filter()
	dw_1.Retrieve()
end if



==========================
条件

int i
string s_criteriaoveride_edit
//dw_1.dataobject = gs_dwname
dw_1.settransobject(sqlca);
dw_1.setrowfocusindicator(hand!)

dw_1.modify("datawindow.querymode=yes")

//s_criteriaoveride_edit = " scrq.criteria.override_edit=yes"
//	for i = 1 to 40
//	s_criteriaoveride_edit = "#"+string(i) + ".criteria.override_edit=yes"
//	dw_1.modify(s_criteriaoveride_edit)
//   next
//dw_1.modify("pqbm.criteria.required = yes")
dw_1.SetFocus ()
dw_1.modify("datawindow.readonly = no")
=================================+++++++++++++++++++
添加
//integer li_rowinserted
//li_rowinserted=dw_1.insertrow(0)
//dw_1.scrolltorow(li_rowinserted)
integer li_rowinserted
li_rowinserted=dw_1.insertrow(0)
dw_1.scrolltorow(li_rowinserted)

删除dw_1.deleterow(0)
退出close(parent)
检索dw_1.retrieve()
窗体  dw_1.settransobject(sqlca)
插入
integer li_rowinserted
li_rowinserted=dw_1.insertrow(dw_1.getrow())
dw_1.scrolltorow(li_rowinserted)

保存
//commit using sqlca;
//if sqlca.sqlcode <> 0 then
//	messagebox("保存数据","数据提交没有成功，检查后继续！")
//end if
//integer li_returncode
//li_returncode=dw_1.update()
//if li_returncode<>0 then
//	commit using sqlca;
//else
//	rollback using sqlca;
//end if
//integer li_returncode
//li_returncode=dw_1.update()
//if li_returncode>0 then
//	commit using sqlca;
//else
//	rollback using sqlca;
//end if
integer li_returncode
li_returncode=dw_1.update()
if li_returncode>0 then
	commit using sqlca;
else
	rollback using sqlca;
end if

 
清除
sle_1.text=""
dw_1.reset()

打印
dw_1.print()

主退出
disconnect;
close(parentwindow)
设置打印机
printsetup()
输入查询日期：

设备出库信息查询
清除
sle_1.text=""
dw_1.reset()
 打印dw_1.print()
 退出close(parent)
 窗体  dw_1.settransobject(sqlca)
查询（按）
//if  not sle_1.text="" then
//	dw_1.retrieve(sle_1.text)
//end if
datetime aa
string bb
string abc

//if  not sle_1.text="" then
//	dw_1.retrieve(sle_1.text)
//end if

if sle_1.text='' then
	messagebox("dkd",'')
else
	bb=string(sle_1.text)
          //abc='date(cdrq)=date("'+sle_1.text+'")'
	abc='string(bh)=string("'+sle_1.text+'")'
	//messagebox("",abc)
	dw_1.SetFilter(abc)
	dw_1.filter()
	dw_1.Retrieve()
end if

tab_1.tabpage_1.dw_1.settransobject(sqlca)
tab_1.tabpage_2.dw_2.settransobject(sqlca)
tab_1.tabpage_3.dw_3.settransobject(sqlca)
tab_1.tabpage_4.dw_4.settransobject(sqlca)
tab_1.tabpage_5.dw_5.settransobject(sqlca)
tab_1.tabpage_6.dw_6.settransobject(sqlca)
tab_1.tabpage_7.dw_7.settransobject(sqlca)
tab_1.tabpage_8.dw_8.settransobject(sqlca)

确定
if sle_1.text='jk01' then
//	messagebox("dkd",'')
    open(w_bbbb_a)
else
	messagebox("登陆信息",'口令错误')
end if

+++++++++++++++++++++==
if sle_1.text='01' and  sle_2.text='01'then
//	messagebox("dkd",'')
    open(w_aaa)
 
else
	if sle_1.text='02' and  sle_2.text='02'then
	open(w_aa)
	else
	messagebox("登陆信息",'口令错误')
end if
 end if

修改口令：
int g_input_time=0
char id_id
g_input_time=g_input_time+1
//判断
if sle_2.text<>sle_3.text then
	  if g_input_time>3 then
		messagebox("警告", '输入次数太多了！！')
		close(w_loginchange)
	else
		messagebox("警告",'辆次输入的口令不一致，请重新输入')
	end if
else
	if sle_1.text<>id_id  then
	  if g_input_time>3 then
		messagebox("警告",'输入次数太多了！！')	
		close(w_loginchange)
	else
		messagebox("警告",'输入的原口令不一致，请重新输入')
		end if
	else
		update id set id=sle_2.text
		messagebox("注意",' 口令已经修改，请牢记入')
		commit;
		close(w_loginchange)
	end if
end if
进入系统：
open(w_aaloginrr)
退出系统：
disconnect;
//close(parentwindow)
close(parent)
确定密码正确：
if ddlb_1.text='产品管理员' and  sle_1.text='2003'then
    open(w_aaaapp)
     close(w_aalogin)
 
 else
	if ddlb_1.text='系统管理员' and  sle_1.text='1979'then
	open(w_aaaapp)
	close(w_aalogin)
 
	else
		if ddlb_1.text='经理' and  sle_1.text='2003'then
	   open(w_aaaapp)
		close(w_aalogin)
		 
		else
	   messagebox("登陆信息",'口令错误')
      end if
   end if
end if