procedure TForm4.btn1Click(Sender: TObject);
begin
if edt1.Text='' then
begin
ShowMessage('Data masih ada yang kosong!');
edt1.SetFocus;
end else
if cbb3.Text='' then
begin
ShowMessage('Data masih ada yang kosong!');
cbb3.SetFocus;
end else
if edt3.Text='' then
begin
ShowMessage('Data masih ada yang kosong!');
edt3.SetFocus;
end else
if edt5.Text='' then
begin
ShowMessage('Data masih ada yang kosong!');
edt5.SetFocus;
end else
begin
with DataModule11.zqry_absen do
begin
Append;
Fields[0].AsString := edt1.Text;
Fields[1].AsString := cbb3.Text;
Fields[2].AsString := edt3.Text;
Fields[3].AsString := cbb1.Text;
Fields[4].AsString := cbb2.Text;
Fields[5].AsString := edt5.Text;
Post;
end;
with DataModule11.zqry_absen do
begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM tb_absen');
Open;
end;
Application.MessageBox('Data Berhasil Disimpan','Info', MB_OK or MB_ICONINFORMATION);
begin
edt1.Clear;
edt3.Clear;
cbb1.ClearSelection;
cbb2.ClearSelection;
edt5.Clear;
end;
no_urut;
end;
end;
procedure TForm4.btn3Click(Sender: TObject);
begin
bersihkan;
end;
procedure TForm4.btn2Click(Sender: TObject);
begin
with DataModule11.zqry_absen do
begin
Active := False;
Close;
SQL.Clear;
SQL.Text:= 'UPDATE tb_absen SET id_penyiar ='+QuotedStr(cbb3.Text)
+',nama_penyiar ='+QuotedStr(edt3.Text)
+',periode_bulan ='+QuotedStr(cbb1.Text)
+',periode_tahun ='+QuotedStr(cbb2.Text)
+',total_siaran ='+QuotedStr(edt5.Text)
+'where id_absen='+QuotedStr(edt1.Text)+';';
procedure TForm4.btn4Click(Sender: TObject);
begin
Form13.Refresh;
Form4.Close;
Form13.Show;
end;
procedure TForm4.no_urut;
var
kode : string;
urut : Integer;
begin
with DataModule11.zqry_absen do
begin
Close;
SQL.Clear;
SQL.Text := 'select * from tb_absen order by id_absen asc';
Open;
end;
if DataModule11.zqry_absen.RecordCount = 0 then
urut := 1
else
if DataModule11.zqry_absen.RecordCount >0 then
begin
with DataModule11.zqry_absen do
begin
Close;
SQL.Clear;
SQL.Text :='select max(right(id_absen,3)) as kode from tb_absen';
Open;
end;
urut := DataModule11.zqry_absen.fieldByName('kode').AsInteger + 1;
end;
kode := IntToStr (urut);
kode := Copy('00'+kode, Length ('00'+kode)-0,3);
edt1.Text := '00' +kode;
with DataModule11.zqry_absen do
Begin
close;
SQL.Clear;
SQL.Text := 'select * from tb_absen';
Open;
end;
end;
procedure TForm4.cbb3Change(Sender: TObject);
begin
with DataModule11.zqry_penyiar do
begin
close;
SQL.Clear;
SQL.Add('SELECT * FROM tb_penyiar WHERE id_penyiar='
+QuotedStr(cbb3.Text));
Open;
end;
if (DataModule11.zqry_penyiar.RecordCount = 0) then
begin
edt3.Text := 'Penyiar tidak dikenal';
end
else
begin
if(DataModule11.zqry_penyiar.FieldByName('id_penyiar').AsString = cbb3.Text)
then
edt3.Text := DataModule11.zqry_penyiar.FieldByName('nama_penyiar').AsString;
end;
end;
procedure TForm4.nama_otomatis;
begin
cbb3.Items.Clear;
while not DataModule11.zqry_penyiar.Eof do
begin
cbb3.Items.Add(DataModule11.zqry_penyiar.FieldByName('id_penyiar').AsString);
DataModule11.zqry_penyiar.Next;
end;
end;
procedure TForm4.FormShow(Sender: TObject);
begin
nama_otomatis;
end;
end.
untuk source code dibagian form DB Absen nya gini.
procedure TForm13.btn4Click(Sender: TObject);
begin
Form2.Show;
Form13.Close;
end;
procedure TForm13.btn2Click(Sender: TObject);
begin
if dbgrdh1.SelectedRows.Count=0 then
begin
MessageDlg('Tidak ada data yang di tandai....',mtWarning,[mboK],0);
Exit;
end;
with DataModule11.zqry_absen do
begin
Form4.edt1.Text := FieldList[0].AsString;
Form4.cbb3.Text := FieldList[1].AsString;
Form4.edt3.Text := FieldList[2].AsString;
Form4.cbb1.Text := FieldList[3].AsString;
Form4.cbb2.Text := FieldList[4].AsString;
Form4.edt5.Text := FieldList[5].AsString;
Form13.Hide;
Form4.Show;
Form4.btn1.Hide;
Form4.btn2.Show;
end;
end;
procedure TForm13.btn3Click(Sender: TObject);
begin
if dbgrdh1.SelectedRows.Count=0 then
begin
MessageDlg('Tidak Ada Data Yang Di Tandai ...',mtWarning,[mbOK],0);
Exit;
end;
dbgrdh1.SelectedRows.Delete;
end;
procedure TForm13.refresh;
begin
with DataModule11.zqry_absen do
begin
Close;
SQL.Clear;
SQL.Text := 'select * from tb_absen';
Open;
end;
end;
procedure TForm13.edt1Change(Sender: TObject);
begin
if(edt1.Text ='') then
begin
with DataModule11.zqry_absen do
begin
Close;
SQL.Clear;
SQL.Text := 'select * from tb_absen';
Open;
end;
end else
begin
with DataModule11.zqry_absen do
begin
Close;
SQL.Clear;
SQL.Text := 'select * from tb_absen WHERE id_absen LIKE "%'+edt1.Text+
'%" OR periode_bulan LIKE "%'+edt1.Text+'%"';
Open;
end;
end;
end;
end.
Mohon dibantu suhu, kira kira ada masalah dimana ya?. Apa di koding combobox nya ya?
Makasih suhu
tien212700 dan nona212 memberi reputasi
2
1.3K
Kutip
9
Balasan
Guest
Tulis komentar menarik atau mention replykgpt untuk ngobrol seru
Mari bergabung, dapatkan informasi dan teman baru!
Programmer Forum
20.2KThread•4.3KAnggota
Terlama
Guest
Tulis komentar menarik atau mention replykgpt untuk ngobrol seru