[PembekalanPRAKERIN2015] Isi ComboBox Jabatan

//======== ISI COMBOBOX JABATAN =======================================
procedure TForm1.FormShow(Sender: TObject);
begin
  ZQuery1.Active := FALSE;
  ZQuery1.SQL.Clear;
  ZQuery1.SQL.Add('select * from tb_jabatan');
  ZQuery1.Active := TRUE;
  ComboBox1.Items.Clear;
  ZQuery1.First;
  while not ZQuery1.Eof do
  begin
    ComboBox1.Items.Add(ZQuery1.fieldbyname('jabatan').AsString);
    ZQuery1.Next;
  end;
  ComboBox1.ItemIndex := 0;
end;
//=====================================================================