Scribd
Upload
8 views5 pages

Database Management Program Code

This document contains a program for a database application in Pascal. It includes details about the student who created it such as their name, student ID and class. The program defines forms, labels, buttons and other controls used to view, add, edit and delete records in a database table. Methods are defined to handle events like clicking buttons to perform database operations like appending, editing and deleting records.

Uploaded by

Squid Ward
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
8 views5 pages

Database Management Program Code

This document contains a program for a database application in Pascal. It includes details about the student who created it such as their name, student ID and class. The program defines forms, labels, buttons and other controls used to view, add, edit and delete records in a database table. Methods are defined to handle events like clicking buttons to perform database operations like appending, editing and deleting records.

Uploaded by

Squid Ward
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd

Nama : Ade julianto S

NIM : 20192205066
Kelas : TI.22

PROGRAM DATABASE

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB, ExtCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Label3: TLabel;
Edit2: TEdit;
RadioGroup1: TRadioGroup;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Label4: TLabel;
ComboBox1: TComboBox;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure DBGrid1DblClick(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
procedure hapus;
{ Public declarations }
end;
var
Form1: TForm1;

implementation

{$R *.dfm}

procedure [Link];
begin
[Link];
[Link];
[Link]:=false;
[Link]:=false;
[Link]:='Waktu';
end;

procedure TForm1.Button1Click(Sender: TObject);


begin
[Link];
[Link][0].AsString:= [Link];
[Link][1].AsString:= [Link];
[Link][3].AsString:= [Link];
if ([Link] = true) then
[Link][2].AsString:= 'VIP'
else
[Link][2].AsString:= 'umum';
[Link];
[Link];
[Link];
end;

procedure [Link](Sender: TObject);


begin
hapus;
end;

procedure TForm1.DBGrid1DblClick(Sender: TObject);


begin
[Link] := [Link][0].AsString;
[Link] := [Link][1].AsString;
[Link] := [Link][3].AsString;
if ([Link] = true) then
[Link][2].AsString:= 'VIP'
else
[Link][2].AsString:= 'umum';
end;

procedure TForm1.Button2Click(Sender: TObject);


begin
[Link];
[Link][0].AsString:= [Link];
[Link][1].AsString:= [Link];
[Link][3].AsString:= [Link];
if ([Link] = true) then
[Link][2].AsString:= 'VIP'
else
[Link][2].AsString:= 'umum';

end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if (MessageDlg('Hapus Data : '+[Link][1].AsString+'?',mtConfirmation,
mbOKCancel,0)=mrOK) then
[Link];
end;

end.

You might also like