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
Tulis komentar menarik atau mention replykgpt untuk ngobrol seru
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;
Pointer internal DataModule11.zqry_penyiarapakah udah ngarah ke data pertama?
Udah gan, udah pada ngarah ke data yg diisi di Form Penyiar (Form pertama yg dituju)