提供生产管理系统源程序
本人有生产管理系统源程序提供给你
条件：到本版服区投任意一票，总数80以内有效
如你需要，留下你的邮箱，到时发送给你
贴出部分界面：
[img=
][/img]
实现代码：
#Define TVM_SETBKCOLOR 4381
Declare Integer SendMessage IN User32 Integer hWnd ,Integer wMsg ,Integer wParam ,Integer lParam
= SendMessage(This.Hwnd, TVM_SETBKCOLOR, 0, RGB(236,200,216))
this.Imagelist=thisform.tree2
IF USED("tree")
SELECT tree
ELSE
use tree
ENDIF
Scan
If AllTrim(单位代码) = '0_'
thisform.tree.Nodes.Add(,1, AllTrim(Key), AllTrim(单位名称),1,2)
Thisform.Tree.nodes(ALLTRIM(key)).backcolor=RGB(236,200,216)
This.Nodes(ALLTRIM(key)).Expanded= .t.
Else
thisform.tree.Nodes.Add(AllTrim(单位代码), 4, AllTrim(Key), AllTrim(单位名称),1,2)
Thisform.Tree.nodes(ALLTRIM(key)).backcolor=RGB(236,200,216)
Thisform.Tree.imagelist.backcolor=RGB(236,200,216)
ENDIF
EndScan
PUBLIC jgsl
[img=
][/img]
实现代码：
SET CLASSLIB to ffc\_dialogs.vcx
bbxx=CREATEOBJECT('_aboutbox',"委外加工管理系统","1.0","版权所有","2009.01.20")
bbxx.lblusername.caption="超级管理员：yjr"
bbxx.imglogo.picture="3004.gif"
bbxx.lblusercorp.caption="浙江伊秀服饰有限公司"
bbxx.backcolor=RGB(240,255,240)
bbxx.height=330
bbxx.width=400
bbxx.shprectangle.backcolor=RGB(255,192,203)
bbxx.cmdsysinfo.backcolor=RGB(240,255,240)
bbxx.show
return
[解决办法]
呵呵，O(∩_∩)O~
[解决办法]
呵呵，可惜我投过票了
