Untitled
unknown
plain_text
6 months ago
3.8 kB
3
Indexable
Never
procedure TForm2.bersih; begin edt1.Text:='00:00'; edt2.Text:='00:00'; edt3.Text:=''; edt4.Text:=''; edt5.Text:=''; edt6.Text:=''; cbb1.Text:='...pILIH HARI...'; end; procedure TForm2.btn1Click(Sender: TObject); var a:Integer; begin if (edt1.Text='') or (edt2.Text='') and (edt1.Text='00:00') or (edt2.Text='00:00') then begin ShowMessage('ISi Dulu Tanggalnya'); end else if (cbb1.Text='') or(cbb1.Text='...pILIH HARI...') then begin ShowMessage('ISi Dulu Harinya'); end else If (edt3.Text='') or (edt3.Text='') or (edt3.Text='-') or (edt3.Text='-') then begin ShowMessage('ISi Dulu Ruangnya'); end else if (edt4.Text='') or (edt4.Text='') or (edt4.Text='-') or (edt4.Text='-') then begin ShowMessage('ISi Dulu Matakuliahnya'); end else if (edt5.Text='') or (edt5.Text='') or (edt5.Text='-') or (edt5.Text='-') then begin ShowMessage('ISi Dulu Kelasnya'); end else if (edt6.Text='') or (edt6.Text='') or (edt6.Text='-') or (edt6.Text='-') then begin ShowMessage('ISi Dulu Kehariaannya'); end else if (Form1.qry1.Locate('hari',cbb1.Text,[])) and (Form1.qry1.Locate('jam_mulai',edt1.Text,[])) then begin ShowMessage('Data Sudah Diisi'); edt1.SetFocus; end else begin a:=form1.qry1.RecordCount+1; with Form1.qry1 do begin sql.Clear; SQL.Add('insert into jadwal_table values("'+IntToStr(a)+'","'+edt1.Text+'","'+edt2.Text+'","'+cbb1.Text+'","'+FormatDateTime('yyyy-mm-dd',Date)+'","'+edt3.Text+'","'+edt4.Text+'","'+edt5.Text+'","'+edt6.Text+'")'); ExecSQL; SQL.Clear; SQL.Add('select * from jadwal_table'); Open; ShowMessage('Data Berhasil di Simpan'); bersih; end; end; end; procedure TForm2.dbgrd1CellClick(Column: TColumn); begin try upd:=Form1.qry1.Fields[0].AsString; edt1.text:=form1.qry1.Fields[1].AsString; edt2.text:=form1.qry1.Fields[2].AsString; cbb1.Text:=form1.qry1.Fields[3].AsString; dtp1.Date:=form1.qry1.Fields[4].AsDateTime; edt3.text:=form1.qry1.Fields[5].AsString; edt4.text:=form1.qry1.Fields[6].AsString; edt5.text:=form1.qry1.Fields[7].AsString; edt6.text:=form1.qry1.Fields[8].AsString; except end; end; procedure TForm2.FormShow(Sender: TObject); begin form1.qry1.sql.Clear; form1.qry1.SQL.add('select * from jadwal_table'); form1.qry1.Open; end; procedure TForm2.btn2Click(Sender: TObject); begin if (edt1.Text='') or (edt2.Text='') and (edt1.Text='00:00') or (edt2.Text='00:00') then begin ShowMessage('ISi Dulu Tanggalnya'); end else if (cbb1.Text='') or(cbb1.Text='...pILIH HARI...') then begin ShowMessage('ISi Dulu Harinya'); end else If (edt3.Text='') or (edt3.Text='') or (edt3.Text='-') or (edt3.Text='-') then begin ShowMessage('ISi Dulu Ruangnya'); end else if (edt4.Text='') or (edt4.Text='') or (edt4.Text='-') or (edt4.Text='-') then begin ShowMessage('ISi Dulu Matakuliahnya'); end else if (edt5.Text='') or (edt5.Text='') or (edt5.Text='-') or (edt5.Text='-') then begin ShowMessage('ISi Dulu Kelasnya'); end else if (edt6.Text='') or (edt6.Text='') or (edt6.Text='-') or (edt6.Text='-') then begin ShowMessage('ISi Dulu Kehariaannya'); end else if (edt1.Text= Form1.qry1.Fields[1].AsString) and (cbb1.Text= Form1.qry1.Fields[3].AsString) then begin ShowMessage('Data Tidak Ada Berubah'); end else begin with Form1.qry1 do begin SQL.Clear; SQL.Add('update jadwal_table set jam_mulai="'+edt1.Text+'",jam_akhir="'+edt2.Text+'" where no="'+upd+'"'); ExecSQL; SQL.Clear; SQL.Add('select * from jadwal_table'); open; ShowMessage('Data Berhasil Diupdate'); bersih; end; end end; end.