!**************************************
! Name: Koneksi SQL Server
! Description : koneksi  database dengan menggunakan
! File teks (KONEKSI.TXT)
! pada folder penyimpanan program akan terbentuk
! file koneksi.txt yang dapat kita edit dari notepad
! copyright : Maggot #10
! www.master.ac.id
!**************************************
procedure TDM.KONEKSI;
VAR F : TextFile;
    STR_KONEKSI : String;
    INPUT_STR : String;
    KONFIRMASI : Boolean;
begin
    IF KONEKSI_SERVER.Connected = True THEN
        KONEKSI_SERVER.Connected := False;
 
    IF FileExists(GetCurrentDir + '\KONEKSI.TXT')THEN
    BEGIN
        AssignFile(F,GetCurrentDir + '\KONEKSI.TXT');
        Reset(F);
        Readln(F,STR_KONEKSI);
        KONEKSI_SERVER.ConnectionString := STR_KONEKSI;
        CloseFile(F);
    END
    ELSE
    BEGIN
        INPUT_STR := 'SERVER';
        KONFIRMASI := InputQuery('KONEKSI SERVER','MASUKAN NAMA SERVER',INPUT_STR);
        IF KONFIRMASI THEN
        BEGIN
            CreateFile(PCHAR(GetCurrentDir + '\KONEKSI.TXT'),0,0,nil,0,0,0);
            AssignFile(F,GetCurrentDir + '\KONEKSI.TXT');
            Rewrite(F);
            Writeln(F,'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;'+
            'Initial Catalog=DB_KMA;Data Source='+ INPUT_STR);
            Reset(F);
            Readln(F,STR_KONEKSI);
            KONEKSI_SERVER.ConnectionString := STR_KONEKSI;
            CloseFile(F);
          END;
    END;
 
    IF KONEKSI_SERVER.Connected = False THEN
        KONEKSI_SERVER.Connected := True;
end;