[检测][进程][开始]在PB中如何检测某一进程开始和结束
12月 4th, 2008 by admin
Posted in PowerBuilder | No Comments »
我用POWERBUILDER做SQL SERVER 2000自动安装程序，现在知道怎样自动安装SQL SERVER 2000了，但安装程序在后台执行，在任务管理器中可查看到安装的进程，我想在PB程序中知道什么时候安装程序结束，因为结束后我还需要执行别的程序。请问大家有什么好方法没，有程序更好，感谢！
楼上的方法有用，给分，谢谢！
[可视][用户][对象]可视用户对象的创建
12月 4th, 2008 by admin
Posted in PowerBuilder | No Comments »
创建了一个可视的用户对象是u_export_excel 类型是cb
希望能够执行导出dw_1中的数据到excel中
在在u_export_excel，clicked！中写 dw_1.saveas("",htmltable!,true)
提示dw_1是未定义的，怎么办啊？
学习 我还不知道什么是可视用户对象呢 。。。
或者你可以这样做：
在这个可视用户对象中声明个实例变量
datawindow idw_tmp
可视用户对象的clecked事件中就可以写：
idw_tmp.saveas("",htmltable!,true)
然后你把这个用户对象放到窗体上，窗体上也有dw_1的数据窗口
这个时候只需要在窗体上的这个可视用户对象的constructor事件中输入
idw_tmp = dw_1
就可以了
[SYBASE15]PB9连接SYBASE15问题
12月 4th, 2008 by admin
Posted in PowerBuilder | No Comments »
用PB9开发出的程序不能直接连接SYBASE15数据库，需要12.5版本的驱动，PB有没有解决此问题的补丁？
关于dw的问题
12月 4th, 2008 by admin
Posted in PowerBuilder | No Comments »
用update properties设置完后,是不是更新，删除，查找三个都能用，还是只能用查找和删除，单独用更新？？？
我要一个dw同时具有有查、增、删、改这四个功能都能实现！！我要怎样设置？？？
update properties设置好就可以了
设置key and updateable columns和use delete then insert就能拥有查、增、删、改这些功能吗 还是设置其它什么的？？？
看不懂楼主的意思.帮顶.
楼主绝对是新手中的新手, 建议找本书来看看吧
update properties设置是做什么用的，PB書確實有比較詳細的介紹！
一点见解 希望能帮到你
简单的说 update properties 在没有设置的时候，DW 只能用来做查询操作，数据窗里的数据能不能修改是另外一回事，可以通过代码（SQL直接插）控制将修改了的数据update到库里面。
要是设置好 update properties 属性之后 ，可直接将修改了的数据通过 update（）函数直接更新到数据库。
设置 update properties 时候要特别注意表多的时候 选择 正确 的 key 和 column
[散分][报到]散分回来报到
12月 4th, 2008 by admin
Posted in PowerBuilder | No Comments »
失业不上班，真是和带薪休假不一样
现在pb找工作真实不容易啊
加油啊~~pb也要加油~~
过了年再跳吧，你不要年终奖了啊。
接分来了。呵呵，现在光靠pb找比较郁闷
公司倒闭了
不是主动跳，是被动跳
一个月前给你公司发了简历，没有音信，估计是开价太高，被人力刷掉了
现在降低要求找了一家大公司（非it业的）做信息中心的内部系统维护
现在跳亏了
晕，不会又是那啥的风暴引起的吧
失业在家就找点私活做做吧，能挣一点是一点。
楼上说的有理，不上班就在家做点私活吧
不是把，你难道在简历里提薪水了？
通常都是写面议，先谈，谈得好就多些，不好就少些，不是吗？
黑夜。一女遭遇劫匪，颤抖曰：“大哥，我是做电脑的，两个月没发工资了，还刚被裁员，你看报道就知道了，真的没有钱……” 劫匪听后竟然痛哭流涕，“妹子，同行 ，俺原来是做ERP软件的，你拿好工牌，后面那帮抢劫是做显示器和投影机的，你放心， 我们绝不抢自己人 .对了，边上那条路不要走，那边是做打印耗材的
黑夜。一女遭遇劫匪，颤抖曰：“大哥，我是做电脑的，两个月没发工资了，还刚被裁员，你看报道就知道了，真的没有钱……” 劫匪听后竟然痛哭流涕，“妹子，同行 ，俺原来是做ERP软件的，你拿好工牌，后面那帮抢劫是做显示器和投影机的，你放心， 我们绝不抢自己人 .对了，边上那条路不要走，那边是做打印耗材的
不至于吧！哈哈
可以很多工作没有人做，工资也不低。如测试呀，需求分析员等等。。。。。。。。。。。。。
初学PB一年 前来报道
jf
jf
一颗红心,多种准备.
jf
up,接分
快转吧，趁现在还能学的动。
这话我喜欢， 呵呵
…PB 用的公司也不是很多了，会的学也不多。。
乱乱的现状，换也不是，不换也不是
我是新手+菜鸟..刚学PB3个月,现在只做了一个用PB做的超市收银系统..我想听听各位前辈的建议,是继续学PB还是转行别的语言?
AFIC，他们公司不是工资不低吗？LZ不会要价太高了吧
我投简历都标明要求薪水的
我担心那些只肯出一点点薪水的地方（有些地方不管你能做什么，最多能给的价钱是固定的，很低）约我去面试
面试也是很辛苦的，毕竟北京这么大的城市，哪趟来回不都得用半天时间？
让哪些根本没打算出钱的直接把我刷掉，我还能在家多休息休息
别急 耐心等待，会有合适的
我就有这样的遭遇，很恼火！
机会总会有的 ，慢慢来（其实谁辞职了谁急，呵呵 ）
先做吧，年后招聘的应该多点， 俺们公司招人 ，招项目经理，给我发个消息吧
是金子总会发光的
掌握好PB,就业的机会很多，祝你成功！
jf
我没弄过PB,结果不小心找了份PB的工作!!
真是抱歉,又抢PB菜鸟们的饭碗了,为了生存,请体谅,呵呵
PS:是请没找到工作的菜鸟们体谅!!LZ这样的不在此列!
jf
拿了年终奖再说ⷼ/td>
加油，不要放弃!!
.
.
唉!
慢慢来，jf
[计算机][硬件][信息]PB获取计算机硬件信息
12月 4th, 2008 by admin
Posted in PowerBuilder | No Comments »
想用PB获取电脑的硬件信息，包括：MAC地址，内存大小，硬盘大小
请高手帮忙提供对应的函数
谢谢
获得系统基本信息
（独孤求败二零零四年二月十二日整理于深圳市南山区）
当一个应用程序在工作时，会不可避免地和操作系统发生数据交换，虽然在PB中提供了Environment对象来获得系统的一些信息，然而这些信息往往是不够的，比如CPU、本机IP地址等，这些内容只有用Windows API来获得了。
1、建立一个工作空间（workspace），取名为：systeminfo。
2、建立一个应用（application），取名为：systeminfo。
3、创建用户对象u_sysinfo，并添加Microsoft Winsock OCX控件。
4、定义u_sysinfo的实例变量。
public:
string cpuid,cpuprovider
string filesystem,volumename
ulong VolumeSerialNumber,MaxComponentLength,FileSystemFlags
long dlength,dmemoryload,dtotalphys,davailphys,dtotalpagefile
long davailpagefile,dtotalvirtual,davailvirtual
ulong dwoemid,dwpagesize,lpminappaddress,lpmaxappaddress,dwactiveprocessormask
ulong dwnumberofprocessors,dwprocessortype,dwallocationgranularity,dwreserved
ulong sectorspercluster,bytespersector,numberoffreeclusters,totalnumberofclusters
ulong mbtotal,mbfree
5、定义u_sysinfo的局部外部函数
PUBLIC FUNCTION ulong GetComputerName(ref string lpBuffer,ref ulong nSize) LIBRARY "kernel32.dll"
ALIAS FOR "GetComputerNameA"
PUBLIC FUNCTION ulong GetDriveType(string nDrive) LIBRARY "kernel32.dll" ALIAS FOR "GetDriveTypeA"
FUNCTION ulong GetDiskFreeSpace(ref string lpRootPathName,ref ulong lpSectorsPerCluster,ref ulong
lpBytesPerSector,ref ulong lpNumberOfFreeClusters,ref ulong lpTtoalNumberOfClusters)
LIBRARY "kernel32.dll" ALIAS FOR "GetDiskFreeSpaceA"
PUBLIC FUNCTION ulong GetTickCount() LIBRARY "kernel32.dll"
PUBLIC Subroutine GetSystemInfo(ref ws_info lpSystemInfo) LIBRARY "kernel32.dll"
PUBLIC FUNCTION ulong waveOutGetNumDevs() LIBRARY "winmm.dll"
PUBLIC FUNCTION ulong WNetGetUser(ref string lpName,ref string lpUserName,ref ulong lpnLength)
LIBRARY "mpr" ALIAS FOR "WNetGetUserA"
PUBLIC FUNCTION ulong GetSystemMetrics(ulong nIndex) LIBRARY "user32.dll"
PUBLIC FUNCTION ulong GetWindowsDirectory(ref string lpBuffer,ulong nSize) LIBRARY "kernel32.dll"
ALIAS FOR "GetWindowsDirectoryA"
PUBLIC FUNCTION ulong GetSystemDirectory(ref string lpBuffer,ulong nSize) LIBRARY "kernel32.dll"
ALIAS FOR "GetSystemDirectoryA"
PUBLIC FUNCTION ulong GetTempPath(ulong nBufferLength,ref string lpBuffer) LIBRARY "kernel32.dll"
ALIAS FOR "GetTempPathA"
PUBLIC FUNCTION ulong GetKeyboardType(ulong nTypeFlag) LIBRARY "user32.dll"
PUBLIC FUNCTION ulong QueryPerformanceFrequency(ref double lpFrequency) LIBRARY "kernel32.dll"
PUBLIC FUNCTION ulong QueryPerformanceCounter(ref ulong lpPerformanceCount) LIBRARY "kernel32.dll"
//PUBLIC FUNCTION ulong EnumPrinterDrivers(ref string pName,ref string pEnvironment,ulong Level,ref
Byte pDriverInfo,ulong cdBuf,ref ulong pcbNeeded,ref ulong pcRetruned) LIBRARY
"winspool.drv" ALIAS FOR "EnumPrinterDriversA"
PUBLIC Subroutine GlobalMemoryStatus(ref ws_memory lpBuffer) LIBRARY "kernel32.dll"
//FUNCTIONon ulong GlobalReAlloc(ulong hMem,ulong dwBytes,ulong wFlags) LIBRARY "kernel32.dll"
PUBLIC FUNCTION ulong RegOpenKey(ulong hKey,ref string lpSubKey,ref ulong phkResult) LIBRARY
"advapi32.dll" ALIAS FOR "RegOpenKeyA"
PUBLIC FUNCTION ulong RegCloseKey(ulong hKey) LIBRARY "advapi32.dll"
PUBLIC FUNCTION ulong RegQueryValueEx(ulong hKey,ref string lpValueName,ulong lpReserved,ref ulong
lpType,ref long lpData,ref ulong lpcbData) LIBRARY "advapi32.dll" ALIAS FOR
"RegQueryValueExA"
//Function ulong EnumDisplaySettingsA(ulong xx,ulong modenum,ref DEVMODE
lpdevmode)Library"kernel32.dll"
//PUBLIC FUNCTION ulong DeviceCapabilities(ref string lpDeviceName,ref string lpPort,ulong
iIndex,ref string lpOutput,ref DEVMODE lpDevMode) LIBRARY "winspool.drv" ALIAS FOR
"DeviceCapabilitiesA"
PUBLIC FUNCTION ulong GetVolumeInformation(string lpRootPathName,ref string lpVolumeNameBuffer,
ulong nVolumeNameSize,ref ulong lpVolumeSerialNumber,ref ulong lpMaximumComponentLength,
ref ulong lpFileSystemFlags,ref string lpFileSystemNameBuffer,ulong nFileSystemNameSize)
LIBRARY "kernel32.dll" ALIAS FOR "GetVolumeInformationA"
FUNCTION long GetMACAddress(long lana,ref long addr[6]) Library "utils.dll"
FUNCTION long GetLanaID(ref long lana[254]) LIBRARY "utils.dll"
Function ulong GetMHZ()Library"mydll.dll"
6、用户对象级函数
1）、of_GetComputerName()，获得计算机的标识（即计算机名）。
ulong ll_comsize
ulong ll_flag
ll_comsize = 256
string ls_computerName
//获得计算机的名称
ll_flag = GetComputerName(ls_computerName,ll_comsize)
If ll_flag <> 1 then
return "Get Computer Failure"
else
return ls_computerName
End if
2）、of_GetCpuInfo()，获得CPU一些基本信息。
ws_cpuinfo lstr_cpu
string ls_temp
RegistryGet("HKEY_LOCAL_MACHINEHardwareDescriptionSystemCentralProcessor ","Identifier",RegString!,ls_temp)
lstr_cpu.cpuid = ls_temp
cpuid = ls_temp
RegistryGet("HKEY_LOCAL_MACHINEHardwareDescriptionSystemCentralProcessor ","VendorIdentifier",RegString!,ls_temp)
lstr_cpu.cpuprovider = ls_temp
cpuprovider = ls_temp
3）、of_GetCpuStatus()，获得CPU当前的使用频率，是从0%到100%之间的一个常数。
ulong ls_username,lpcbData,lpType
lpcbData = 4
lpType = 4
ulong phkResult
ls_username = 0
string lbSubkey
long lpData
lbSubkey = "PerfStatsStatData"
ls_username = RegOpenKey(16*16*16*16*16*16*16*8+6,lbSubKey,phkResult)//The first parameters is HKEY_DYN_DATA = &80000006(HANDLE)
string lpValueName
lpValueName = "KERNELCPUUsage"
ls_username = RegQueryValueEx(phkResult,lpValueName,0,lpType,lpData,lpcbData)
ls_username = RegCloseKey(phkResult)
return lpdata
4）、of_GetDiskVolume()，获得磁盘空间大小。
ulong ll_MBFree
ulong ll_MBTotal
ulong ll_sectorspercluster // Sectors/Cluster
ulong ll_bytespersector // Bytes/Sector
ulong ll_numberoffreeclusters // Number of Free Clusters
ulong ll_toalnumberofclusters // Total Number of Clusters
GetDiskFreeSpace(as_driver, ll_sectorspercluster, ll_bytespersector,ll_numberoffreeclusters,
ll_toalnumberofclusters)
sectorspercluster=ll_sectorspercluster
bytespersector=ll_bytespersector
numberoffreeclusters=ll_numberoffreeclusters
totalnumberofclusters=ll_toalnumberofclusters
mbfree = (ll_sectorspercluster * ll_bytespersector * (ll_numberoffreeclusters / 1024)) / 1024
mbtotal = (ll_sectorspercluster * ll_bytespersector * (ll_toalnumberofclusters / 1024)) / 1024
5）、of_GetDriverType()，获得各个磁盘的种类。
ulong ul_drivetype
string ls_drive
ul_drivetype = GetDriveType(a_drivename)
choose case ul_drivetype
case 0
ls_Drive = "Unknown Driver"
Case 1
ls_Drive = "Drive Does Not exist"
Case 2
ls_Drive = "Floppy driver"
Case 3
ls_Drive = "HardDisk driver"
Case 4
ls_Drive = "Network driver"
Case 5
ls_Drive = "CD-ROM driver"
Case 6
ls_Drive = "RAM driver"
End choose
Return ls_drive
6）、of_GetIPAddress()，获得本机IP地址。
return ole_1.object.localip
7）、of_GetKeyBoardType()，获得用户键盘种类。
return GetKeyboardType(0)
8）、of_GetLongInID()，获得登陆的用户名称。
string ls_username,ls_cmpname
ulong ll_length,lul_runtime
ls_cmpname = ""
ls_username = space(64)
ll_length = 64
lul_runtime=WNetGetUser(ls_cmpName,ls_UserName,ll_Length)
If lul_runtime=0 then
return ls_UserName
else
return "Error"
End if
9）、of_GetMacAddress()，获得网卡的物理地址。
long lana[254],ll_lananum,mac[6]
long i,j
If Not FileExists("utils.dll") Then
MessageBox("错误","无法找到 utils.dll 文件")
Return ""
End If
j=1
String ls_macaddress[254]
ll_lananum = GetLanaID(lana)
for i=1 to ll_lananum
if GetMacAddress(lana[i],mac) = 0 then
ls_macaddress[j] = string(mac[1])+"," +string(mac[2])+"," + string(mac[3])+"," +
string(mac[4])+"," + string(mac[5])+"," + string(mac[6])
j++
end if
next
string ls_return
For i = 1 to j
If ls_macaddress[i]="" Then exit
ls_return = ls_return+ls_macaddress[i]+"|"
next
return ls_return
10）、of_GetMemory()，获得内存的使用情况。
ws_memory str_memory
GlobalMemoryStatus(str_memory)
dlength = str_memory.dlength
dmemoryload = str_memory.dmemoryload
dtotalphys = str_memory.dtotalphys
davailphys = str_memory.davailphys
dtotalpagefile = str_memory.dtotalpagefile
davailpagefile = str_memory.davailpagefile
dtotalvirtual = str_memory.dtotalvirtual
davailvirtual = str_memory.davailvirtual
return
11）、of_GetMHZ()。
IF not Fileexists("Mydll.dll") Then
MessageBox("错误","无法找到 MyDll.dll !!!")
return 0
End If
ulong ul_mhz
ul_mhz = GetMhz()
return ul_mhz
12）、of_GetNetCard()，获得网卡的名称。
environment l_env
getenvironment(l_env)
Integer li_rtn
string ls_username
Choose case l_env.ostype
case Windows!
li_rtn =
RegistryGet("HKEY_LOCAL_MACHINESystemCurrentControlSetServicesClassNet 000","DriverDesc",
RegString!,ls_username)
If li_rtn <> 1 Then
li_rtn =
RegistryGet("HKEY_LOCAL_MACHINESystemCurrentControlSetServicesClassNet 001","DriverDesc",
RegString!,ls_username)
if li_rtn <> 1 Then
ls_username = "Ether Netword Card can not be detected"
End if
End if
case WindowsNT!
RegistryGet("HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NT
CurrentVersionNetworkCards1","Title",RegString!,ls_username)
End choose
return ls_username
13）、of_GetOSVersion()，获得操作系统版本。
Environment l_env
string ls_osver
GetEnvironment(l_env)
Choose case l_env.ostype
CASE Macintosh!
ls_osver =
"Macintosh "+string(l_env.OSMajorRevision)+"."+string(l_env.OSMinorRevision)
CASE aix!
ls_osver = "Aix "+string(l_env.OSMajorRevision)+"."+string(l_env.OSMinorRevision)
CASE Windows!
If l_env.OSMajorRevision>=4 and l_env.OSMinorRevision>0 then
ls_osver = "Windows 98"
else
ls_osver = "Windows 95"
End if
CASE WindowsNT!
RegistryGet("HKEY_LOCAL_MACHINESystemCurrentControlSetControlProductOptions",
"ProductType",RegString!,ls_osver)
If ls_osver = "WinNT" then
ls_osver = "Windows NT WorkStation"
elseif ls_osver = "ServerNT" then
ls_osver = "Windows NT Server"
else
ls_osver = "Windows NT Domain Controler"
End if
CASE ELSE
ls_osver = "Unknown OS"
End Choose
Return ls_osver
14）、of_GetServicePack()，获得Windows NT的ServicePack版本。
string ls_username
long ll_rtn
ll_rtn = RegistryGet("HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersion",
"CSDVersion",RegString!,ls_username)
If ll_rtn = -1 then
ls_username="ERROR"
end if
return ls_username
15）、of_GetSystemDir()，获得系统目录。
ulong ll_length
string ls_username
ll_length=64
ls_username = space(64)
GetSystemDirectory(ls_username,ll_length)
return trim(ls_username)
16）、of_GetSystemInfo()，获得系统信息。
ws_info lstr_1
GetSystemInfo(lstr_1)
dwoemid = lstr_1.dwoemid
dwpagesize = lstr_1.dwpagesize
lpminappaddress = lstr_1.lpminappaddress
lpmaxappaddress = lstr_1.lpmaxappaddress
dwactiveprocessormask = lstr_1.dwactiveprocessormask
dwnumberofprocessors = lstr_1.dwnumberofprocessors
dwprocessortype = lstr_1.dwprocessortype
dwallocationgranularity = lstr_1.dwallocationgranularity
dwreserved = lstr_1.dwreserved
return lstr_1
17）、of_GetTempPath()，获得临时文件存放路径。
ulong ll_length
string ls_username
ll_length=64
ls_username = space(64)
GetTempPath(ll_length,ls_username)
return trim(ls_username)
18）、of_GetTickCount()，获得系统开机时间的长短。
ulong lul_runtime
integer li_Hour,li_Minute,li_Second
lul_runtime=GetTickCount()
li_Hour = (lul_runtime/1000)/3600
li_minute = (lul_runtime/1000 - 3600*li_hour)/60
li_second = lul_runtime/1000 - 3600*li_hour - li_minute*60
string ls_rtn
ls_rtn = string(li_hour)+" H "+string(li_minute)+" M "+string(li_second)+" S"
return ls_rtn
19）、of_GetVolumeInfo()，获得各个磁盘的卷标和文件系统。
string lpVolumeNameBuffer
string lpFileSystemNameBuffer
ulong nVolumeNameSize
ulong lpVolumeSerialNumber
ulong lpMaximumComponentLength
ulong lpFileSystemFlags
ulong nFileSystemNameSize
lpVolumeNameBuffer = space(64)
lpFileSystemNameBuffer = space(64)
nVolumeNameSize=len(lpVolumeNameBuffer)
nFileSystemNameSize=len(lpFileSystemNameBuffer)
GetVolumeInformation(as_drive,lpVolumeNameBuffer,nVolumeNameSize,&
lpVolumeSerialNumber,lpMaximumComponentLength,lpFileSystemFlags,lpFileSystemNameBuffer,
nFileSystemNameSize)
FileSystem= lpFileSystemNameBuffer
VolumeName = lpVolumeNameBuffer
VolumeSerialNumber=lpVolumeSerialNumber
MaxComponentLength = lpMaximumComponentLength
FileSystemFlags=lpFileSystemFlags
20）、of_GetWaveDevice()，获得系统的多媒体播放设备的个数。
integer ll_length
ll_length =waveOutGetNumDevs()
If ll_length>0 then
return ll_length
else
return 0
End if
21）、of_GetWindowDir()，获得操作系统的安装路径。
ulong ll_length
string ls_username
ll_length=64
ls_username = space(64)
GetWindowsDirectory(ls_username,ll_length)
return trim(ls_username)
22）、of_GetWindowMode()。
ulong ll_length
ll_length = GetSystemMetrics(67)
Choose case ll_length
case 1
return "Safe Mode"
case 2
return "Safe Mode With NetSupport"
case else
return "Normal Mode"
End choose
7、建立一个窗口，w_systeminfo，各个按钮的clicked事件如下：
1）、GetComputerName:
sle_computername.text = uo_1.of_ComputerName()
2）、GetCpuInformation:
uo_1.of_GetCpuInfo()
ddlb_cpuinfo.additem("Cpu ID: "+uo_1.cpuid)
ddlb_cpuinfo.additem("Cpu Provider: "+uo_1.cpuprovider)
ddlb_cpuinfo.selectitem(1)
3）、GetCpuStatus:
timer(0.1,parent)
4）、GetDriverType:
String ls_drive
ls_drive = "abcdefghijklmnopqrstuvwxyz"
Integer li_i
For li_i = 1 to 26
ddlb_drivetype.additem(mid(ls_drive,li_i,1)+": "+uo_1.of_getdrivetype(mid(ls_drive,li_i,1)+":"))
End For
ddlb_drivetype.selectitem(1)
5）、GetLoginID:
sle_loginid.text = uo_1.of_GetLoginID()
6）、GetMacAddress:
string ls_macaddress
string ls_address[254]
ls_macaddress = uo_1.of_getmacaddress()
integer li_pos,i,li_start
i = 1
li_start = 1
li_pos = 1
do
li_pos = Pos(ls_macaddress,"|",li_start)
ls_address[i] = Mid(ls_macaddress,li_start,li_pos - li_start)
li_start = li_pos + 1
i++
loop until i>254 or ls_address[i - 1]=""
For i = 1 to 254
if ls_address[i] = "" Then exit
ddlb_macaddress.additem(ls_address[i])
End For
ddlb_macaddress.selectitem(1)
7）、GetMemory:
uo_1.of_getmemory()
ddlb_memory.Additem("dlength = " + string(uo_1.dlength))
ddlb_memory.Additem("dmemoryload = " + string(uo_1.dmemoryload)+"%")
ddlb_memory.Additem("dtotalphys = " + string(uo_1.dtotalphys))
ddlb_memory.Additem("davailphys = " + string(uo_1.davailphys))
ddlb_memory.Additem("dtotalpagefile = " + string(uo_1.dtotalpagefile))
ddlb_memory.Additem("davailpagefile = " + string(uo_1.davailpagefile))
ddlb_memory.Additem("dtotalvirtual = " + string(uo_1.dtotalvirtual))
ddlb_memory.Additem("davailvirtual = " + string(uo_1.davailvirtual))
ddlb_memory.selectitem(5)
8）、GetMhz:
sle_mhz.text = String(uo_1.of_GetMhz())
9）、GetOSVersion:
sle_osversion.text = uo_1.of_getosversion()
10）、GetServicePack:
sle_servicePack.text = uo_1.of_GetServicePack()
11）、GetSystemDir:
sle_systemdir.text = uo_1.of_getSystemDir()
12)、GetTempDir:
sle_tempdir.text = uo_1.of_gettemppath()
13）、GetSystemInfo:
uo_1.of_GetsystemInfo()
ddlb_systeminfo.additem("OemID = "+string(uo_1.dwoemid))
ddlb_systeminfo.additem("PageSize = "+string(uo_1.dwPagesize))
ddlb_systeminfo.additem("MinAppAddress = "+string(uo_1.lpminappaddress))
ddlb_systeminfo.additem("MaxAppAddress = "+string(uo_1.lpmaxappaddress))
ddlb_systeminfo.additem("ActiveProcessorMask = "+string(uo_1.dwactiveprocessormask))
ddlb_systeminfo.additem("NumberofProcessors = "+string(uo_1.dwnumberofprocessors))
ddlb_systeminfo.additem("ProcessorType = "+string(uo_1.dwprocessortype))
ddlb_systeminfo.additem("AllocationGranularity = "+string(uo_1.dwallocationgranularity))
ddlb_systeminfo.additem("Reserved = "+string(uo_1.dwreserved))
ddlb_systeminfo.selectitem(5)
14）、GetTickCount:
sle_tickcount.text = uo_1.of_GetTickCount()
15）、GetKeyBoardType:
choose case uo_1.of_GetKeyboardType()
case 1
sle_keyboard.text = "IBM PC/XT( ) or compatible (83-key) keyboard"
case 2
sle_keyboard.text = "Olivetti 'ICO' (102-key) keyboard"
case 3
sle_keyboard.text = "IBM PC/AT (84-key) or similar keyboard"
case 4
sle_keyboard.text = "IBM enhanced (101- or 102-key) keyboard"
case 5
sle_keyboard.text = "Nokia 1050 and similar keyboards"
case 6
sle_keyboard.text = "Nokia 9140 and similar keyboards"
case 7
sle_keyboard.text = "Japanese keyboard"
case else
sle_keyboard.text = "Hardware dependent and specified by the OEM"
End choose
16）、GetWindowMode:
sle_windowmode.text = uo_1.of_getwindowmode()
17）、GetWindowDir:
sle_windowdir.text = uo_1.of_getwindowdir()
18）、GetWaveDevice:
sle_wavedevice.text = string(uo_1.of_getwavedevice())
19）、GetIPAddress:
sle_ipaddress.text = uo_1.of_getipaddress()
20）、GetNetCard:
sle_netcard.text = uo_1.of_getnetcard()
21）、GetDiskInfo:
lv_1.deletecolumns()
lv_1.deleteitems()
lv_1.addcolumn("Driver",Left!,250)
lv_1.addcolumn("FileSystem",Left!,350)
lv_1.addcolumn("VolumeName",Left!,400)
lv_1.addcolumn("VolumeSerialNumber",Left!,650)
lv_1.addcolumn("MaxComponentLength",Left!,650)
lv_1.addcolumn("FileSystemFlags",Left!,500)
lv_1.addcolumn("SectorsPerCluster",Left!,600)
lv_1.addcolumn("BytesPerSector",Left!,500)
lv_1.addcolumn("NumberofFreeClusters",Left!,700)
lv_1.addcolumn("TotalNumberofClusters",Left!,750)
lv_1.addcolumn("FreeDiskVolume",Left!,600)
lv_1.addcolumn("TotalDiskVolume",Left!,650)
lv_1.addcolumn("Used Ratio",Left!,350)
String ls_drive,ls_status
ls_drive = "abcdefghijklmnopqrstuvwxyz"
Integer li_i
For li_i = 1 to 26
ls_status = uo_1.of_getdrivetype(mid(ls_drive,li_i,1)+":")
if ls_status <>"Drive Does Not exist" Then
uo_1.of_getvolumeInfo(mid(ls_drive,li_i,1)+":")
uo_1.of_getdiskvolume(mid(ls_drive,li_i,1)+":")
Choose case lower(ls_status)
case "floppy driver"
if uo_1.mbtotal = 0 Then
lv_1.Additem(mid(ls_drive,li_i,1)+":"+"~t"+trim(string(uo_1.FileSystem))+"~t"+trim(string(uo_1.VolumeName))+"~t"+string(uo_1.VolumeSerialNumber)+"~t"+string(uo_1.MaxComponentLength)+"~t"+string(uo_1.FileSystemFlags)+"~t"+string(uo_1.SectorsPerCluster)+"~t"+string(uo_1.BytesPerSector)+"~t"+string(uo_1.NumberofFreeClusters)+"~t"+string(uo_1.TotalNumberofClusters)+"~t"+string(uo_1.mbfree)+"MB"+"~t"+string(uo_1.mbtotal)+"MB"+"~t"+"0%",1)
else
lv_1.Additem(mid(ls_drive,li_i,1)+":"+"~t"+trim(string(uo_1.FileSystem))+"~t"+trim(string(uo_1.VolumeName))+"~t"+string(uo_1.VolumeSerialNumber)+"~t"+string(uo_1.MaxComponentLength)+"~t"+string(uo_1.FileSystemFlags)+"~t"+string(uo_1.SectorsPerCluster)+"~t"+string(uo_1.BytesPerSector)+"~t"+string(uo_1.NumberofFreeClusters)+"~t"+string(uo_1.TotalNumberofClusters)+"~t"+string(uo_1.mbfree)+"MB"+"~t"+string(uo_1.mbtotal)+"MB"+"~t"+String(Long(((uo_1.mbtotal - uo_1.mbfree)/uo_1.mbtotal)*100))+"%",1)
End if
Case "harddisk driver"
if uo_1.mbtotal = 0 Then
lv_1.Additem(mid(ls_drive,li_i,1)+":"+"~t"+trim(string(uo_1.FileSystem))+"~t"+trim(string(uo_1.VolumeName))+"~t"+string(uo_1.VolumeSerialNumber)+"~t"+string(uo_1.MaxComponentLength)+"~t"+string(uo_1.FileSystemFlags)+"~t"+string(uo_1.SectorsPerCluster)+"~t"+string(uo_1.BytesPerSector)+"~t"+string(uo_1.NumberofFreeClusters)+"~t"+string(uo_1.TotalNumberofClusters)+"~t"+string(uo_1.mbfree)+"MB"+"~t"+string(uo_1.mbtotal)+"MB"+"~t"+"0%",2)
else
lv_1.Additem(mid(ls_drive,li_i,1)+":"+"~t"+trim(string(uo_1.FileSystem))+"~t"+trim(string(uo_1.VolumeName))+"~t"+string(uo_1.VolumeSerialNumber)+"~t"+string(uo_1.MaxComponentLength)+"~t"+string(uo_1.FileSystemFlags)+"~t"+string(uo_1.SectorsPerCluster)+"~t"+string(uo_1.BytesPerSector)+"~t"+string(uo_1.NumberofFreeClusters)+"~t"+string(uo_1.TotalNumberofClusters)+"~t"+string(uo_1.mbfree)+"MB"+"~t"+string(uo_1.mbtotal)+"MB"+"~t"+String(Long(((uo_1.mbtotal - uo_1.mbfree)/uo_1.mbtotal)*100))+"%",2)
End if
case "cd-rom driver"
if uo_1.mbtotal = 0 Then
lv_1.Additem(mid(ls_drive,li_i,1)+":"+"~t"+trim(string(uo_1.FileSystem))+"~t"+trim(string(uo_1.VolumeName))+"~t"+string(uo_1.VolumeSerialNumber)+"~t"+string(uo_1.MaxComponentLength)+"~t"+string(uo_1.FileSystemFlags)+"~t"+string(uo_1.SectorsPerCluster)+"~t"+string(uo_1.BytesPerSector)+"~t"+string(uo_1.NumberofFreeClusters)+"~t"+string(uo_1.TotalNumberofClusters)+"~t"+string(uo_1.mbfree)+"MB"+"~t"+string(uo_1.mbtotal)+"MB"+"~t"+"0%",3)
else
lv_1.Additem(mid(ls_drive,li_i,1)+":"+"~t"+trim(string(uo_1.FileSystem))+"~t"+trim(string(uo_1.VolumeName))+"~t"+string(uo_1.VolumeSerialNumber)+"~t"+string(uo_1.MaxComponentLength)+"~t"+string(uo_1.FileSystemFlags)+"~t"+string(uo_1.SectorsPerCluster)+"~t"+string(uo_1.BytesPerSector)+"~t"+string(uo_1.NumberofFreeClusters)+"~t"+string(uo_1.TotalNumberofClusters)+"~t"+string(uo_1.mbfree)+"MB"+"~t"+string(uo_1.mbtotal)+"MB"+"~t"+String(Long(((uo_1.mbtotal - uo_1.mbfree)/uo_1.mbtotal)*100))+"%",3)
End if
End Choose
End If
End For
//FileSystem= lpFileSystemNameBuffer
//VolumeName = lpVolumeNameBuffer
//VolumeSerialNumber=lpVolumeSerialNumber
//MaxComponentLength = lpMaximumComponentLength
//FileSystemFlags=lpFileSystemFlags
8、效果图：
牛。
学习。
顶
[sqlserver][群集]pb连接sqlserver群集的问题
12月 3rd, 2008 by admin
Posted in PowerBuilder | No Comments »
开发出来的PB程序连接sqlserver正常，但是无法连接sqlserver群集。但是如果在机器上面安装了sqlserver，那么就可以连接到sqlserver群集。
大家有没有遇到这种情况，我觉得似乎是验证的问题。
群集也是混合验证方式
PB
12月 3rd, 2008 by admin
Posted in PowerBuilder | No Comments »
开发出来的PB程序连接sqlserver正常，但是无法连接sqlserver群集。但是如果在机器上面安装了sqlserver，那么就可以连接到sqlserver群集。
大家有没有遇到这种情况，我觉得似乎是验证的问题。
群集也是混合验证方式
[随便][笑笑]看了以后随便笑笑就好了
12月 3rd, 2008 by admin
Posted in PowerBuilder | No Comments »
上学一向不安分，大一时第一次上自学，偶坐在教室郁闷，随即跑到过道抽烟。
刚点着烟没一会，来了个PL女生，问寡人,“现在上自习呢!你怎么跑出来 了？“
我说，无聊出来抽烟，MM你是哪班的？怎么也跑出来了。
PLMM指着我们教室说，那个班的！
当时偶好激动的说，我们一个班的啊？怎么，你也郁闷吗？
她说：嗯，我们班一个新生上自习跑出去了，我出来找他。
偶笑笑，看来也还有坐不住的，你找他干啥，你又不是他妈！
MM:没办法啊，我是他班主任！
偶当时就蒙了……
一分钟后，憋出一句话：老师，你看着真年轻……
昨天去吃肯德基，排在我后面的像是一对儿情侣，眼看他们点了一大堆吃的，然后坐到我旁边。坐下后，那个女孩就开始埋头猛吃，好像饿了好几天的样子，而男孩则一根一根地啃着薯条，好像有什么心事。
突然，男孩放下薯条，往前凑了凑，很认真地问:“青青，我追你行吗？“
女孩头也不抬，直接说:“不行！“
男孩又问:“一点可能也没有吗？“
女孩干脆地说:“一点可能也没有！“
男孩愣住了，两眼直直地看着她，呆在那里……
当时，女孩一手拿着鸡腿，一手拿着汉堡，觉得男孩在看她，于是暂停大吃，然后用可怜的眼神看着那个男孩，小声说:“那……我还能吃吗？“
旁边包括我在内的人都笑出声来，那男孩很无奈，忙说:“吃吧，吃吧……“
这MM太可爱了……要是我不让追也一定要追……死命的追！！！！
================================================================
一兄弟上厕所，结果误入女厕，进去之后发现没有小便池，感觉不对，幸好女厕内没 有人。他便若无其事地走出来。正在开门的时候，遇到一mm进来，那mm和他打一照面，脸一红，头一低，转身钻男厕去了
================================================================
一天在公共汽车上人太多了，特别热，特别闷不知谁放了一个屁，这下是环境更加恶化。我朋友实在受不了，又不知道是谁，没办法。正好，售票员正在问：“谁没有买票？“我朋友忽生一计，大声说：“放屁的没买票！“忽然，一个特别胖的女人，手高高的举着票，大声说：“我已经买票了！“
=======================================
学里丢自行车情况特严重，新车眨眼就没，不过有时运气好，丢失的自行车隔几天又会冒出来。一日，同宿舍小静新买了一辆变速车，她逢人便炫耀说：“ 这车我上了最新式的锁！“第二天，小静上晚自习回，一副萎靡不振的样子，手里还捏了一张纸条，上面写着：别当这儿没高手，车我借走了，过几天还你！
不几日，那贼真的把车给还回来了，小静很是高兴，但她担心车被再次“借“走。遂买了十把大锁，把车子五花大绑地锁了个牢实，还给贼贴了张纸条：看你还怎么“借“！次日早晨小静下楼的时候，发现车上多了五把锁，锁上还有一张纸条：看你还怎么骑！
================================================================
================================================================
这个事发生在本人中学的时候，时至今日，堪称一绝。
那是节英语课，老师叫我们用“How…“造句，当时有“How are you,How do you do,等初中学的日常用语，可问题就出在当大家集思广益想答案的时候，只听后排一位仁兄一句“How 优根~~~~~~~~~“（相信玩过’街霸’的朋友都知道啥意思）立刻全班男生笑倒，女生及老师莫名地看着眼前突如其的来一幕晕菜中~~~
2 偷偷看。。。别笑出声哦
中学时一同学乔迁请大家到他家里吃饭。。很多很多菜。，饭桌上他老妈站起来很客 气地对大家说：“你们一定要吃饱喝足。不要客气，更不能浪费，现在搬新房了，反 正家里没养猪，倒掉很可惜的。“
================================================================
H君与朋友进入一家高档商场。进了店门后才走了两步，朋友忽见他在光滑的大理石地面上作滑冰状，甚感奇怪。问他，H君一边继续滑一边指着旁边的牌子，认真地说：“既然来了，就要遵守这儿的规矩。“那牌子上写着：“小心地滑“。
================================================================
某领导下乡普查，问一老农：你知道近亲为什么不能结婚吗？老农憨厚地笑答道：呵呵呵，呵呵呵，关系太熟不好下手。
================================================================
某大学新楼落成一雕塑：一位少女左手捧一本书，右手高擎一只象征和平的鸽子．该校外公开向各学生征集名称，结果许多人的标语不谋而合——读书顶个鸟用！
================================================================
一次文学考试中有这样一道题：
名词解释：莎翁（莎士比亚的尊称）
有个同学，他是这样作答的：莎翁，一种奇怪的鸟。
================================================================
上小学的时候，有篇课文叫?瀑布?的，中间说到作者转过一座山见到一条瀑布垂在山 间，我的一个女同学朗读的时候也是声情并茂的念：转过这座山，我惊呆了，一条破布挂在山上。全班同学都惊呆了。
================================================================
一兄得便秘，在厕所里久久不能如便，正在他极力努力的时候，看一哥们风一样的冲进厕所，进了他旁边的位置，刚进去就传来一真泡泡俱乐部，泡出好心情，那兄羡慕的对那哥们说：哥们好羡慕你呀，
那哥们说：羡慕啥，裤子还没脱呢～～
================================================================
朋友生日,我带小儿子参加.酒饭过后大家去卡拉OK,小儿子自告奋勇要为主角唱歌.掌声四起.~我为叔叔演唱一首折寿.众哗然.我回头看屏幕:祈祷.
刚买了房子，兴奋中给一哥们打电话：’我买房啦，不过就一毛房(忘说“坯“字了)还得装修。“哥们说：“就只有一厕所吗？那你住哪里啊？
。。。。你成专业户了
接
我正准备着第三次sf
猛然发现 灵儿又成富婆了 ：）
哈哈
呵呵
jf
搞笑
^_^
真骚
那个，那个，偷偷告诉你哈，我从泰坦那偷的，嘿嘿，他还不知道呢，他帐号的可用分都被我转完了！
低头跑路中！！
这里可以接分不
解决jf
SF
您都下水道了，还sf
[小学生][新闻联播]小学生看太多新闻联播的影响
12月 3rd, 2008 by admin
Posted in PowerBuilder | No Comments »
小学生看太多新闻联播的影响
“六．一”前夕，五年级一班学生刘小华因患感冒请假。班主任指示班干部们自发组织到刘小华家里慰问。第二天，班里黑板报登出了一篇《本班新闻》，全文如下：本班讯pp昨天上午，阳光明媚，鲜花斗艳。刘小华同学家里欢声笑语，人头攒动。五年级一班班长赵官、副班长张僚僚在体育委员欧阳猛南、文娱委员李美媚陪同下，不远千米，深入到患感冒发低烧的班级成员刘小华家中，为他带去节曰的问候和良好的祝愿。赵班长与张副班长兴致勃勃地参观了刘小华的小房间，饶有兴趣地玩了四盘“魂斗罗”游戏，与普通同学同乐。接着，班级领导与刘小华同学的双亲亲切地拉起了家常。赵班长还愉快地回忆起去年和刘小华开始一起作弊的往事。在交谈中，赵班长多次关心地强调：“刘小华生病了，就不要做作业了。好好休息，身体是革命的本钱嘛！”刘小华激动地说：“感谢班干部的关心！我一定要战胜病魔，克服一切困难，早曰回到温暖的大集体中，回到亲爱的老师和同学中间！”接着，赵班长一行又在刘小华家门口兴致勃勃地踢起了毽子。蓝天如洗，鸟儿也受到这集体温暖的感染，唧唧喳喳，歌唱美好的生活。中午，刘爸爸买来香喷喷好吃看得见的某某牌牛肉干和清凉可口的鲜榨橙汁，宴请赵班长一行。席间，宾主就小学生连吃两根冰棍是否会闹肚子等问题进行了深入愉快的双边会谈。
下面是经典的跟贴
1.会谈始终在亲切友好的气氛中进行
2.同学们就刘小华的疾病达成了广泛的公识。
3.并承认世界上只有一个学校,班级是学校不可分割的一部分。
4.刘小华同学表示要用“3个代表”伟大思想武装自己，抵抗病魔
。 5.要紧紧的团结在以班主任为中心的班集体周围，一心一意抓学习，聚精会神某发展……
6.刘小华同学以大无谓的英雄主义精神同病魔做斗争，目前已取得了阶段性的胜利，身体进一步向良好的方向发展。
7.陪同访问的还有，物理课代表，前卫生值日委员会副主任张二完同志。
8.为配合本次探视活动，学校领导特意去电信局开通了168xxxxx热线号码，以方便其他不能自发前往的同学对刘小华慰问，其中包括小华怎么得了病，得的是什么病，能否治好等有奖竟猜内容。回答正确者，奖励小红花……
9.原则通过《关于慰问刘小华同学生病一事的慰问纪要》并下发各班级班主任认真学习、研讨 10
.要紧紧抓住吃药这个根本点，使刘小华同学切实享受到同学们和老师的慰问成果，努力实现疾病细菌的持续减少。班级本学期分数计划纲要提出：本学期期间同学们学习成绩要增长5％左右，这是一个极其艰巨的任务。实现这一预期目标，既需要继续扎扎实实地工作，又需要有新的思路和新的措施。
11.据xx市xx学校5月25日电：参加五年级一班学生刘小华慰问会的同学在分组讨论赵班长同志报告时认为，赵班长同志关于本班级头一年重要战略机遇期和集中力量全面建设优秀班级的论述，表达了全班同学的共识，代表着全班同学家长的心愿，更加增强了我们的历史使命感和紧迫感。结合工作实际，与会者表示，一定要紧紧抓住本年第一学期重要战略机遇期，加快推进英语学习和语文作文体制学习，完成好关系全班的四门主课（语数英政），为全面建设全校优秀班级而努力奋斗。
12.班长当即责成卫生委员，一定要严把卫生关，杜绝此类事故的再次发生。
13.班长说，今年是我和刘小华同学建交3周年。3年来，在双方共同努力下，友谊关系持续发展。两家人交往密切，聚会、交流日趋活跃。双方关系的发展得益于双方人格上相互尊重、相互信任、互不干涉私事；经济上互利互惠、优势互补、共同发展；在班级事务中都遵循学校宪章的宗旨以及公认的同学关系基本准则，共同促进双方和班级的和平、稳定与发展。
你抢了我多少沙发？
接
飞过
jf
给点儿吧。。。
呵呵，由于楼主在分值上和大家达成了广泛的共识，于是接分在友好的气氛中进行 。
jf
成天抢沙发
到我板凳都没了
顶下～！
^^
接点分过冬
經濟不景氣，接些分過年啦！
LZ在學校被教育的很出色，好學生來著！
恩，你得到了精髓
这里可以接分不
坚决jf