Baik di posting yang pertama ini saya ingin membagi berbagai tips yang mungkin bisa membantu temen-teman dalam mengerjakan Tugas atau sekedar Belajar Bahasa Pemrograman Delphi 7 . .. .
Langsung saja kita disini akan membuat sebuah database sederhana menggunakan 2 Form yang akan dibuat seperti screen dibawah ini . .
Kita akan membuat database sederhana seperti image diatas . . .. .
Tambahkan 4 Button dan 1 combobox serta button seperti gambar dibawah ini . . . . .
untuk script nya bisa anda copy list dibawah ini
//list Program
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, DB, ADODB, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
ComboBox1: TComboBox;
Button3: TButton;
Button4: TButton;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
ADOTable1: TADOTable;
ADOConnection1: TADOConnection;
Timer1: TTimer;
ADOTable2: TADOTable;
DataSource2: TDataSource;
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
var
a:string;
procedure TForm1.Button3Click(Sender: TObject);
begin
form2.show;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
combobox1.Clear ;
edit1.Clear;
edit2.Clear;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
if MessageDlg('Apakah benar ingin dihapus',mtInformation,[mbYes,mbNo],0)= mrYes then
begin
ADOTable1.Delete;
// Edit1.Clear;
//Edit2.Clear;
// Edit1.SetFocus;
MessageDlg('Data Sudah Terhapus',mtInformation,[mbOK],0);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Adotable2.append;
try
ADOTable2.FieldByName('Kode_tim').AsString:=combobox1.Text;
ADOTable2.FieldByName('Nama_tim').AsString:=Edit1.Text;
ADOTable2.FieldByName('Kampus_Asal').AsString:=Edit2.Text;
//ADOTable1.Post;
combobox1.Clear;
Edit1.Clear;
Edit2.Clear;
except
MessageDlg('Succes !!!',mtInformation,[mbOK],0);
form1.ADOTable1.Cancel;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
a:= ' U J I A N M I S ';
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
i: Integer;
begin
Application.Title := a;
Form1.Caption := a;
for i := 1 to (Length(a) - 1) do
a[i] := Application.Title[i + 1];
a[Length(a)] := Application.Title[1];
end;
end.
