PUBLIC oGasyLangganan IF !FILE(ALAMATDL+'KLIENT.DBF') CREATE TABLE ALAMATDL+'KLIENT' (NAMA C(60), ALAMAT C(60), KOTA C(60), SERI_NYA C(9)) Use ENDIF IF !USED('KLIENT') BUKA(.T.,ALAMATDL+'KLIENT','KLIENT') Endif If !Used("KLIENT") Return ENDIF oGasyLangganan=CREATEOBJECT("oLangganan") oGasyLangganan.Show DEFINE CLASS oLangganan AS form Autocenter=.t. DESKTOP=.T. Caption="Setup Nama Perusahaan" Height = 170 Width = 496 MaxButton= .F. MinButton= .F. Icon = "bmps\arw03up.ico" WindowType = 1 BackColor = RGB(144,176,168) ADD OBJECT label2 AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; BorderStyle = 0, ; Caption = " Nama", ; Left = 38, ; Top = 42 ADD OBJECT tnama AS textbox WITH ; FontName = "MS Sans Serif", ; Height = 25, ; Left = 90, ; MaxLength = 60, ; Top = 38, ; Width = 373 ADD OBJECT label3 AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; BorderStyle = 0, ; Caption = " Alamat", ; Left = 34, ; Top = 69 ADD OBJECT talamat AS textbox WITH ; FontName = "MS Sans Serif", ; ControlSource = "", ; Height = 25, ; Left = 90, ; MaxLength = 60, ; Top = 65, ; Width = 373 ADD OBJECT label4 AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; BorderStyle = 0, ; Caption = " Kota", ; Left = 47, ; Top = 93 ADD OBJECT tkota AS textbox WITH ; FontName = "MS Sans Serif", ; Height = 25, ; Left = 90, ; MaxLength = 60, ; Top = 91, ; Width = 373 ADD OBJECT label5 AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; BorderStyle = 0, ; Caption = " Nomor Seri", ; Left = 9, ; Top = 121 ADD OBJECT tserial AS textbox WITH ; FontName = "MS Sans Serif", ; Alignment = 0, ; Enabled = .T., ; Height = 25, ; Left = 90, ; MaxLength = 9, ; ReadOnly = .F., ; Top = 117, ; Width = 150 ADD OBJECT tserialnya AS textbox WITH ; Height = 23, ; Left = 300, ; MaxLength = 9, ; Top = 121, ; Visible = .F., ; Width = 100 ADD OBJECT crekam AS commandbutton WITH ; Top = 120, ; Left = 252, ; Height = 23, ; Width = 32, ; FontName = "MS Sans Serif", ; Caption = "\<Ok" ADD OBJECT cSelesai AS commandbutton WITH ; AutoSize = .T., ; Top = 122, ; Left = 422, ; Cancel=.t.,; Caption = "E\<XIT" PROCEDURE Init This.TSERIALNYA.Value='1234567'+SUBSTR('GASYSOFTWARE',MONTH(DATE()),1)+'9' This.cRekam.Enabled=.F. If Used("KLIENT") Select KLIENT Go TOP This.TNAMA.Value=Nama This.TALAMAT.Value=ALAMAT THIS.TKOTA.Value=KOTA This.TSERIal.Value=SERI_NYA Endif ENDPROC PROCEDURE Destroy Tutup("KLIENT") ENDPROC PROCEDURE cSelesai.Click RELEASE oGasyLangganan ENDPROC PROCEDURE crekam.Click If Used("KLIENT") SELECT KLIENT GO TOP If Eof() Append Blank Endif REPLACE NAMA WITH THIS.Parent.TNAMA.Value,; ALAMAT WITH THIS.Parent.TALAMAT.Value,; KOTA WITH THIS.Parent.TKOTA.Value,; SERI_NYA WITH 'GOOD_USER' Flush Endif ENDPROC PROCEDURE tserial.LostFocus IF Alltrim(This.Value)==Alltrim(This.Parent.TSERIALNYA.Value) This.Parent.cRekam.Enabled= .T. ENDIF ENDPROC ENDDEFINE