timer(3)
This.Y = (gl_ScreenH - This.Height) / 2
This.X = (gl_ScreenW - This.Width) / 2
p_1.x=0
p_1.y=0
p_1.height=this.height
p_1.width=this.width
gs_bmbz=profilestring('Bn_yygs.ini','shop','bmbz','zb')
gs_servername=profilestring('Bn_yygs.ini','server','servername','czg')
gs_servername_zb=profilestring('Bn_yygs.ini','server','posserver','banner04')
gs_database=profilestring('Bn_yygs.ini','database','maindataname','bn_yygs_zb')
gs_database_zb=profilestring('Bn_yygs.ini','database','posdataname','bn_yygs_zb')
gs_id=profilestring('Bn_yygs.ini','database','user','') + 'aa'
gs_pass=profilestring('Bn_yygs.ini','database','pass','') + 'aa'
gs_shopname=profilestring('Bn_yygs.ini','shop','shopname','abc')

SQLCA.DBMS = "MSS Microsoft SQL Server 6.x"
SQLCA.Database = trim(gs_database)
SQLCA.ServerName = trim(gs_servername)
SQLCA.LogId =trim(gs_id)
SQLCA.LogPass = trim(gs_pass)
SQLCA.AutoCommit = False
SQLCA.DBParm = "CommitOnDisconnect='No'"
sqlzb=CREATE transaction
sqlzb.DBMS = "MSS Microsoft SQL Server 6.x"
sqlzb.Database =trim(gs_database_zb)
sqlzb.ServerName =trim(gs_servername_zb)
SQLzb.LogId = trim(gs_id)
SQLzb.LogPass = trim(gs_pass)
sqlzb.AutoCommit = False
sqlzb.DBParm = "CommitOnDisconnect='No'"
openwithparm(w_message,'ϵͳÕýÔÚÁ¬½Ó·þÎñÆ÷,ÇëÉÔµÈ...')    
CONNECT USING SQLCA;
if sqlca.sqlcode<>0 then
    messagebox('ÌáʾÐÅÏ¢','ϵͳ1234Á¬½Ó·þÎñÆ÷ʧ°Ü!')
    halt
    return
end if
string ls_shopname,ls_pass,ls_id
SELECT shopname,pwd into :ls_shopname,:ls_pass from sysshop ;
ls_id=uf_shopkl_q(ls_shopname)
if gs_shopname<>ls_shopname then
    messagebox('Ìáʾ','ÄúÊÇ·Ç·¨Óû§£¬È·¶¨ºóÍ˳ö¡£')
    close(w_message)
    halt close
end if
if ls_id<>ls_pass then    
  messagebox('Ìáʾ','ÄúÊÇ·Ç·¨Óû§£¬È·¶¨ºóÍ˳ö¡£')
      close(w_message)
  halt close
end if
gl_openbz=1
close(w_message)
Open(w_logo_x)

ÎҵĠini  Îļþ