WanShiTong/f14_save.pas at master · littlemight/WanShiTong · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
unit f14_save;

interface
uses
    csv_parser,
    buku_handler,
    user_handler,
    peminjaman_Handler,
    pengembalian_Handler,
    kehilangan_handler,
    tipe_data;

{ DEKLARASI FUNGSI DAN PROSEDUR }
procedure save(var data_buku: tabel_buku; var data_user: tabel_user; var data_peminjaman: tabel_peminjaman; var data_pengembalian: tabel_pengembalian; var data_kehilangan: tabel_kehilangan);

{ IMPLEMENTASI FUNGSI DAN PROSEDUR }
implementation
procedure save(var data_buku: tabel_buku; var data_user: tabel_user; var data_peminjaman: tabel_peminjaman; var data_pengembalian: tabel_pengembalian; var data_kehilangan: tabel_kehilangan);
    { DESKRIPSI : Memasukkan data di dalam program ke data .csv }
    { PARAMETER : semua tabel data }

    { KAMUS LOKAL }
    var
        temp : arr_str;
        filename : string;
    { ALGORITMA }
    begin
        write('Masukkan nama File Buku: '); readln(filename);
            temp := buku_handler.konversi_csv(data_buku);
            simpan_csv(filename, temp);
        write('Masukkan nama File User: '); readln(filename);
            temp := user_handler.konversi_csv(data_user);
            simpan_csv(filename, temp);
        write('Masukkan nama File Peminjaman: '); readln(filename);
             temp := peminjaman_Handler.konversi_csv(data_peminjaman);
            simpan_csv(filename, temp);
        write('Masukkan nama File Pengembalian: '); readln(filename);
            temp := pengembalian_Handler.konversi_csv(data_pengembalian);
            simpan_csv(filename, temp);
         write('Masukkan nama File Buku Hilang: '); readln(filename);
          temp := kehilangan_handler.konversi_csv(data_kehilangan);
          simpan_csv(filename, temp);

         WriteLn('Data berhasil disimpan!');
    end;
end.