Cara Membuat Program Save Edit Delete Dengan Delphi 7 [T2]

Berikut Tips Mudah Cara Membuat Program Save Edit Delete Dengan Delphi 7 [T2] yang dimana tutorial ini adalah kelanjutan dari tutorial [T1] yang ada DISINI ok jika anda dan sahabat semuanya menemukan tutorial pada [T1] antara listing code yang ditampilkan di postingan dengan listing yang ada di gambarnya yang benar adalah listing yang ada di artikel saja karena artikel tersebut terus admin ubah, dan jika artikel yang kelanjutannya sudah ada berarti yang sebelumnya sudah benar, ok kita langsung praktek pada tahap yang kedua ini silahkan simak.

PENAMBAHAN KOMPONEN BARU PADA [T2]

1. GroupBox1 ganti namanya menjadi gb1 dan captionnya kosongkan

2. GroupBox2 ganti namanya menjadi gb2 dan captionnya kosongkan

3. Button1 ganti namanya menjadi ed dan captionnya EDIT

4. Button2 ganti namanya menjadi sv dan captionnya SAVE

PRAKTEK PEMBUATAN DASAR PROGRAMNYA

1. Langkah pertama komponen yang dikasih nama TCP OFF, BH 0, START, STOP silahkan satu persatu klik kanan EDIT > CUT kemudian arahkan ke gb1 dan PASTE, kemudian yang p1,p2,p3,p4,p5, EDIT, SAVE satu persatu klik kanan EDIT > CUT kemudian arahkan ke gb2 dan PASTE hasilnya kira kira seperti pada gambar dibawah ini.

2. Pada langkah yang kedua silahkan tambahkan myFile : TextFile; tepat diatas implementation bisa lihat gambar dibawah ini:

3. Pada langkah yang ketiga silahkan tambahkan kode yang dibawah ini dan pasang setelah kode {$R *.dfm} lihat gambar dibawah untuk contohnya:

function BoolToIniText(Name: string; Value: Boolean): string;

var

  C: char;

begin

  if Value then C := '1' else C := '0';

  Result := Name + ' ' + C;

end;

function IniTextToBool(S: string; FileFound, DefaultValue: Boolean): Boolean;

var

  C: char;

begin

  if not FileFound then Result := DefaultValue

  else begin

    C := S[Length(S)];

    Result := C = '1';

  end;

end;

procedure CleanupSystemTray;

var

  hTaskbar: HWND;

  hSysTray: HWND;

  R: TRect;

  iXPos: Integer;

  iYPos: Integer;

  iLeft: Integer;

  iRight: Integer;

  iTop: Integer;

  iBottom: Integer;

  iMouseFlag: Integer;

  p: TPoint;

const

  cMax = 65535;

  cXStep = 1000;

  cYStep = 100;

begin

    hTaskbar := FindWindow(PChar('Shell_TrayWnd'), nil);

    hSysTray := FindWindowEx(hTaskbar, 0, 'TrayNotifyWnd', nil);

    GetWindowRect( hSysTray, R );

    iLeft       := R.Left   * cMax div Screen.Width;

    iRight      := R.Right  * cMax div Screen.Width;

    iTop        := R.Top    * cMax div Screen.Height;

    iBottom     := R.Bottom * cMax div Screen.Height;

    GetCursorPos(p);

    iMouseFlag  := MOUSEEVENTF_MOVE + MOUSEEVENTF_ABSOLUTE;

    iXPos := iLeft;

    repeat

      iYPos := iTop;

      repeat

        mouse_event(iMouseFlag, iXPos, iYPos, 0, 0);

        iYPos := iYPos + cYStep;

      until iYPos >= iBottom;

      iXPos := iXPos + cXStep;

    until iXPos >= iRight;

    SetCursorPos(p.x, p.y);

end;

3. Pada langkah yang ketiga kemudian silahkan klik form utamanya atau OnCreate pada form utamanya lalu tambahkan kode dibawah ini lihat gambar dibawah untuk contohnya.

var

text: String;

begin
    buttonstop.Enabled:=false;
    sv.Enabled := false;

    p1.Enabled := false;

    p2.Enabled := false;

    p3.Enabled := false;

    p4.Enabled := false;

    p5.Enabled := false;

    ed.Caption := 'EDIT';

    AssignFile(myFile, extractfilepath(application.exename)+'data.dat');

    Reset(myFile);

    ReadLn(myFile, text);

    p1.Text := text;

    ReadLn(myFile, text);

    p2.Text := text;

    ReadLn(myFile, text);

    p3.Text := text;

    ReadLn(myFile, text);

    p4.Text := text;

    ReadLn(myFile, text);

    p5.Text := text;

    CloseFile(myFile);

4. Pada langkah yang keempat kemudian silahkan klik pada tombol EDIT lalu masukan kode yang ada dibawah ini bisa lihat gambar dibawah untuk contohnya:

 ed.Enabled := false;
 sv.Enabled := true;

 p1.Enabled := true;

 p2.Enabled := true;

 p3.Enabled := true;

 p4.Enabled := true;

 p5.Enabled := true;

6. Pada langkah yang keenam kemudian silahkan klik tombol SAVE lalu masukan kode yang ada dibawah ini dan silahkan lihat gambar dibawah ini untuk contohnya:

    ed.Enabled := true;
    sv.Enabled := false;

    p1.Enabled := false;

    p2.Enabled := false;

    p3.Enabled := false;

    p4.Enabled := false;

    p5.Enabled := false;

    AssignFile(myFile, extractfilepath(application.exename)+'data.dat');

    ReWrite(myFile);

    WriteLn(myFile, PChar(p1.Text));

    WriteLn(myFile, PChar(p2.Text));

    WriteLn(myFile, PChar(p3.Text));

    WriteLn(myFile, PChar(p4.Text));

    WriteLn(myFile, PChar(p5.Text));

    CloseFile(myFile);

RANGKUMAN DARI PEMBAHASAN INI:

1. Dengan menambahkan fungsi save, edit dan delete tersebut maka setiap list yang anda tulisankan pada p1-p5 maka bisa disimpan atau di save sehingga akan membuat dan memudahkan anda untuk menggunakannya kembali atau bisa dibilang save config saja.

2. Seperti yang sudah dibilang sebelumnya setiap tutorial ini akan diberikan tanda [T1], [T2], [T3], dst berarti itu adalah tutorial yang secara berurutan dan berhubungan jadi pastikan anda memahami dari T1 sebelum melanjutkan kesini.

Update Bagian ketiga [T3] Silahkan lihat DISINI

Ya sudah hanya itu saja dulu tips informasi seputar dengan Cara Membuat Program Save Edit Delete Dengan Delphi 7 [T2] semoga bermanfaat dan membantu dan silahkan pelajari kembali dari awal, terima kasih.

Tweet

Sign up here with your email address to receive updates from this blog in your inbox.