Power Builder - pregunta

Manejo Sql server
Como creo un archivo plano

Tu anterior post decía:
"Como puedo hacer que mi base de datos registre todas las operaciones que se realizan diarias(Operaciones de ingreso).
Lo que deseo es :
a tal hora ingreso tal usuario..
a tal hora ingreso tal usuario... "

Además, usas SQL Server y deseas generar un archivo plano. Aclaro esto; porque creo que podría interesar a más de una persona...

¿CÓMO CREAR USUARIOS (INCLUIDOS CONTRASEÑAS) QUE TENGAN ACCESO A LA BD EN SQL SERVER?

1. Ingresá a Enterprise Manager, luego expandes la carpeta SECURITY.
2. Clic derecho en LOGINS y eliges NEW LOGIN.
3. En la ficha General, escribes el nombre, password y eliges la BD.
4. En la ficha Database Access, checas la BD y donde dice DB roles (está checado Public), debes checar también db_owner.
5. Finalmente, Aceptá y confirmá tu contraseña.
Nota: Cuando expandas tu BD, verás que en Users, están todos los usuarios que has definido con los anteriores pasos.

Ahora viene la segunda parte de tu pregunta: ¿Cómo crear un archivo plano, que registre la hora de acceso de los usuarios?
(CONTINÚA...)

(CONTINUACIÓN...)
¿COMO CREAR UN ARCHIVO PLANO, QUE REGISTRE LA HORA DE ACCESO DE LOS USUARIOS?
1. En el evento open de tu aplicación, colocá el script para llamar sólo a la ventana de w_inicio:
open(w_inicio).

2. En la ventana w_inicio, pegá los siguientes controles:
sle_usuario
sle_contrasena
cb_Aceptar

3. En el cb_Aceptar, pegá el siguiente script:
string ls_usuario
string ls_HoraIngreso
integer li_FileNum
// Profile Conexión nativa
SQLCA.DBMS = "MSS Microsoft SQL Server 6.x"
SQLCA.Database = "mibase"
SQLCA.LogPass = sle_contrasena.text
SQLCA.ServerName = "miserver"
SQLCA.LogId = sle_usuario.text
SQLCA.AutoCommit = False
SQLCA.DBParm = " "

Parent.Hide()
Connect ;
If sqlca.SQLCode = 0 Then
//Si logra conectarse, guardamos al usuario y su hora de ingreso
ls_usuario = sle_usuario.Text
ls_HoraIngreso=string(Now(),"hh:mm:ss")

//Escribimos en el archivo plano
li_FileNum = FileOpen("C:\mitexto.txt", &
LineMode!, Write!, LockWrite!, Append!)
FileWrite(li_FileNum, ls_usuario+','+ls_HoraIngreso)

//Abrimos la ventana principal
Open(w_principal)
Close(Parent)
//Si no logra conectarse:
Else
MessageBox("Error en conexión", &
"Error # " + String(sqlca.SQLDBCode) + "~r~n" + sqlca.SQLErrText)
Parent.Show()
End If

Nota: Comentarios y críticas, son bienvenidos.