Sistem Basis Data:Tugas Delphi 1 - Revision history

Kangtain: Kangtain moved page Tugas Delphi 1 to Sistem Basis Data:Tugas Delphi 1

2022-11-19T16:07:51Z

← Older revision	Revision as of 23:07, 19 November 2022
(No difference)

2022-08-30T23:38:11Z

2022-04-23T13:22:21Z

← Older revision		Revision as of 20:22, 23 April 2022
Line 35:		Line 35:
	PROCEDURE TMAHASISWA.KOSONG();		PROCEDURE TMAHASISWA.KOSONG();
	BEGIN		BEGIN
	EDNIM.Text := '';		<nowiki>EDNIM.Text := '';</nowiki>
	EDNAMA.Text := '';		<nowiki>EDNAMA.Text := '';</nowiki>
	EDKELAS.Text := '';		<nowiki>EDKELAS.Text := '';</nowiki>
	EDNIM.SetFocus;		<nowiki>EDNIM.SetFocus;</nowiki>
	END;		END;

2022-04-23T13:21:32Z

← Older revision		Revision as of 20:21, 23 April 2022
Line 35:		Line 35:
	PROCEDURE TMAHASISWA.KOSONG();		PROCEDURE TMAHASISWA.KOSONG();
	BEGIN		BEGIN
	~~<nowiki>~~EDNIM.Text := '';~~</nowiki>~~		EDNIM.Text := '';
	~~<nowiki>~~EDNAMA.Text := '';~~</nowiki>~~		EDNAMA.Text := '';
	~~<nowiki>~~EDKELAS.Text := '';~~</nowiki>~~		EDKELAS.Text := '';
	~~<nowiki>~~EDNIM.SetFocus;~~</nowiki>~~		EDNIM.SetFocus;
	END;		END;

2022-04-23T13:19:30Z

Undo revision 4389 by Kangtain (talk)

@@ Line 18: / Line 18: @@
       EDKELAS: TEdit;
       BTSIMPAN: TButton;
       procedure FormActivate(Sender: TObject);
       procedure BTSIMPANClick(Sender: TObject);
     private
       { Private declarations }
@@ Line 49: / Line 43: @@
   procedure TMAHASISWA.FormActivate(Sender: TObject);
   begin
- TBMHS.Close;
+  KOSONG()
   end;
@@ Line 63: / Line 53: @@
    TBMHS.Open;
    KOSONG();
   end;

2022-04-23T13:11:20Z

← Older revision		Revision as of 20:11, 23 April 2022
Line 41:		Line 41:
	PROCEDURE TMAHASISWA.KOSONG();		PROCEDURE TMAHASISWA.KOSONG();
	BEGIN		BEGIN
	EDNIM.Text := '';		<nowiki>EDNIM.Text := '';</nowiki>
	EDNAMA.Text := '';		<nowiki>EDNAMA.Text := '';</nowiki>
	EDKELAS.Text := '';		<nowiki>EDKELAS.Text := '';</nowiki>
	EDNIM.SetFocus;		<nowiki>EDNIM.SetFocus;</nowiki>
	END;		END;

2022-04-23T13:10:30Z

@@ Line 18: / Line 18: @@
       EDKELAS: TEdit;
       BTSIMPAN: TButton;
       procedure FormActivate(Sender: TObject);
       procedure BTSIMPANClick(Sender: TObject);
     private
       { Private declarations }
@@ Line 43: / Line 49: @@
   procedure TMAHASISWA.FormActivate(Sender: TObject);
   begin
-  KOSONG()
+ TBMHS.Close;
   end;
@@ Line 53: / Line 63: @@
    TBMHS.Open;
    KOSONG();
   end;

2022-03-26T00:28:40Z

2022-03-02T12:59:38Z

@@ Line 84: / Line 84: @@
    TBMHS.Close;
    TBMHS.SQL.Text := 'UPDATE MAHASISWA SET NAMA=' + QUOTEDSTR(EDNAMA.Text) +',KELAS=' + QUOTEDSTR(EDKELAS.Text) + ' WHERE NIM=' + QUOTEDSTR(EDNIM.Text);
    TBMHS.ExecSQL;
    TBMHS.SQL.Text := 'SELECT * FROM MAHASISWA';

2022-03-02T12:52:01Z

← Older revision		Revision as of 19:52, 2 March 2022
Line 78:		Line 78:
	TBMHS.Open;		TBMHS.Open;
	end;		end;

			*Code BTEDIT
			procedure TMAHASISWA.BTEDITClick(Sender: TObject);
			begin
			TBMHS.Close;
			TBMHS.SQL.Text := 'UPDATE MAHASISWA SET NAMA=' + QUOTEDSTR(EDNAMA.Text) +',KELAS=' + QUOTEDSTR(EDKELAS.Text) + ' WHERE NIM=' + QUOTEDSTR(EDNIM.Text);
			TBMHS.ExecSQL;
			TBMHS.SQL.Text := 'SELECT * FROM MAHASISWA';
			TBMHS.Open;
			end;

			end.