water_billing.sra

水费管理系统

$PBExportHeader$water_billing.sra
$PBExportComments$Generated Application Object
forward
global type water_billing from application
end type
global uo_tran sqlca
global dynamicdescriptionarea sqlda
global dynamicstagingarea sqlsa
global error error
global message message
end forward

global variables
// 保存区域维护窗口中右键点击的TreeViewItem
TreeViewItem gtviRightClicked
datastore ds, ds1

// 资费标准中,保存标准价格的全局结构
s_fee_std_value rec_fee_std_value[]

// 数据库语言
string gs_db_lang

string gs_oper_code = "admin"
string gs_oper_name = "admin"
int gi_admin_flg = 1
boolean gb_debug = false

string gs_company_name = "自来水管理系统"
string gs_win_receipt_name = "承德县自来水公司水费收据"

// 系统过程
uo_proc gu_proc



string gs_yhmc,gs_yhqx,yhh,gs_yhid,gs_yhkl
Blob gb_photo,gb_grjl

int emp_no
int job_id
integer g_int_count=0
string gs_Config_File
Environment	ge_Env
string  gs_xm,gs_qx,gs_mainwindow,gs_login='2'

//gs_mainwindow是用于控制在w_main没有出现时，不要进行idle事件
string path  //保存qpgs.ini的路径
long HH_DISPLAY_TOPIC = 0

end variables

global type water_billing from application
string appname = "water_billing"
boolean toolbarusercontrol = false
string dwmessagetitle = "数据窗口错误信息"
boolean freedblibraries = true
end type
global water_billing water_billing

type prototypes
 Function ulong Beep(ulong dwFreq,ulong dwDuration) LIBRARY "kernel32.dll"
 Function ulong SetWindowText(ulong hwnd,ref string lpString) LIBRARY "user32.dll" ALIAS FOR "SetWindowTextA"
 Function ulong GetUserName(ref string lpBuffer,ref ulong nSize) LIBRARY "advapi32.dll" ALIAS FOR "GetUserNameA"
Function ulong Arc(ulong hdc,ulong X1,ulong Y1,ulong X2,ulong Y2,ulong X3,ulong Y3,ulong X4,ulong Y4) LIBRARY "gdi32.dll"
Function ulong sndPlaySound(ref string lpszSoundName,ulong uFlags) LIBRARY "winmm.dll" ALIAS FOR "sndPlaySoundA"
Function long tuxreadenv (string filename,string labelname) LIBRARY "wtuxws32.dll" 

subroutine keybd_event(uint bVk,uint bScan,long dwFlags,long dwExtraInfo ) library 'user32.dll' 

function boolean OpenPrinterA(ref string pPrinterName,ref ulong  phPrinter,ref ulong  pDefault ) library "winspool.drv"
function boolean PrinterProperties(ulong  hwnd1,ulong  hPrinter) library "winspool.drv"
function boolean ClosePrinter(ulong  hPrinter) library "winspool.drv"


Function long Sleep(Long ms)library "kernel32" 
function boolean RegisterBitmapClient( long l ) Library "Bmpcli32.DLL"
//跟踪鼠标
FUNCTION  ulong  SetCapture(ulong  hwnd)  LIBRARY  "user32.dll"    
//释放鼠标
FUNCTION  ulong  ReleaseCapture()  LIBRARY  "user32.dll"  
FUNCTION boolean ShowWindow( ulong winhandle, int wincommand ) Library "user32" 
FUNCTION boolean BringWindowToTop( ulong HWND ) Library "user32" 
FUNCTION long FindWindowA( ulong Winhandle,  string wintitle ) Library "user32"



end prototypes

on water_billing.create
appname="water_billing"
message=create message
sqlca=create uo_tran
sqlda=create dynamicdescriptionarea
sqlsa=create dynamicstagingarea
error=create error
end on

on water_billing.destroy
destroy(sqlca)
destroy(sqlda)
destroy(sqlsa)
destroy(error)
destroy(message)
end on

event open;

// Profile water
SQLCA.DBMS = "MSS Microsoft SQL Server"
SQLCA.Database = "water"
SQLCA.LogPass = "1qaz2wsx"
SQLCA.ServerName = "133.109.24.252"
SQLCA.LogId = "sa"
SQLCA.AutoCommit = False
SQLCA.DBParm = "Language='chinese'"

connect;
select @@language into :gs_db_lang from dual;

open(w_login)
open(w_main)
//open(w_main3)
//open(w_test)
end event

event close;destroy gu_proc
disconnect;



end event