new
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
3.4 CODE<br />
1. CONNECTION MODULE<br />
Public cn, rs, s<br />
Public Function CONNECT()<br />
Set cn = New ADODB.Connection<br />
cn.Open = "Provider=sqloledb;server=DELL-<br />
PC\SQLEXPRESS;database=apartment;trusted_connection=yes"<br />
Set rs = New ADODB.Recordset<br />
End Function<br />
2.MAIN MDI FORM<br />
Private Sub emp_Click()<br />
DataReport1.Show<br />
End Sub<br />
Private Sub MDIForm_Load()<br />
Call CONNECT<br />
'rs.Open "select * from tbl_log1 ", cn, adOpenDynamic, adLockPessimistic<br />
If s = "admin" Then<br />
mnuemp.Visible = True<br />
mnuviewdetails.Visible = True<br />
mnureports.Visible = True<br />
mnulogoff.Visible = True<br />
mnuflat.Visible = False<br />
mnuowner.Visible = False